├── .gitignore ├── .travis.yml ├── CODE_OF_CONDUCT.md ├── CONTRIBUTING.md ├── LICENSE ├── LICENSE-MPL-RabbitMQ ├── Makefile ├── README.md ├── erlang.mk ├── priv └── www │ └── js │ ├── tmpl │ ├── ets_tables.ejs │ ├── process.ejs │ └── processes.ejs │ └── top.js ├── rabbitmq-components.mk └── src ├── rabbit_top_app.erl ├── rabbit_top_extension.erl ├── rabbit_top_sup.erl ├── rabbit_top_util.erl ├── rabbit_top_wm_ets_tables.erl ├── rabbit_top_wm_process.erl ├── rabbit_top_wm_processes.erl └── rabbit_top_worker.erl /.gitignore: -------------------------------------------------------------------------------- 1 | .sw? 2 | .*.sw? 3 | *.beam 4 | /.erlang.mk/ 5 | /cover/ 6 | /deps/ 7 | /doc/ 8 | /ebin/ 9 | /escript/ 10 | /escript.lock 11 | /logs/ 12 | /plugins/ 13 | /plugins.lock 14 | /sbin/ 15 | /sbin.lock 16 | 17 | rabbitmq_top.d 18 | -------------------------------------------------------------------------------- /.travis.yml: -------------------------------------------------------------------------------- 1 | # vim:sw=2:et: 2 | 3 | os: linux 4 | dist: xenial 5 | language: elixir 6 | notifications: 7 | email: 8 | recipients: 9 | - alerts@rabbitmq.com 10 | on_success: never 11 | on_failure: always 12 | addons: 13 | apt: 14 | packages: 15 | - awscli 16 | cache: 17 | apt: true 18 | env: 19 | global: 20 | - secure: RH+dA2KEBVnbwQxcrVoXEv9jRxHPgpPRM/RzndEgnG9pO0wreeOumrzUWwk0paSNnpe3LOZC5LbkJwSsUtDUKiu3n7qT2hYyiaV4Y7TIhL1tDgQi8YkvbAva9rR0jKhlhDDtKJvLwFux9/LqYPJnDg4Sw8gs6g+6cPOMR1ciPzw= 21 | - secure: XTaKnhJ76c/4OgIGYOQh5RW4q5RrJcbWQN4c2+pDZCWTE2uHzFGDRaQ5/uO1w6fy2WRqdJZTfAZJhlQGXALL6uULJpz2PhxjHbeFP6nCzSUkxULj+KvITKd5wNKyPQaDn716fiYc1aJm2x3F/FSOPaFaH9p/wmEm50vw/vdVP7s= 22 | 23 | # $base_rmq_ref is used by rabbitmq-components.mk to select the 24 | # appropriate branch for dependencies. 25 | - base_rmq_ref=master 26 | 27 | elixir: 28 | - '1.9' 29 | otp_release: 30 | - '21.3' 31 | - '22.2' 32 | 33 | install: 34 | # This project being an Erlang one (we just set language to Elixir 35 | # to ensure it is installed), we don't want Travis to run mix(1) 36 | # automatically as it will break. 37 | skip 38 | 39 | script: 40 | # $current_rmq_ref is also used by rabbitmq-components.mk to select 41 | # the appropriate branch for dependencies. 42 | - make check-rabbitmq-components.mk 43 | current_rmq_ref="${TRAVIS_PULL_REQUEST_BRANCH:-${TRAVIS_BRANCH}}" 44 | - make xref 45 | current_rmq_ref="${TRAVIS_PULL_REQUEST_BRANCH:-${TRAVIS_BRANCH}}" 46 | - make tests 47 | current_rmq_ref="${TRAVIS_PULL_REQUEST_BRANCH:-${TRAVIS_BRANCH}}" 48 | 49 | after_failure: 50 | - | 51 | cd "$TRAVIS_BUILD_DIR" 52 | if test -d logs && test "$AWS_ACCESS_KEY_ID" && test "$AWS_SECRET_ACCESS_KEY"; then 53 | archive_name="$(basename "$TRAVIS_REPO_SLUG")-$TRAVIS_JOB_NUMBER" 54 | 55 | tar -c --transform "s/^logs/${archive_name}/" -f - logs | \ 56 | xz > "${archive_name}.tar.xz" 57 | 58 | aws s3 cp "${archive_name}.tar.xz" s3://server-release-pipeline/travis-ci-logs/ \ 59 | --region eu-west-1 \ 60 | --acl public-read 61 | fi 62 | -------------------------------------------------------------------------------- /CODE_OF_CONDUCT.md: -------------------------------------------------------------------------------- 1 | # Contributor Code of Conduct 2 | 3 | As contributors and maintainers of this project, and in the interest of fostering an open 4 | and welcoming community, we pledge to respect all people who contribute through reporting 5 | issues, posting feature requests, updating documentation, submitting pull requests or 6 | patches, and other activities. 7 | 8 | We are committed to making participation in this project a harassment-free experience for 9 | everyone, regardless of level of experience, gender, gender identity and expression, 10 | sexual orientation, disability, personal appearance, body size, race, ethnicity, age, 11 | religion, or nationality. 12 | 13 | Examples of unacceptable behavior by participants include: 14 | 15 | * The use of sexualized language or imagery 16 | * Personal attacks 17 | * Trolling or insulting/derogatory comments 18 | * Public or private harassment 19 | * Publishing other's private information, such as physical or electronic addresses, 20 | without explicit permission 21 | * Other unethical or unprofessional conduct 22 | 23 | Project maintainers have the right and responsibility to remove, edit, or reject comments, 24 | commits, code, wiki edits, issues, and other contributions that are not aligned to this 25 | Code of Conduct, or to ban temporarily or permanently any contributor for other behaviors 26 | that they deem inappropriate, threatening, offensive, or harmful. 27 | 28 | By adopting this Code of Conduct, project maintainers commit themselves to fairly and 29 | consistently applying these principles to every aspect of managing this project. Project 30 | maintainers who do not follow or enforce the Code of Conduct may be permanently removed 31 | from the project team. 32 | 33 | This Code of Conduct applies both within project spaces and in public spaces when an 34 | individual is representing the project or its community. 35 | 36 | Instances of abusive, harassing, or otherwise unacceptable behavior may be reported by 37 | contacting a project maintainer at [info@rabbitmq.com](mailto:info@rabbitmq.com). All complaints will 38 | be reviewed and investigated and will result in a response that is deemed necessary and 39 | appropriate to the circumstances. Maintainers are obligated to maintain confidentiality 40 | with regard to the reporter of an incident. 41 | 42 | This Code of Conduct is adapted from the 43 | [Contributor Covenant](https://contributor-covenant.org), version 1.3.0, available at 44 | [contributor-covenant.org/version/1/3/0/](https://contributor-covenant.org/version/1/3/0/) 45 | -------------------------------------------------------------------------------- /CONTRIBUTING.md: -------------------------------------------------------------------------------- 1 | ## Overview 2 | 3 | RabbitMQ projects use pull requests to discuss, collaborate on and accept code contributions. 4 | Pull requests is the primary place of discussing code changes. 5 | 6 | ## How to Contribute 7 | 8 | The process is fairly standard: 9 | 10 | * Fork the repository or repositories you plan on contributing to 11 | * Clone [RabbitMQ umbrella repository](https://github.com/rabbitmq/rabbitmq-public-umbrella) 12 | * `cd umbrella`, `make co` 13 | * Create a branch with a descriptive name in the relevant repositories 14 | * Make your changes, run tests, commit with a [descriptive message](https://tbaggery.com/2008/04/19/a-note-about-git-commit-messages.html), push to your fork 15 | * Submit pull requests with an explanation what has been changed and **why** 16 | * Submit a filled out and signed [Contributor Agreement](https://github.com/rabbitmq/ca#how-to-submit) if needed (see below) 17 | * Be patient. We will get to your pull request eventually 18 | 19 | If what you are going to work on is a substantial change, please first ask the core team 20 | of their opinion on [RabbitMQ mailing list](https://groups.google.com/forum/#!forum/rabbitmq-users). 21 | 22 | 23 | ## Code of Conduct 24 | 25 | See [CODE_OF_CONDUCT.md](./CODE_OF_CONDUCT.md). 26 | 27 | 28 | ## Contributor Agreement 29 | 30 | If you want to contribute a non-trivial change, please submit a signed copy of our 31 | [Contributor Agreement](https://github.com/rabbitmq/ca#how-to-submit) around the time 32 | you submit your pull request. This will make it much easier (in some cases, possible) 33 | for the RabbitMQ team at Pivotal to merge your contribution. 34 | 35 | 36 | ## Where to Ask Questions 37 | 38 | If something isn't clear, feel free to ask on our [mailing list](https://groups.google.com/forum/#!forum/rabbitmq-users). 39 | -------------------------------------------------------------------------------- /LICENSE: -------------------------------------------------------------------------------- 1 | This package, the RabbitMQ Top plugin, is licensed under the MPL 2.0. For the 2 | MPL 2.0, please see LICENSE-MPL-RabbitMQ. 3 | 4 | If you have any questions regarding licensing, please contact us at 5 | info@rabbitmq.com. 6 | -------------------------------------------------------------------------------- /LICENSE-MPL-RabbitMQ: -------------------------------------------------------------------------------- 1 | Mozilla Public License Version 2.0 2 | ================================== 3 | 4 | 1. Definitions 5 | -------------- 6 | 7 | 1.1. "Contributor" 8 | means each individual or legal entity that creates, contributes to 9 | the creation of, or owns Covered Software. 10 | 11 | 1.2. "Contributor Version" 12 | means the combination of the Contributions of others (if any) used 13 | by a Contributor and that particular Contributor's Contribution. 14 | 15 | 1.3. "Contribution" 16 | means Covered Software of a particular Contributor. 17 | 18 | 1.4. "Covered Software" 19 | means Source Code Form to which the initial Contributor has attached 20 | the notice in Exhibit A, the Executable Form of such Source Code 21 | Form, and Modifications of such Source Code Form, in each case 22 | including portions thereof. 23 | 24 | 1.5. "Incompatible With Secondary Licenses" 25 | means 26 | 27 | (a) that the initial Contributor has attached the notice described 28 | in Exhibit B to the Covered Software; or 29 | 30 | (b) that the Covered Software was made available under the terms of 31 | version 1.1 or earlier of the License, but not also under the 32 | terms of a Secondary License. 33 | 34 | 1.6. "Executable Form" 35 | means any form of the work other than Source Code Form. 36 | 37 | 1.7. "Larger Work" 38 | means a work that combines Covered Software with other material, in 39 | a separate file or files, that is not Covered Software. 40 | 41 | 1.8. "License" 42 | means this document. 43 | 44 | 1.9. "Licensable" 45 | means having the right to grant, to the maximum extent possible, 46 | whether at the time of the initial grant or subsequently, any and 47 | all of the rights conveyed by this License. 48 | 49 | 1.10. "Modifications" 50 | means any of the following: 51 | 52 | (a) any file in Source Code Form that results from an addition to, 53 | deletion from, or modification of the contents of Covered 54 | Software; or 55 | 56 | (b) any new file in Source Code Form that contains any Covered 57 | Software. 58 | 59 | 1.11. "Patent Claims" of a Contributor 60 | means any patent claim(s), including without limitation, method, 61 | process, and apparatus claims, in any patent Licensable by such 62 | Contributor that would be infringed, but for the grant of the 63 | License, by the making, using, selling, offering for sale, having 64 | made, import, or transfer of either its Contributions or its 65 | Contributor Version. 66 | 67 | 1.12. "Secondary License" 68 | means either the GNU General Public License, Version 2.0, the GNU 69 | Lesser General Public License, Version 2.1, the GNU Affero General 70 | Public License, Version 3.0, or any later versions of those 71 | licenses. 72 | 73 | 1.13. "Source Code Form" 74 | means the form of the work preferred for making modifications. 75 | 76 | 1.14. "You" (or "Your") 77 | means an individual or a legal entity exercising rights under this 78 | License. For legal entities, "You" includes any entity that 79 | controls, is controlled by, or is under common control with You. For 80 | purposes of this definition, "control" means (a) the power, direct 81 | or indirect, to cause the direction or management of such entity, 82 | whether by contract or otherwise, or (b) ownership of more than 83 | fifty percent (50%) of the outstanding shares or beneficial 84 | ownership of such entity. 85 | 86 | 2. License Grants and Conditions 87 | -------------------------------- 88 | 89 | 2.1. Grants 90 | 91 | Each Contributor hereby grants You a world-wide, royalty-free, 92 | non-exclusive license: 93 | 94 | (a) under intellectual property rights (other than patent or trademark) 95 | Licensable by such Contributor to use, reproduce, make available, 96 | modify, display, perform, distribute, and otherwise exploit its 97 | Contributions, either on an unmodified basis, with Modifications, or 98 | as part of a Larger Work; and 99 | 100 | (b) under Patent Claims of such Contributor to make, use, sell, offer 101 | for sale, have made, import, and otherwise transfer either its 102 | Contributions or its Contributor Version. 103 | 104 | 2.2. Effective Date 105 | 106 | The licenses granted in Section 2.1 with respect to any Contribution 107 | become effective for each Contribution on the date the Contributor first 108 | distributes such Contribution. 109 | 110 | 2.3. Limitations on Grant Scope 111 | 112 | The licenses granted in this Section 2 are the only rights granted under 113 | this License. No additional rights or licenses will be implied from the 114 | distribution or licensing of Covered Software under this License. 115 | Notwithstanding Section 2.1(b) above, no patent license is granted by a 116 | Contributor: 117 | 118 | (a) for any code that a Contributor has removed from Covered Software; 119 | or 120 | 121 | (b) for infringements caused by: (i) Your and any other third party's 122 | modifications of Covered Software, or (ii) the combination of its 123 | Contributions with other software (except as part of its Contributor 124 | Version); or 125 | 126 | (c) under Patent Claims infringed by Covered Software in the absence of 127 | its Contributions. 128 | 129 | This License does not grant any rights in the trademarks, service marks, 130 | or logos of any Contributor (except as may be necessary to comply with 131 | the notice requirements in Section 3.4). 132 | 133 | 2.4. Subsequent Licenses 134 | 135 | No Contributor makes additional grants as a result of Your choice to 136 | distribute the Covered Software under a subsequent version of this 137 | License (see Section 10.2) or under the terms of a Secondary License (if 138 | permitted under the terms of Section 3.3). 139 | 140 | 2.5. Representation 141 | 142 | Each Contributor represents that the Contributor believes its 143 | Contributions are its original creation(s) or it has sufficient rights 144 | to grant the rights to its Contributions conveyed by this License. 145 | 146 | 2.6. Fair Use 147 | 148 | This License is not intended to limit any rights You have under 149 | applicable copyright doctrines of fair use, fair dealing, or other 150 | equivalents. 151 | 152 | 2.7. Conditions 153 | 154 | Sections 3.1, 3.2, 3.3, and 3.4 are conditions of the licenses granted 155 | in Section 2.1. 156 | 157 | 3. Responsibilities 158 | ------------------- 159 | 160 | 3.1. Distribution of Source Form 161 | 162 | All distribution of Covered Software in Source Code Form, including any 163 | Modifications that You create or to which You contribute, must be under 164 | the terms of this License. You must inform recipients that the Source 165 | Code Form of the Covered Software is governed by the terms of this 166 | License, and how they can obtain a copy of this License. You may not 167 | attempt to alter or restrict the recipients' rights in the Source Code 168 | Form. 169 | 170 | 3.2. Distribution of Executable Form 171 | 172 | If You distribute Covered Software in Executable Form then: 173 | 174 | (a) such Covered Software must also be made available in Source Code 175 | Form, as described in Section 3.1, and You must inform recipients of 176 | the Executable Form how they can obtain a copy of such Source Code 177 | Form by reasonable means in a timely manner, at a charge no more 178 | than the cost of distribution to the recipient; and 179 | 180 | (b) You may distribute such Executable Form under the terms of this 181 | License, or sublicense it under different terms, provided that the 182 | license for the Executable Form does not attempt to limit or alter 183 | the recipients' rights in the Source Code Form under this License. 184 | 185 | 3.3. Distribution of a Larger Work 186 | 187 | You may create and distribute a Larger Work under terms of Your choice, 188 | provided that You also comply with the requirements of this License for 189 | the Covered Software. If the Larger Work is a combination of Covered 190 | Software with a work governed by one or more Secondary Licenses, and the 191 | Covered Software is not Incompatible With Secondary Licenses, this 192 | License permits You to additionally distribute such Covered Software 193 | under the terms of such Secondary License(s), so that the recipient of 194 | the Larger Work may, at their option, further distribute the Covered 195 | Software under the terms of either this License or such Secondary 196 | License(s). 197 | 198 | 3.4. Notices 199 | 200 | You may not remove or alter the substance of any license notices 201 | (including copyright notices, patent notices, disclaimers of warranty, 202 | or limitations of liability) contained within the Source Code Form of 203 | the Covered Software, except that You may alter any license notices to 204 | the extent required to remedy known factual inaccuracies. 205 | 206 | 3.5. Application of Additional Terms 207 | 208 | You may choose to offer, and to charge a fee for, warranty, support, 209 | indemnity or liability obligations to one or more recipients of Covered 210 | Software. However, You may do so only on Your own behalf, and not on 211 | behalf of any Contributor. You must make it absolutely clear that any 212 | such warranty, support, indemnity, or liability obligation is offered by 213 | You alone, and You hereby agree to indemnify every Contributor for any 214 | liability incurred by such Contributor as a result of warranty, support, 215 | indemnity or liability terms You offer. You may include additional 216 | disclaimers of warranty and limitations of liability specific to any 217 | jurisdiction. 218 | 219 | 4. Inability to Comply Due to Statute or Regulation 220 | --------------------------------------------------- 221 | 222 | If it is impossible for You to comply with any of the terms of this 223 | License with respect to some or all of the Covered Software due to 224 | statute, judicial order, or regulation then You must: (a) comply with 225 | the terms of this License to the maximum extent possible; and (b) 226 | describe the limitations and the code they affect. Such description must 227 | be placed in a text file included with all distributions of the Covered 228 | Software under this License. Except to the extent prohibited by statute 229 | or regulation, such description must be sufficiently detailed for a 230 | recipient of ordinary skill to be able to understand it. 231 | 232 | 5. Termination 233 | -------------- 234 | 235 | 5.1. The rights granted under this License will terminate automatically 236 | if You fail to comply with any of its terms. However, if You become 237 | compliant, then the rights granted under this License from a particular 238 | Contributor are reinstated (a) provisionally, unless and until such 239 | Contributor explicitly and finally terminates Your grants, and (b) on an 240 | ongoing basis, if such Contributor fails to notify You of the 241 | non-compliance by some reasonable means prior to 60 days after You have 242 | come back into compliance. Moreover, Your grants from a particular 243 | Contributor are reinstated on an ongoing basis if such Contributor 244 | notifies You of the non-compliance by some reasonable means, this is the 245 | first time You have received notice of non-compliance with this License 246 | from such Contributor, and You become compliant prior to 30 days after 247 | Your receipt of the notice. 248 | 249 | 5.2. If You initiate litigation against any entity by asserting a patent 250 | infringement claim (excluding declaratory judgment actions, 251 | counter-claims, and cross-claims) alleging that a Contributor Version 252 | directly or indirectly infringes any patent, then the rights granted to 253 | You by any and all Contributors for the Covered Software under Section 254 | 2.1 of this License shall terminate. 255 | 256 | 5.3. In the event of termination under Sections 5.1 or 5.2 above, all 257 | end user license agreements (excluding distributors and resellers) which 258 | have been validly granted by You or Your distributors under this License 259 | prior to termination shall survive termination. 260 | 261 | ************************************************************************ 262 | * * 263 | * 6. Disclaimer of Warranty * 264 | * ------------------------- * 265 | * * 266 | * Covered Software is provided under this License on an "as is" * 267 | * basis, without warranty of any kind, either expressed, implied, or * 268 | * statutory, including, without limitation, warranties that the * 269 | * Covered Software is free of defects, merchantable, fit for a * 270 | * particular purpose or non-infringing. The entire risk as to the * 271 | * quality and performance of the Covered Software is with You. * 272 | * Should any Covered Software prove defective in any respect, You * 273 | * (not any Contributor) assume the cost of any necessary servicing, * 274 | * repair, or correction. This disclaimer of warranty constitutes an * 275 | * essential part of this License. No use of any Covered Software is * 276 | * authorized under this License except under this disclaimer. * 277 | * * 278 | ************************************************************************ 279 | 280 | ************************************************************************ 281 | * * 282 | * 7. Limitation of Liability * 283 | * -------------------------- * 284 | * * 285 | * Under no circumstances and under no legal theory, whether tort * 286 | * (including negligence), contract, or otherwise, shall any * 287 | * Contributor, or anyone who distributes Covered Software as * 288 | * permitted above, be liable to You for any direct, indirect, * 289 | * special, incidental, or consequential damages of any character * 290 | * including, without limitation, damages for lost profits, loss of * 291 | * goodwill, work stoppage, computer failure or malfunction, or any * 292 | * and all other commercial damages or losses, even if such party * 293 | * shall have been informed of the possibility of such damages. This * 294 | * limitation of liability shall not apply to liability for death or * 295 | * personal injury resulting from such party's negligence to the * 296 | * extent applicable law prohibits such limitation. Some * 297 | * jurisdictions do not allow the exclusion or limitation of * 298 | * incidental or consequential damages, so this exclusion and * 299 | * limitation may not apply to You. * 300 | * * 301 | ************************************************************************ 302 | 303 | 8. Litigation 304 | ------------- 305 | 306 | Any litigation relating to this License may be brought only in the 307 | courts of a jurisdiction where the defendant maintains its principal 308 | place of business and such litigation shall be governed by laws of that 309 | jurisdiction, without reference to its conflict-of-law provisions. 310 | Nothing in this Section shall prevent a party's ability to bring 311 | cross-claims or counter-claims. 312 | 313 | 9. Miscellaneous 314 | ---------------- 315 | 316 | This License represents the complete agreement concerning the subject 317 | matter hereof. If any provision of this License is held to be 318 | unenforceable, such provision shall be reformed only to the extent 319 | necessary to make it enforceable. Any law or regulation which provides 320 | that the language of a contract shall be construed against the drafter 321 | shall not be used to construe this License against a Contributor. 322 | 323 | 10. Versions of the License 324 | --------------------------- 325 | 326 | 10.1. New Versions 327 | 328 | Mozilla Foundation is the license steward. Except as provided in Section 329 | 10.3, no one other than the license steward has the right to modify or 330 | publish new versions of this License. Each version will be given a 331 | distinguishing version number. 332 | 333 | 10.2. Effect of New Versions 334 | 335 | You may distribute the Covered Software under the terms of the version 336 | of the License under which You originally received the Covered Software, 337 | or under the terms of any subsequent version published by the license 338 | steward. 339 | 340 | 10.3. Modified Versions 341 | 342 | If you create software not governed by this License, and you want to 343 | create a new license for such software, you may create and use a 344 | modified version of this License if you rename the license and remove 345 | any references to the name of the license steward (except to note that 346 | such modified license differs from this License). 347 | 348 | 10.4. Distributing Source Code Form that is Incompatible With Secondary 349 | Licenses 350 | 351 | If You choose to distribute Source Code Form that is Incompatible With 352 | Secondary Licenses under the terms of this version of the License, the 353 | notice described in Exhibit B of this License must be attached. 354 | 355 | Exhibit A - Source Code Form License Notice 356 | ------------------------------------------- 357 | 358 | This Source Code Form is subject to the terms of the Mozilla Public 359 | License, v. 2.0. If a copy of the MPL was not distributed with this 360 | file, You can obtain one at http://mozilla.org/MPL/2.0/. 361 | 362 | If it is not possible or desirable to put the notice in a particular 363 | file, then You may include the notice in a location (such as a LICENSE 364 | file in a relevant directory) where a recipient would be likely to look 365 | for such a notice. 366 | 367 | You may add additional accurate notices of copyright ownership. 368 | 369 | Exhibit B - "Incompatible With Secondary Licenses" Notice 370 | --------------------------------------------------------- 371 | 372 | This Source Code Form is "Incompatible With Secondary Licenses", as 373 | defined by the Mozilla Public License, v. 2.0. 374 | -------------------------------------------------------------------------------- /Makefile: -------------------------------------------------------------------------------- 1 | PROJECT = rabbitmq_top 2 | PROJECT_DESCRIPTION = RabbitMQ Top 3 | PROJECT_MOD = rabbit_top_app 4 | 5 | define PROJECT_APP_EXTRA_KEYS 6 | {broker_version_requirements, []} 7 | endef 8 | 9 | DEPS = rabbit_common rabbit amqp_client rabbitmq_management 10 | 11 | DEP_EARLY_PLUGINS = rabbit_common/mk/rabbitmq-early-plugin.mk 12 | DEP_PLUGINS = rabbit_common/mk/rabbitmq-plugin.mk 13 | 14 | # FIXME: Use erlang.mk patched for RabbitMQ, while waiting for PRs to be 15 | # reviewed and merged. 16 | 17 | ERLANG_MK_REPO = https://github.com/rabbitmq/erlang.mk.git 18 | ERLANG_MK_COMMIT = rabbitmq-tmp 19 | 20 | include rabbitmq-components.mk 21 | include erlang.mk 22 | -------------------------------------------------------------------------------- /README.md: -------------------------------------------------------------------------------- 1 | # RabbitMQ Top Plugin 2 | 3 | ## This was migrated to https://github.com/rabbitmq/rabbitmq-server 4 | 5 | This repository has been moved to the main unified RabbitMQ "monorepo", including all open issues. You can find the source under [/deps/rabbitmq_top](https://github.com/rabbitmq/rabbitmq-server/tree/master/deps/rabbitmq_top). 6 | All issues have been transferred. 7 | 8 | ## Introduction 9 | 10 | Adds UNIX top-like information on the Erlang VM to the [management UI](https://www.rabbitmq.com/management.html). 11 | The closest interactive CLI alternative in recent releases is `rabbitmq-diagnostics observer`. 12 | 13 | This is what it looks like: 14 | 15 | ![](https://i.imgur.com/m7cWTLV.pngP) 16 | 17 | ## Installation 18 | 19 | This plugin ships with RabbitMQ as of `3.6.3`. Enable it with 20 | 21 | ``` bash 22 | # use sudo as necessary 23 | rabbitmq-plugins enable rabbitmq_top 24 | ``` 25 | 26 | ### RabbitMQ 3.5.x 27 | 28 | You can download a pre-built binary of this plugin for RabbitMQ `3.5.x` from [RabbitMQ Community plugins page](https://bintray.com/rabbitmq/community-plugins/rabbitmq_top). 29 | 30 | 31 | ## Usage 32 | 33 | Sort by process ID, memory use or reductions/sec (an approximate 34 | measure of CPU use). 35 | 36 | Click on the process description (e.g. "my queue") to see that 37 | object's management view. 38 | 39 | Click on the process ID (e.g. "<0.3423.0>") to see some more 40 | Erlang process details. 41 | 42 | See [Memory Use Analysis guide](https://www.rabbitmq.com/memory-use.html) on RabbitMQ website 43 | for more information. 44 | 45 | ## HTTP API 46 | 47 | You can drive the HTTP API yourself. It installs into the management plugin's API; you should understand that first. Once you do, the additional paths look like: 48 | 49 | /api/top/ 50 | 51 | List of processes. Takes similar query string parameters to other 52 | lists, `sort`, `sort_reverse` and `columns`. Sorting is quite 53 | important as it currently hard-codes returning the top 20 processes. 54 | 55 | /api/process/ 56 | 57 | Individual process details. 58 | 59 | ## More Screenshots 60 | 61 | Individual process metrics are also available: 62 | 63 | ![](https://i.imgur.com/BYgIqQF.png) 64 | 65 | ## Building from Source 66 | 67 | You can build and install it like any other plugin (see 68 | [the plugin development guide](https://www.rabbitmq.com/plugin-development.html)). 69 | 70 | ## License and Copyright 71 | 72 | (c) 2007-2020 VMware, Inc. or its affiliates. 73 | 74 | Released under the same license as RabbitMQ. 75 | -------------------------------------------------------------------------------- /priv/www/js/tmpl/ets_tables.ejs: -------------------------------------------------------------------------------- 1 |

Top ETS Tables: <%= top.node %>

2 | 3 |

4 | Node: 5 | 10 | 11 | Rows: 12 | 22 |

23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | <% 39 | for (var i = 0; i < top.ets_tables.length; i++) { 40 | var table = top.ets_tables[i]; 41 | %> 42 | > 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | <% } %> 53 | 54 |
<%= fmt_sort_desc_by_default('Name', 'name') %><%= fmt_sort_desc_by_default('Owner Name', 'owner_name') %><%= fmt_sort_desc_by_default('Memory', 'memory') %><%= fmt_sort_desc_by_default('Size', 'size') %><%= fmt_sort_desc_by_default('Type', 'type') %><%= fmt_sort_desc_by_default('Named', 'named_table') %>ProtectionCompressed
<%= fmt_string(table.name) %><%= fmt_string(table.owner_name) %><%= fmt_bytes(table.memory * 1.0) %><%= table.size %><%= table.type %><%= table.named_table %><%= table.protection %><%= table.compressed %>
55 | -------------------------------------------------------------------------------- /priv/www/js/tmpl/process.ejs: -------------------------------------------------------------------------------- 1 |

Process: <%= fmt_string(process.pid) %>

2 | 3 |
4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | 53 | 54 | 55 | 56 | 57 |
Description<%= fmt_process_name(process) %>
Type<%= fmt_remove_rabbit_prefix(process.name.type) %>
Memory<%= fmt_bytes(process.memory) %>
Reductions / sec<%= fmt_reduction_delta(process.reduction_delta) %>
Total reductions<%= process.reductions %>
Erlang mailbox<%= process.message_queue_len %>
gen_server2 buffer 
<%= process.buffer_len %>
Status<%= process.status %>
Trap exit<%= fmt_boolean(process.trap_exit) %>
Links<%= fmt_pids(process.links) %>
Monitors<%= fmt_pids(process.monitors) %>
Monitored by<%= fmt_pids(process.monitored_by) %>
Current stacktrace
<%= fmt_string(process.current_stacktrace) %>
58 |
59 | -------------------------------------------------------------------------------- /priv/www/js/tmpl/processes.ejs: -------------------------------------------------------------------------------- 1 |

Top Processes: <%= top.node %>

2 | 3 |

4 | Node: 5 | 10 | 11 | Rows: 12 | 22 |

23 | 24 | 25 | 26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | <% 39 | for (var i = 0; i < top.processes.length; i++) { 40 | var process = top.processes[i]; 41 | %> 42 | > 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 | 51 | 52 | <% } %> 53 | 54 |
<%= fmt_sort_desc_by_default('Process', 'pid') %>DescriptionType<%= fmt_sort_desc_by_default('Memory', 'memory') %><%= fmt_sort_desc_by_default('Reductions / sec', 'reduction_delta') %><%= fmt_sort_desc_by_default('Erlang mailbox', 'message_queue_len') %><%= fmt_sort_desc_by_default('gen_server2 buffer', 'buffer_len') %>Status
<%= link_pid(process.pid) %><%= fmt_process_name(process) %><%= fmt_remove_rabbit_prefix(process.name.type) %><%= fmt_bytes(process.memory * 1.0) %><%= fmt_reduction_delta(process.reduction_delta) %><%= process.message_queue_len %><%= process.buffer_len %><%= process.status %>
55 | -------------------------------------------------------------------------------- /priv/www/js/top.js: -------------------------------------------------------------------------------- 1 | // This Source Code Form is subject to the terms of the Mozilla Public 2 | // License, v. 2.0. If a copy of the MPL was not distributed with this 3 | // file, You can obtain one at https://mozilla.org/MPL/2.0/. 4 | // 5 | // Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved. 6 | 7 | dispatcher_add(function(sammy) { 8 | sammy.get('#/top', function() { 9 | var nodes = JSON.parse(sync_get('/nodes')); 10 | go_to('#/top/' + nodes[0].name + "/20"); 11 | }); 12 | sammy.get('#/top/ets', function() { 13 | var nodes = JSON.parse(sync_get('/nodes')); 14 | go_to('#/top/ets/' + nodes[0].name + "/20"); 15 | }); 16 | sammy.get('#/top/:node/:row_count', function() { 17 | render({'top': {path: '/top/' + esc(this.params['node']), 18 | options: {sort: true, 19 | row_count: this.params['row_count']}}, 20 | 'nodes': '/nodes'}, 21 | 'processes', '#/top'); 22 | }); 23 | sammy.get('#/top/ets/:node/:row_count', function() { 24 | render({'top': {path: '/top/ets/' + esc(this.params['node']), 25 | options: {sort: true, 26 | row_count: this.params['row_count']}}, 27 | 'nodes': '/nodes'}, 28 | 'ets_tables', '#/top/ets'); 29 | }); 30 | sammy.get('#/process/:pid', function() { 31 | render({'process': '/process/' + esc(this.params['pid'])}, 32 | 'process', '#/top'); 33 | }); 34 | }); 35 | 36 | NAVIGATION['Admin'][0]['Top Processes'] = ['#/top', 'administrator']; 37 | NAVIGATION['Admin'][0]['Top ETS Tables'] = ['#/top/ets', 'administrator']; 38 | 39 | HELP['gen-server2-buffer'] = "The processes with a gen_server2 buffer value of \>= 0 are of type gen_server2. " + 40 | "They drain their Erlang mailbox into an internal queue as an optimisation. " + 41 | "In this context, \"queue\" refers to an internal data structure and must not be confused with a RabbitMQ queue."; 42 | 43 | $(document).on('change', 'select#top-node', function() { 44 | var url='#/top/' + $(this).val() + "/" + $('select#row-count').val(); 45 | go_to(url); 46 | }); 47 | 48 | $(document).on('change', 'select#top-node-ets', function() { 49 | var url='#/top/ets/' + $(this).val() + "/" + $('select#row-count-ets').val(); 50 | go_to(url); 51 | }); 52 | 53 | $(document).on('change', 'select#row-count', function() { 54 | go_to('#/top/' + $('select#top-node').val() + "/" + $(this).val()); 55 | }); 56 | 57 | $(document).on('change', 'select#row-count-ets', function() { 58 | go_to('#/top/ets/' + $('select#top-node-ets').val() + "/" + $(this).val()); 59 | }); 60 | 61 | function link_pid(name) { 62 | return _link_to(name, '#/process/' + esc(name)); 63 | } 64 | 65 | // fmt_sort assumes ascending ordering by default and 66 | // relies on two global variables, current_sort and current_sort_reverse. 67 | // rabbitmq-top, however, wants to sort things in descending order by default 68 | // because otherwise it is useless on initial page load. 69 | // 70 | // Thsi discrepancy means that either in the management UI or in the top 71 | // tables the sorting indicator (a triangle) will be reversed. 72 | // 73 | // Changing the global variables has side effects, so we 74 | // copy fmt_sort here and flip the arrow to meet top's needs. 75 | function fmt_sort_desc_by_default(display, sort) { 76 | var prefix = ''; 77 | if (current_sort == sort) { 78 | prefix = '' + 79 | (current_sort_reverse ? '▲ ' : '▼ ') + 80 | ''; 81 | } 82 | return '' + prefix + display + ''; 83 | } 84 | 85 | function fmt_process_name(process) { 86 | if (process == undefined) return ''; 87 | var name = process.name; 88 | 89 | if (name.supertype != undefined) { 90 | if (name.supertype == 'channel') { 91 | return link_channel(name.connection_name + ' (' + 92 | name.channel_number + ')'); 93 | } 94 | else if (name.supertype == 'queue') { 95 | return link_queue(name.vhost, name.queue_name); 96 | } 97 | else if (name.supertype == 'connection') { 98 | return link_conn(name.connection_name); 99 | } 100 | } 101 | else { 102 | return '' + name.name + ''; 103 | } 104 | } 105 | 106 | function fmt_remove_rabbit_prefix(name) { 107 | if (name == 'rabbit_amqqueue_process') return 'queue'; 108 | 109 | if (name.substring(0, 7) == 'rabbit_') { 110 | return name.substring(7); 111 | } 112 | else { 113 | return name; 114 | } 115 | } 116 | 117 | function fmt_pids(pids) { 118 | var txt = ''; 119 | for (var i = 0; i < pids.length; i++) { 120 | txt += link_pid(pids[i]) + ' '; 121 | } 122 | 123 | return txt; 124 | } 125 | 126 | function fmt_reduction_delta(delta) { 127 | return Math.round(delta / 5); // gen_server updates every 5s 128 | } 129 | -------------------------------------------------------------------------------- /rabbitmq-components.mk: -------------------------------------------------------------------------------- 1 | ifeq ($(.DEFAULT_GOAL),) 2 | # Define default goal to `all` because this file defines some targets 3 | # before the inclusion of erlang.mk leading to the wrong target becoming 4 | # the default. 5 | .DEFAULT_GOAL = all 6 | endif 7 | 8 | # PROJECT_VERSION defaults to: 9 | # 1. the version exported by rabbitmq-server-release; 10 | # 2. the version stored in `git-revisions.txt`, if it exists; 11 | # 3. a version based on git-describe(1), if it is a Git clone; 12 | # 4. 0.0.0 13 | 14 | PROJECT_VERSION := $(RABBITMQ_VERSION) 15 | 16 | ifeq ($(PROJECT_VERSION),) 17 | PROJECT_VERSION := $(shell \ 18 | if test -f git-revisions.txt; then \ 19 | head -n1 git-revisions.txt | \ 20 | awk '{print $$$(words $(PROJECT_DESCRIPTION) version);}'; \ 21 | else \ 22 | (git describe --dirty --abbrev=7 --tags --always --first-parent \ 23 | 2>/dev/null || echo rabbitmq_v0_0_0) | \ 24 | sed -e 's/^rabbitmq_v//' -e 's/^v//' -e 's/_/./g' -e 's/-/+/' \ 25 | -e 's/-/./g'; \ 26 | fi) 27 | endif 28 | 29 | # -------------------------------------------------------------------- 30 | # RabbitMQ components. 31 | # -------------------------------------------------------------------- 32 | 33 | # For RabbitMQ repositories, we want to checkout branches which match 34 | # the parent project. For instance, if the parent project is on a 35 | # release tag, dependencies must be on the same release tag. If the 36 | # parent project is on a topic branch, dependencies must be on the same 37 | # topic branch or fallback to `stable` or `master` whichever was the 38 | # base of the topic branch. 39 | 40 | dep_amqp_client = git_rmq rabbitmq-erlang-client $(current_rmq_ref) $(base_rmq_ref) master 41 | dep_amqp10_client = git_rmq rabbitmq-amqp1.0-client $(current_rmq_ref) $(base_rmq_ref) master 42 | dep_amqp10_common = git_rmq rabbitmq-amqp1.0-common $(current_rmq_ref) $(base_rmq_ref) master 43 | dep_rabbit = git_rmq rabbitmq-server $(current_rmq_ref) $(base_rmq_ref) master 44 | dep_rabbit_common = git_rmq rabbitmq-common $(current_rmq_ref) $(base_rmq_ref) master 45 | dep_rabbitmq_amqp1_0 = git_rmq rabbitmq-amqp1.0 $(current_rmq_ref) $(base_rmq_ref) master 46 | dep_rabbitmq_auth_backend_amqp = git_rmq rabbitmq-auth-backend-amqp $(current_rmq_ref) $(base_rmq_ref) master 47 | dep_rabbitmq_auth_backend_cache = git_rmq rabbitmq-auth-backend-cache $(current_rmq_ref) $(base_rmq_ref) master 48 | dep_rabbitmq_auth_backend_http = git_rmq rabbitmq-auth-backend-http $(current_rmq_ref) $(base_rmq_ref) master 49 | dep_rabbitmq_auth_backend_ldap = git_rmq rabbitmq-auth-backend-ldap $(current_rmq_ref) $(base_rmq_ref) master 50 | dep_rabbitmq_auth_backend_oauth2 = git_rmq rabbitmq-auth-backend-oauth2 $(current_rmq_ref) $(base_rmq_ref) master 51 | dep_rabbitmq_auth_mechanism_ssl = git_rmq rabbitmq-auth-mechanism-ssl $(current_rmq_ref) $(base_rmq_ref) master 52 | dep_rabbitmq_aws = git_rmq rabbitmq-aws $(current_rmq_ref) $(base_rmq_ref) master 53 | dep_rabbitmq_boot_steps_visualiser = git_rmq rabbitmq-boot-steps-visualiser $(current_rmq_ref) $(base_rmq_ref) master 54 | dep_rabbitmq_cli = git_rmq rabbitmq-cli $(current_rmq_ref) $(base_rmq_ref) master 55 | dep_rabbitmq_codegen = git_rmq rabbitmq-codegen $(current_rmq_ref) $(base_rmq_ref) master 56 | dep_rabbitmq_consistent_hash_exchange = git_rmq rabbitmq-consistent-hash-exchange $(current_rmq_ref) $(base_rmq_ref) master 57 | dep_rabbitmq_ct_client_helpers = git_rmq rabbitmq-ct-client-helpers $(current_rmq_ref) $(base_rmq_ref) master 58 | dep_rabbitmq_ct_helpers = git_rmq rabbitmq-ct-helpers $(current_rmq_ref) $(base_rmq_ref) master 59 | dep_rabbitmq_delayed_message_exchange = git_rmq rabbitmq-delayed-message-exchange $(current_rmq_ref) $(base_rmq_ref) master 60 | dep_rabbitmq_dotnet_client = git_rmq rabbitmq-dotnet-client $(current_rmq_ref) $(base_rmq_ref) master 61 | dep_rabbitmq_event_exchange = git_rmq rabbitmq-event-exchange $(current_rmq_ref) $(base_rmq_ref) master 62 | dep_rabbitmq_federation = git_rmq rabbitmq-federation $(current_rmq_ref) $(base_rmq_ref) master 63 | dep_rabbitmq_federation_management = git_rmq rabbitmq-federation-management $(current_rmq_ref) $(base_rmq_ref) master 64 | dep_rabbitmq_java_client = git_rmq rabbitmq-java-client $(current_rmq_ref) $(base_rmq_ref) master 65 | dep_rabbitmq_jms_client = git_rmq rabbitmq-jms-client $(current_rmq_ref) $(base_rmq_ref) master 66 | dep_rabbitmq_jms_cts = git_rmq rabbitmq-jms-cts $(current_rmq_ref) $(base_rmq_ref) master 67 | dep_rabbitmq_jms_topic_exchange = git_rmq rabbitmq-jms-topic-exchange $(current_rmq_ref) $(base_rmq_ref) master 68 | dep_rabbitmq_lvc_exchange = git_rmq rabbitmq-lvc-exchange $(current_rmq_ref) $(base_rmq_ref) master 69 | dep_rabbitmq_management = git_rmq rabbitmq-management $(current_rmq_ref) $(base_rmq_ref) master 70 | dep_rabbitmq_management_agent = git_rmq rabbitmq-management-agent $(current_rmq_ref) $(base_rmq_ref) master 71 | dep_rabbitmq_management_exchange = git_rmq rabbitmq-management-exchange $(current_rmq_ref) $(base_rmq_ref) master 72 | dep_rabbitmq_management_themes = git_rmq rabbitmq-management-themes $(current_rmq_ref) $(base_rmq_ref) master 73 | dep_rabbitmq_message_timestamp = git_rmq rabbitmq-message-timestamp $(current_rmq_ref) $(base_rmq_ref) master 74 | dep_rabbitmq_metronome = git_rmq rabbitmq-metronome $(current_rmq_ref) $(base_rmq_ref) master 75 | dep_rabbitmq_mqtt = git_rmq rabbitmq-mqtt $(current_rmq_ref) $(base_rmq_ref) master 76 | dep_rabbitmq_objc_client = git_rmq rabbitmq-objc-client $(current_rmq_ref) $(base_rmq_ref) master 77 | dep_rabbitmq_peer_discovery_aws = git_rmq rabbitmq-peer-discovery-aws $(current_rmq_ref) $(base_rmq_ref) master 78 | dep_rabbitmq_peer_discovery_common = git_rmq rabbitmq-peer-discovery-common $(current_rmq_ref) $(base_rmq_ref) master 79 | dep_rabbitmq_peer_discovery_consul = git_rmq rabbitmq-peer-discovery-consul $(current_rmq_ref) $(base_rmq_ref) master 80 | dep_rabbitmq_peer_discovery_etcd = git_rmq rabbitmq-peer-discovery-etcd $(current_rmq_ref) $(base_rmq_ref) master 81 | dep_rabbitmq_peer_discovery_k8s = git_rmq rabbitmq-peer-discovery-k8s $(current_rmq_ref) $(base_rmq_ref) master 82 | dep_rabbitmq_prometheus = git_rmq rabbitmq-prometheus $(current_rmq_ref) $(base_rmq_ref) master 83 | dep_rabbitmq_random_exchange = git_rmq rabbitmq-random-exchange $(current_rmq_ref) $(base_rmq_ref) master 84 | dep_rabbitmq_recent_history_exchange = git_rmq rabbitmq-recent-history-exchange $(current_rmq_ref) $(base_rmq_ref) master 85 | dep_rabbitmq_routing_node_stamp = git_rmq rabbitmq-routing-node-stamp $(current_rmq_ref) $(base_rmq_ref) master 86 | dep_rabbitmq_rtopic_exchange = git_rmq rabbitmq-rtopic-exchange $(current_rmq_ref) $(base_rmq_ref) master 87 | dep_rabbitmq_server_release = git_rmq rabbitmq-server-release $(current_rmq_ref) $(base_rmq_ref) master 88 | dep_rabbitmq_sharding = git_rmq rabbitmq-sharding $(current_rmq_ref) $(base_rmq_ref) master 89 | dep_rabbitmq_shovel = git_rmq rabbitmq-shovel $(current_rmq_ref) $(base_rmq_ref) master 90 | dep_rabbitmq_shovel_management = git_rmq rabbitmq-shovel-management $(current_rmq_ref) $(base_rmq_ref) master 91 | dep_rabbitmq_stomp = git_rmq rabbitmq-stomp $(current_rmq_ref) $(base_rmq_ref) master 92 | dep_rabbitmq_stream = git_rmq rabbitmq-stream $(current_rmq_ref) $(base_rmq_ref) master 93 | dep_rabbitmq_toke = git_rmq rabbitmq-toke $(current_rmq_ref) $(base_rmq_ref) master 94 | dep_rabbitmq_top = git_rmq rabbitmq-top $(current_rmq_ref) $(base_rmq_ref) master 95 | dep_rabbitmq_tracing = git_rmq rabbitmq-tracing $(current_rmq_ref) $(base_rmq_ref) master 96 | dep_rabbitmq_trust_store = git_rmq rabbitmq-trust-store $(current_rmq_ref) $(base_rmq_ref) master 97 | dep_rabbitmq_test = git_rmq rabbitmq-test $(current_rmq_ref) $(base_rmq_ref) master 98 | dep_rabbitmq_web_dispatch = git_rmq rabbitmq-web-dispatch $(current_rmq_ref) $(base_rmq_ref) master 99 | dep_rabbitmq_web_stomp = git_rmq rabbitmq-web-stomp $(current_rmq_ref) $(base_rmq_ref) master 100 | dep_rabbitmq_web_stomp_examples = git_rmq rabbitmq-web-stomp-examples $(current_rmq_ref) $(base_rmq_ref) master 101 | dep_rabbitmq_web_mqtt = git_rmq rabbitmq-web-mqtt $(current_rmq_ref) $(base_rmq_ref) master 102 | dep_rabbitmq_web_mqtt_examples = git_rmq rabbitmq-web-mqtt-examples $(current_rmq_ref) $(base_rmq_ref) master 103 | dep_rabbitmq_website = git_rmq rabbitmq-website $(current_rmq_ref) $(base_rmq_ref) live master 104 | dep_toke = git_rmq toke $(current_rmq_ref) $(base_rmq_ref) master 105 | 106 | dep_rabbitmq_public_umbrella = git_rmq rabbitmq-public-umbrella $(current_rmq_ref) $(base_rmq_ref) master 107 | 108 | # Third-party dependencies version pinning. 109 | # 110 | # We do that in this file, which is copied in all projects, to ensure 111 | # all projects use the same versions. It avoids conflicts and makes it 112 | # possible to work with rabbitmq-public-umbrella. 113 | 114 | dep_accept = hex 0.3.5 115 | dep_cowboy = hex 2.8.0 116 | dep_cowlib = hex 2.9.1 117 | dep_jsx = hex 2.11.0 118 | dep_lager = hex 3.8.0 119 | dep_prometheus = git https://github.com/deadtrickster/prometheus.erl.git master 120 | dep_ra = git https://github.com/rabbitmq/ra.git master 121 | dep_ranch = hex 1.7.1 122 | dep_recon = hex 2.5.1 123 | dep_observer_cli = hex 1.5.4 124 | dep_stdout_formatter = hex 0.2.4 125 | dep_sysmon_handler = hex 1.3.0 126 | 127 | RABBITMQ_COMPONENTS = amqp_client \ 128 | amqp10_common \ 129 | amqp10_client \ 130 | rabbit \ 131 | rabbit_common \ 132 | rabbitmq_amqp1_0 \ 133 | rabbitmq_auth_backend_amqp \ 134 | rabbitmq_auth_backend_cache \ 135 | rabbitmq_auth_backend_http \ 136 | rabbitmq_auth_backend_ldap \ 137 | rabbitmq_auth_backend_oauth2 \ 138 | rabbitmq_auth_mechanism_ssl \ 139 | rabbitmq_aws \ 140 | rabbitmq_boot_steps_visualiser \ 141 | rabbitmq_cli \ 142 | rabbitmq_codegen \ 143 | rabbitmq_consistent_hash_exchange \ 144 | rabbitmq_ct_client_helpers \ 145 | rabbitmq_ct_helpers \ 146 | rabbitmq_delayed_message_exchange \ 147 | rabbitmq_dotnet_client \ 148 | rabbitmq_event_exchange \ 149 | rabbitmq_federation \ 150 | rabbitmq_federation_management \ 151 | rabbitmq_java_client \ 152 | rabbitmq_jms_client \ 153 | rabbitmq_jms_cts \ 154 | rabbitmq_jms_topic_exchange \ 155 | rabbitmq_lvc_exchange \ 156 | rabbitmq_management \ 157 | rabbitmq_management_agent \ 158 | rabbitmq_management_exchange \ 159 | rabbitmq_management_themes \ 160 | rabbitmq_message_timestamp \ 161 | rabbitmq_metronome \ 162 | rabbitmq_mqtt \ 163 | rabbitmq_objc_client \ 164 | rabbitmq_peer_discovery_aws \ 165 | rabbitmq_peer_discovery_common \ 166 | rabbitmq_peer_discovery_consul \ 167 | rabbitmq_peer_discovery_etcd \ 168 | rabbitmq_peer_discovery_k8s \ 169 | rabbitmq_prometheus \ 170 | rabbitmq_random_exchange \ 171 | rabbitmq_recent_history_exchange \ 172 | rabbitmq_routing_node_stamp \ 173 | rabbitmq_rtopic_exchange \ 174 | rabbitmq_server_release \ 175 | rabbitmq_sharding \ 176 | rabbitmq_shovel \ 177 | rabbitmq_shovel_management \ 178 | rabbitmq_stomp \ 179 | rabbitmq_stream \ 180 | rabbitmq_toke \ 181 | rabbitmq_top \ 182 | rabbitmq_tracing \ 183 | rabbitmq_trust_store \ 184 | rabbitmq_web_dispatch \ 185 | rabbitmq_web_mqtt \ 186 | rabbitmq_web_mqtt_examples \ 187 | rabbitmq_web_stomp \ 188 | rabbitmq_web_stomp_examples \ 189 | rabbitmq_website 190 | 191 | # Erlang.mk does not rebuild dependencies by default, once they were 192 | # compiled once, except for those listed in the `$(FORCE_REBUILD)` 193 | # variable. 194 | # 195 | # We want all RabbitMQ components to always be rebuilt: this eases 196 | # the work on several components at the same time. 197 | 198 | FORCE_REBUILD = $(RABBITMQ_COMPONENTS) 199 | 200 | # Several components have a custom erlang.mk/build.config, mainly 201 | # to disable eunit. Therefore, we can't use the top-level project's 202 | # erlang.mk copy. 203 | NO_AUTOPATCH += $(RABBITMQ_COMPONENTS) 204 | 205 | ifeq ($(origin current_rmq_ref),undefined) 206 | ifneq ($(wildcard .git),) 207 | current_rmq_ref := $(shell (\ 208 | ref=$$(LANG=C git branch --list | awk '/^\* \(.*detached / {ref=$$0; sub(/.*detached [^ ]+ /, "", ref); sub(/\)$$/, "", ref); print ref; exit;} /^\* / {ref=$$0; sub(/^\* /, "", ref); print ref; exit}');\ 209 | if test "$$(git rev-parse --short HEAD)" != "$$ref"; then echo "$$ref"; fi)) 210 | else 211 | current_rmq_ref := master 212 | endif 213 | endif 214 | export current_rmq_ref 215 | 216 | ifeq ($(origin base_rmq_ref),undefined) 217 | ifneq ($(wildcard .git),) 218 | possible_base_rmq_ref := master 219 | ifeq ($(possible_base_rmq_ref),$(current_rmq_ref)) 220 | base_rmq_ref := $(current_rmq_ref) 221 | else 222 | base_rmq_ref := $(shell \ 223 | (git rev-parse --verify -q master >/dev/null && \ 224 | git rev-parse --verify -q $(possible_base_rmq_ref) >/dev/null && \ 225 | git merge-base --is-ancestor $$(git merge-base master HEAD) $(possible_base_rmq_ref) && \ 226 | echo $(possible_base_rmq_ref)) || \ 227 | echo master) 228 | endif 229 | else 230 | base_rmq_ref := master 231 | endif 232 | endif 233 | export base_rmq_ref 234 | 235 | # Repository URL selection. 236 | # 237 | # First, we infer other components' location from the current project 238 | # repository URL, if it's a Git repository: 239 | # - We take the "origin" remote URL as the base 240 | # - The current project name and repository name is replaced by the 241 | # target's properties: 242 | # eg. rabbitmq-common is replaced by rabbitmq-codegen 243 | # eg. rabbit_common is replaced by rabbitmq_codegen 244 | # 245 | # If cloning from this computed location fails, we fallback to RabbitMQ 246 | # upstream which is GitHub. 247 | 248 | # Macro to transform eg. "rabbit_common" to "rabbitmq-common". 249 | rmq_cmp_repo_name = $(word 2,$(dep_$(1))) 250 | 251 | # Upstream URL for the current project. 252 | RABBITMQ_COMPONENT_REPO_NAME := $(call rmq_cmp_repo_name,$(PROJECT)) 253 | RABBITMQ_UPSTREAM_FETCH_URL ?= https://github.com/rabbitmq/$(RABBITMQ_COMPONENT_REPO_NAME).git 254 | RABBITMQ_UPSTREAM_PUSH_URL ?= git@github.com:rabbitmq/$(RABBITMQ_COMPONENT_REPO_NAME).git 255 | 256 | # Current URL for the current project. If this is not a Git clone, 257 | # default to the upstream Git repository. 258 | ifneq ($(wildcard .git),) 259 | git_origin_fetch_url := $(shell git config remote.origin.url) 260 | git_origin_push_url := $(shell git config remote.origin.pushurl || git config remote.origin.url) 261 | RABBITMQ_CURRENT_FETCH_URL ?= $(git_origin_fetch_url) 262 | RABBITMQ_CURRENT_PUSH_URL ?= $(git_origin_push_url) 263 | else 264 | RABBITMQ_CURRENT_FETCH_URL ?= $(RABBITMQ_UPSTREAM_FETCH_URL) 265 | RABBITMQ_CURRENT_PUSH_URL ?= $(RABBITMQ_UPSTREAM_PUSH_URL) 266 | endif 267 | 268 | # Macro to replace the following pattern: 269 | # 1. /foo.git -> /bar.git 270 | # 2. /foo -> /bar 271 | # 3. /foo/ -> /bar/ 272 | subst_repo_name = $(patsubst %/$(1)/%,%/$(2)/%,$(patsubst %/$(1),%/$(2),$(patsubst %/$(1).git,%/$(2).git,$(3)))) 273 | 274 | # Macro to replace both the project's name (eg. "rabbit_common") and 275 | # repository name (eg. "rabbitmq-common") by the target's equivalent. 276 | # 277 | # This macro is kept on one line because we don't want whitespaces in 278 | # the returned value, as it's used in $(dep_fetch_git_rmq) in a shell 279 | # single-quoted string. 280 | dep_rmq_repo = $(if $(dep_$(2)),$(call subst_repo_name,$(PROJECT),$(2),$(call subst_repo_name,$(RABBITMQ_COMPONENT_REPO_NAME),$(call rmq_cmp_repo_name,$(2)),$(1))),$(pkg_$(1)_repo)) 281 | 282 | dep_rmq_commits = $(if $(dep_$(1)), \ 283 | $(wordlist 3,$(words $(dep_$(1))),$(dep_$(1))), \ 284 | $(pkg_$(1)_commit)) 285 | 286 | define dep_fetch_git_rmq 287 | fetch_url1='$(call dep_rmq_repo,$(RABBITMQ_CURRENT_FETCH_URL),$(1))'; \ 288 | fetch_url2='$(call dep_rmq_repo,$(RABBITMQ_UPSTREAM_FETCH_URL),$(1))'; \ 289 | if test "$$$$fetch_url1" != '$(RABBITMQ_CURRENT_FETCH_URL)' && \ 290 | git clone -q -n -- "$$$$fetch_url1" $(DEPS_DIR)/$(call dep_name,$(1)); then \ 291 | fetch_url="$$$$fetch_url1"; \ 292 | push_url='$(call dep_rmq_repo,$(RABBITMQ_CURRENT_PUSH_URL),$(1))'; \ 293 | elif git clone -q -n -- "$$$$fetch_url2" $(DEPS_DIR)/$(call dep_name,$(1)); then \ 294 | fetch_url="$$$$fetch_url2"; \ 295 | push_url='$(call dep_rmq_repo,$(RABBITMQ_UPSTREAM_PUSH_URL),$(1))'; \ 296 | fi; \ 297 | cd $(DEPS_DIR)/$(call dep_name,$(1)) && ( \ 298 | $(foreach ref,$(call dep_rmq_commits,$(1)), \ 299 | git checkout -q $(ref) >/dev/null 2>&1 || \ 300 | ) \ 301 | (echo "error: no valid pathspec among: $(call dep_rmq_commits,$(1))" \ 302 | 1>&2 && false) ) && \ 303 | (test "$$$$fetch_url" = "$$$$push_url" || \ 304 | git remote set-url --push origin "$$$$push_url") 305 | endef 306 | 307 | # -------------------------------------------------------------------- 308 | # Component distribution. 309 | # -------------------------------------------------------------------- 310 | 311 | list-dist-deps:: 312 | @: 313 | 314 | prepare-dist:: 315 | @: 316 | 317 | # -------------------------------------------------------------------- 318 | # Umbrella-specific settings. 319 | # -------------------------------------------------------------------- 320 | 321 | # If the top-level project is a RabbitMQ component, we override 322 | # $(DEPS_DIR) for this project to point to the top-level's one. 323 | # 324 | # We also verify that the guessed DEPS_DIR is actually named `deps`, 325 | # to rule out any situation where it is a coincidence that we found a 326 | # `rabbitmq-components.mk` up upper directories. 327 | 328 | possible_deps_dir_1 = $(abspath ..) 329 | possible_deps_dir_2 = $(abspath ../../..) 330 | 331 | ifeq ($(notdir $(possible_deps_dir_1)),deps) 332 | ifneq ($(wildcard $(possible_deps_dir_1)/../rabbitmq-components.mk),) 333 | deps_dir_overriden = 1 334 | DEPS_DIR ?= $(possible_deps_dir_1) 335 | DISABLE_DISTCLEAN = 1 336 | endif 337 | endif 338 | 339 | ifeq ($(deps_dir_overriden),) 340 | ifeq ($(notdir $(possible_deps_dir_2)),deps) 341 | ifneq ($(wildcard $(possible_deps_dir_2)/../rabbitmq-components.mk),) 342 | deps_dir_overriden = 1 343 | DEPS_DIR ?= $(possible_deps_dir_2) 344 | DISABLE_DISTCLEAN = 1 345 | endif 346 | endif 347 | endif 348 | 349 | ifneq ($(wildcard UMBRELLA.md),) 350 | DISABLE_DISTCLEAN = 1 351 | endif 352 | 353 | # We disable `make distclean` so $(DEPS_DIR) is not accidentally removed. 354 | 355 | ifeq ($(DISABLE_DISTCLEAN),1) 356 | ifneq ($(filter distclean distclean-deps,$(MAKECMDGOALS)),) 357 | SKIP_DEPS = 1 358 | endif 359 | endif 360 | -------------------------------------------------------------------------------- /src/rabbit_top_app.erl: -------------------------------------------------------------------------------- 1 | %% This Source Code Form is subject to the terms of the Mozilla Public 2 | %% License, v. 2.0. If a copy of the MPL was not distributed with this 3 | %% file, You can obtain one at https://mozilla.org/MPL/2.0/. 4 | %% 5 | %% Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved. 6 | %% 7 | 8 | -module(rabbit_top_app). 9 | 10 | -behaviour(application). 11 | -export([start/2, stop/1]). 12 | 13 | start(_Type, _StartArgs) -> 14 | rabbit_top_sup:start_link(). 15 | 16 | stop(_State) -> 17 | ok. 18 | -------------------------------------------------------------------------------- /src/rabbit_top_extension.erl: -------------------------------------------------------------------------------- 1 | %% This Source Code Form is subject to the terms of the Mozilla Public 2 | %% License, v. 2.0. If a copy of the MPL was not distributed with this 3 | %% file, You can obtain one at https://mozilla.org/MPL/2.0/. 4 | %% 5 | %% Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved. 6 | %% 7 | 8 | -module(rabbit_top_extension). 9 | 10 | -behaviour(rabbit_mgmt_extension). 11 | 12 | -export([dispatcher/0, web_ui/0]). 13 | 14 | dispatcher() -> [{"/top/:node", rabbit_top_wm_processes, []}, 15 | {"/top/ets/:node", rabbit_top_wm_ets_tables, []}, 16 | {"/process/:pid", rabbit_top_wm_process, []}]. 17 | 18 | web_ui() -> [{javascript, <<"top.js">>}]. 19 | -------------------------------------------------------------------------------- /src/rabbit_top_sup.erl: -------------------------------------------------------------------------------- 1 | %% This Source Code Form is subject to the terms of the Mozilla Public 2 | %% License, v. 2.0. If a copy of the MPL was not distributed with this 3 | %% file, You can obtain one at https://mozilla.org/MPL/2.0/. 4 | %% 5 | %% Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved. 6 | %% 7 | 8 | -module(rabbit_top_sup). 9 | 10 | -behaviour(supervisor). 11 | 12 | -include_lib("rabbit_common/include/rabbit.hrl"). 13 | 14 | -export([start_link/0]). 15 | -export([init/1]). 16 | 17 | start_link() -> 18 | supervisor:start_link({local, ?MODULE}, ?MODULE, []). 19 | 20 | init([]) -> 21 | Top = {rabbit_top_worker, 22 | {rabbit_top_worker, start_link, []}, 23 | permanent, ?WORKER_WAIT, worker, [rabbit_top_worker]}, 24 | {ok, {{one_for_one, 10, 10}, [Top]}}. 25 | 26 | -------------------------------------------------------------------------------- /src/rabbit_top_util.erl: -------------------------------------------------------------------------------- 1 | %% This Source Code Form is subject to the terms of the Mozilla Public 2 | %% License, v. 2.0. If a copy of the MPL was not distributed with this 3 | %% file, You can obtain one at https://mozilla.org/MPL/2.0/. 4 | %% 5 | %% Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved. 6 | %% 7 | 8 | -module(rabbit_top_util). 9 | 10 | -include_lib("rabbit_common/include/rabbit.hrl"). 11 | 12 | -export([toplist/3, fmt_all/1, fmt/1, obtain_name/1, safe_process_info/2]). 13 | -export([sort_by_param/2, sort_order_param/1, row_count_param/2]). 14 | 15 | toplist(Key, Count, List) -> 16 | Sorted = lists:sublist( 17 | lists:reverse( 18 | lists:keysort(1, [toplist(Key, I) || I <- List])), Count), 19 | [add_name(Info) || {_, Info} <- Sorted]. 20 | 21 | toplist(Key, Info) -> 22 | {Key, Val} = lists:keyfind(Key, 1, Info), 23 | {Val, Info}. 24 | 25 | sort_by_param(ReqData, Default) -> 26 | case rabbit_mgmt_util:qs_val(<<"sort">>, ReqData) of 27 | undefined -> Default; 28 | Bin -> rabbit_data_coercion:to_atom(Bin) 29 | end. 30 | 31 | sort_order_param(ReqData) -> 32 | case rabbit_mgmt_util:qs_val(<<"sort_reverse">>, ReqData) of 33 | <<"true">> -> asc; 34 | _ -> desc 35 | end. 36 | 37 | row_count_param(ReqData, Default) -> 38 | case rabbit_mgmt_util:qs_val(<<"row_count">>, ReqData) of 39 | undefined -> Default; 40 | Bin -> rabbit_data_coercion:to_integer(Bin) 41 | end. 42 | 43 | add_name(Info) -> 44 | {pid, Pid} = lists:keyfind(pid, 1, Info), 45 | [{name, obtain_name(Pid)} | Info]. 46 | 47 | fmt_all(Info) -> [{K, fmt(V)} || {K, V} <- Info]. 48 | 49 | fmt(Pid) when is_pid(Pid) -> 50 | list_to_binary(pid_to_list(Pid)); 51 | fmt(Other) -> 52 | list_to_binary(rabbit_misc:format("~p", [Other])). 53 | 54 | obtain_name(Pid) -> 55 | lists:foldl(fun(Fun, fail) -> Fun(Pid); 56 | (_Fun, Res) -> Res 57 | end, fail, [fun obtain_from_registered_name/1, 58 | fun obtain_from_process_name/1, 59 | fun obtain_from_initial_call/1]). 60 | 61 | obtain_from_registered_name(Pid) -> 62 | case safe_process_info(Pid, registered_name) of 63 | {registered_name, Name} -> [{type, registered}, 64 | {name, Name}]; 65 | _ -> fail 66 | end. 67 | 68 | obtain_from_process_name(Pid) -> 69 | case safe_process_info(Pid, dictionary) of 70 | {dictionary, Dict} -> 71 | case lists:keyfind(process_name, 1, Dict) of 72 | {process_name, Name} -> fmt_process_name(Name); 73 | false -> fail 74 | end; 75 | _ -> 76 | fail 77 | end. 78 | 79 | fmt_process_name({Type, {ConnName, ChNum}}) when is_binary(ConnName), 80 | is_integer(ChNum) -> 81 | [{supertype, channel}, 82 | {type, Type}, 83 | {connection_name, ConnName}, 84 | {channel_number, ChNum}]; 85 | 86 | fmt_process_name({Type, #resource{virtual_host = VHost, 87 | name = Name}}) -> 88 | [{supertype, queue}, 89 | {type, Type}, 90 | {queue_name, Name}, 91 | {vhost, VHost}]; 92 | 93 | fmt_process_name({Type, ConnName}) when is_binary(ConnName) -> 94 | [{supertype, connection}, 95 | {type, Type}, 96 | {connection_name, ConnName}]; 97 | 98 | fmt_process_name({Type, unknown}) -> %% probably some adapter thing 99 | [{supertype, connection}, 100 | {type, Type}, 101 | {connection_name, unknown}]. 102 | 103 | obtain_from_initial_call(Pid) -> 104 | case initial_call(Pid) of 105 | fail -> [{type, starting}, 106 | {name, fmt(Pid)}]; 107 | MFA -> case guess_initial_call(MFA) of 108 | fail -> [{type, unknown}, 109 | {name, fmt(MFA)}]; 110 | Name -> [{type, known}, 111 | {name, Name}] 112 | end 113 | end. 114 | 115 | initial_call(Pid) -> 116 | case initial_call_dict(Pid) of 117 | fail -> case safe_process_info(Pid, initial_call) of 118 | {initial_call, MFA} -> MFA; 119 | _ -> fail 120 | end; 121 | MFA -> MFA 122 | end. 123 | 124 | initial_call_dict(Pid) -> 125 | case safe_process_info(Pid, dictionary) of 126 | {dictionary, Dict} -> 127 | case lists:keyfind('$initial_call', 1, Dict) of 128 | {'$initial_call', MFA} -> MFA; 129 | false -> fail 130 | end; 131 | _ -> 132 | fail 133 | end. 134 | 135 | guess_initial_call({supervisor, _F, _A}) -> supervisor; 136 | guess_initial_call({supervisor2, _F, _A}) -> supervisor; 137 | guess_initial_call({cowboy_protocol, _F, _A}) -> cowboy_protocol; 138 | guess_initial_call(_MFA) -> fail. 139 | 140 | 141 | safe_process_info(Pid, Info) -> 142 | rpc:call(node(Pid), erlang, process_info, [Pid, Info]). 143 | -------------------------------------------------------------------------------- /src/rabbit_top_wm_ets_tables.erl: -------------------------------------------------------------------------------- 1 | %% This Source Code Form is subject to the terms of the Mozilla Public 2 | %% License, v. 2.0. If a copy of the MPL was not distributed with this 3 | %% file, You can obtain one at https://mozilla.org/MPL/2.0/. 4 | %% 5 | %% Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved. 6 | %% 7 | 8 | -module(rabbit_top_wm_ets_tables). 9 | 10 | -export([init/2, to_json/2, content_types_provided/2, is_authorized/2]). 11 | 12 | -include_lib("rabbitmq_management_agent/include/rabbit_mgmt_records.hrl"). 13 | -include_lib("amqp_client/include/amqp_client.hrl"). 14 | 15 | %%-------------------------------------------------------------------- 16 | 17 | init(Req, _State) -> 18 | {cowboy_rest, rabbit_mgmt_cors:set_headers(Req, ?MODULE), #context{}}. 19 | 20 | 21 | content_types_provided(ReqData, Context) -> 22 | {[{<<"application/json">>, to_json}], ReqData, Context}. 23 | 24 | to_json(ReqData, Context) -> 25 | Sort = rabbit_top_util:sort_by_param(ReqData, memory), 26 | Node = rabbit_data_coercion:to_atom(rabbit_mgmt_util:id(node, ReqData)), 27 | Order = rabbit_top_util:sort_order_param(ReqData), 28 | RowCount = rabbit_top_util:row_count_param(ReqData, 20), 29 | 30 | rabbit_mgmt_util:reply([{node, Node}, 31 | {row_count, RowCount}, 32 | {ets_tables, ets_tables(Node, Sort, Order, RowCount)}], 33 | ReqData, Context). 34 | 35 | is_authorized(ReqData, Context) -> 36 | rabbit_mgmt_util:is_authorized_admin(ReqData, Context). 37 | 38 | %%-------------------------------------------------------------------- 39 | 40 | ets_tables(Node, Sort, Order, RowCount) -> 41 | try 42 | [fmt(P) || P <- rabbit_top_worker:ets_tables(Node, Sort, Order, RowCount)] 43 | catch 44 | exit:{noproc, _} -> 45 | [] 46 | end. 47 | 48 | fmt(Info) -> 49 | {owner, OPid} = lists:keyfind(owner, 1, Info), 50 | {heir, HPid} = lists:keyfind(heir, 1, Info), 51 | %% OTP 21 introduced the 'id' element that contains a reference. 52 | %% These cannot be serialised and must be removed from the proplist 53 | Info1 = lists:keydelete(owner, 1, 54 | lists:keydelete(id, 1, Info)), 55 | Info2 = lists:keydelete(heir, 1, Info1), 56 | [{owner, rabbit_top_util:fmt(OPid)}, 57 | {heir, rabbit_top_util:fmt(HPid)} | Info2]. 58 | -------------------------------------------------------------------------------- /src/rabbit_top_wm_process.erl: -------------------------------------------------------------------------------- 1 | %% This Source Code Form is subject to the terms of the Mozilla Public 2 | %% License, v. 2.0. If a copy of the MPL was not distributed with this 3 | %% file, You can obtain one at https://mozilla.org/MPL/2.0/. 4 | %% 5 | %% Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved. 6 | %% 7 | 8 | -module(rabbit_top_wm_process). 9 | 10 | -export([init/2, to_json/2, resource_exists/2, content_types_provided/2, 11 | is_authorized/2]). 12 | 13 | -define(ADDITIONAL_INFO, 14 | [current_stacktrace, trap_exit, links, monitors, monitored_by]). 15 | 16 | -include_lib("rabbitmq_management_agent/include/rabbit_mgmt_records.hrl"). 17 | -include_lib("amqp_client/include/amqp_client.hrl"). 18 | 19 | %%-------------------------------------------------------------------- 20 | 21 | init(Req, _State) -> 22 | {cowboy_rest, rabbit_mgmt_cors:set_headers(Req, ?MODULE), #context{}}. 23 | 24 | 25 | content_types_provided(ReqData, Context) -> 26 | {[{<<"application/json">>, to_json}], ReqData, Context}. 27 | 28 | to_json(ReqData, Context) -> 29 | rabbit_mgmt_util:reply(proc(ReqData), ReqData, Context). 30 | 31 | resource_exists(ReqData, Context) -> 32 | {case proc(ReqData) of 33 | not_found -> false; 34 | _ -> true 35 | end, ReqData, Context}. 36 | 37 | is_authorized(ReqData, Context) -> 38 | rabbit_mgmt_util:is_authorized_admin(ReqData, Context). 39 | 40 | %%-------------------------------------------------------------------- 41 | 42 | proc(ReqData) -> 43 | PidBin = rabbit_mgmt_util:id(pid, ReqData), 44 | try list_to_pid(binary_to_list(PidBin)) of 45 | Pid -> case rabbit_top_worker:proc(Pid) of 46 | {ok, Base} -> [{pid, PidBin}, 47 | {name, rabbit_top_util:obtain_name(Pid)}] ++ 48 | Base ++ 49 | case rabbit_top_util:safe_process_info( 50 | Pid, ?ADDITIONAL_INFO) of 51 | undefined -> []; 52 | Props -> fmt(Props) 53 | end; 54 | error -> not_found 55 | end 56 | catch 57 | error:badarg -> 58 | not_found 59 | end. 60 | 61 | 62 | fmt(Props) -> [{K, fmt(K, V)} || {K, V} <- Props]. 63 | 64 | fmt(links, V) -> [rabbit_top_util:fmt(P) || P <- V, is_pid(P)]; 65 | fmt(monitors, V) -> [rabbit_top_util:fmt(P) || {process, P} <- V]; 66 | fmt(monitored_by, V) -> [rabbit_top_util:fmt(P) || P <- V]; 67 | fmt(current_stacktrace, V) -> rabbit_top_util:fmt(V); 68 | fmt(_K, V) -> V. 69 | -------------------------------------------------------------------------------- /src/rabbit_top_wm_processes.erl: -------------------------------------------------------------------------------- 1 | %% This Source Code Form is subject to the terms of the Mozilla Public 2 | %% License, v. 2.0. If a copy of the MPL was not distributed with this 3 | %% file, You can obtain one at https://mozilla.org/MPL/2.0/. 4 | %% 5 | %% Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved. 6 | %% 7 | 8 | -module(rabbit_top_wm_processes). 9 | 10 | -export([init/2, to_json/2, content_types_provided/2, is_authorized/2]). 11 | 12 | -include_lib("rabbitmq_management_agent/include/rabbit_mgmt_records.hrl"). 13 | -include_lib("amqp_client/include/amqp_client.hrl"). 14 | 15 | %%-------------------------------------------------------------------- 16 | 17 | init(Req, _State) -> 18 | {cowboy_rest, rabbit_mgmt_cors:set_headers(Req, ?MODULE), #context{}}. 19 | 20 | content_types_provided(ReqData, Context) -> 21 | {[{<<"application/json">>, to_json}], ReqData, Context}. 22 | 23 | to_json(ReqData, Context) -> 24 | Sort = rabbit_top_util:sort_by_param(ReqData, reduction_delta), 25 | Node = rabbit_data_coercion:to_atom(rabbit_mgmt_util:id(node, ReqData)), 26 | Order = rabbit_top_util:sort_order_param(ReqData), 27 | RowCount = rabbit_top_util:row_count_param(ReqData, 20), 28 | 29 | rabbit_mgmt_util:reply([{node, Node}, 30 | {row_count, RowCount}, 31 | {processes, procs(Node, Sort, Order, RowCount)}], 32 | ReqData, Context). 33 | 34 | is_authorized(ReqData, Context) -> 35 | rabbit_mgmt_util:is_authorized_admin(ReqData, Context). 36 | 37 | %%-------------------------------------------------------------------- 38 | 39 | procs(Node, Sort, Order, RowCount) -> 40 | try 41 | [fmt(P) || P <- rabbit_top_worker:procs(Node, Sort, Order, RowCount)] 42 | catch 43 | exit:{noproc, _} -> 44 | [] 45 | end. 46 | 47 | fmt(Info) -> 48 | {pid, Pid} = lists:keyfind(pid, 1, Info), 49 | Info1 = lists:keydelete(pid, 1, Info), 50 | [{pid, rabbit_top_util:fmt(Pid)}, 51 | {name, rabbit_top_util:obtain_name(Pid)} | Info1]. 52 | -------------------------------------------------------------------------------- /src/rabbit_top_worker.erl: -------------------------------------------------------------------------------- 1 | %% This Source Code Form is subject to the terms of the Mozilla Public 2 | %% License, v. 2.0. If a copy of the MPL was not distributed with this 3 | %% file, You can obtain one at https://mozilla.org/MPL/2.0/. 4 | %% 5 | %% Copyright (c) 2007-2020 VMware, Inc. or its affiliates. All rights reserved. 6 | %% 7 | 8 | -module(rabbit_top_worker). 9 | -behaviour(gen_server). 10 | 11 | -define(PROCESS_INFO, [memory, message_queue_len, reductions, status]). 12 | 13 | -export([start_link/0]). 14 | 15 | -export([init/1, handle_call/3, handle_cast/2, handle_info/2, 16 | terminate/2, code_change/3]). 17 | 18 | -export([procs/4, proc/1, ets_tables/4, ets_table/1]). 19 | 20 | -define(SERVER, ?MODULE). 21 | -define(MILLIS, 1000). 22 | -define(EVERY, 5). 23 | -define(SLEEP, ?EVERY * ?MILLIS). 24 | 25 | -record(state, {procs, ets_tables}). 26 | 27 | %%-------------------------------------------------------------------- 28 | 29 | start_link() -> 30 | gen_server:start_link({local, ?SERVER}, ?MODULE, [], []). 31 | 32 | 33 | procs(Node, Key, Rev, Count) -> 34 | gen_server:call({?SERVER, Node}, {procs, Key, Rev, Count}, infinity). 35 | 36 | proc(Pid) -> 37 | gen_server:call({?SERVER, node(Pid)}, {proc, Pid}, infinity). 38 | 39 | ets_tables(Node, Key, Rev, Count) -> 40 | gen_server:call({?SERVER, Node}, {ets_tables, Key, Rev, Count}, infinity). 41 | 42 | ets_table(Name) -> 43 | table_info(Name). 44 | 45 | %%-------------------------------------------------------------------- 46 | 47 | init([]) -> 48 | ensure_timer(), 49 | {ok, #state{procs = procs(#{}), 50 | ets_tables = ets_tables([])}}. 51 | 52 | handle_call({ets_tables, Key, Order, Count}, _From, 53 | State = #state{ets_tables = Tables}) -> 54 | {reply, toplist(Key, Order, Count, Tables), State}; 55 | 56 | handle_call({procs, Key, Order, Count}, _From, State = #state{procs = Procs}) -> 57 | {reply, toplist(Key, Order, Count, flatten(Procs)), State}; 58 | 59 | handle_call({proc, Pid}, _From, State = #state{procs = Procs}) -> 60 | {reply, maps:find(Pid, Procs), State}. 61 | 62 | handle_cast(_Msg, State) -> 63 | {noreply, State}. 64 | 65 | handle_info(_Msg, State = #state{procs = OldProcs, ets_tables = OldTables}) -> 66 | ensure_timer(), 67 | {noreply, State#state{procs = procs(OldProcs), 68 | ets_tables = ets_tables(OldTables)}}; 69 | 70 | handle_info(_Msg, State) -> 71 | {noreply, State}. 72 | 73 | terminate(_Reason, _State) -> 74 | ok. 75 | 76 | code_change(_OldVsn, State, _Extra) -> 77 | {ok, State}. 78 | 79 | %%-------------------------------------------------------------------- 80 | 81 | ensure_timer() -> 82 | erlang:send_after(?SLEEP, self(), update). 83 | 84 | procs(OldProcs) -> 85 | lists:foldl( 86 | fun(Pid, Procs) -> 87 | case process_info(Pid, ?PROCESS_INFO) of 88 | undefined -> 89 | Procs; 90 | Props -> 91 | Delta = (reductions(Props) - 92 | case maps:find(Pid, OldProcs) of 93 | {ok, OldProps} -> reductions(OldProps); 94 | error -> 0 95 | end) div ?EVERY, 96 | NewProps = expand_gen_server2_info( 97 | Pid, [{reduction_delta, Delta} | Props]), 98 | maps:put(Pid, NewProps, Procs) 99 | end 100 | end, #{}, processes()). 101 | 102 | reductions(Props) -> 103 | {reductions, R} = lists:keyfind(reductions, 1, Props), 104 | R. 105 | 106 | ets_tables(_OldTables) -> 107 | F = fun 108 | (Table) -> 109 | case table_info(Table) of 110 | undefined -> false; 111 | Info -> {true, Info} 112 | end 113 | end, 114 | lists:filtermap(F, ets:all()). 115 | 116 | table_info(Table) -> 117 | TableInfo = ets:info(Table), 118 | map_table_info(Table, TableInfo). 119 | 120 | map_table_info(_Table, undefined) -> 121 | undefined; 122 | map_table_info(_Table, TableInfo) -> 123 | F = fun 124 | ({memory, MemWords}) -> 125 | {memory, bytes(MemWords)}; 126 | (Other) -> 127 | Other 128 | end, 129 | Info = lists:map(F, TableInfo), 130 | {owner, OwnerPid} = lists:keyfind(owner, 1, Info), 131 | case process_info(OwnerPid, registered_name) of 132 | [] -> Info; 133 | {registered_name, OwnerName} -> [{owner_name, OwnerName} | Info] 134 | end. 135 | 136 | flatten(Procs) -> 137 | maps:fold(fun(Name, Props, Rest) -> 138 | [[{pid, Name} | Props] | Rest] 139 | end, [], Procs). 140 | 141 | %%-------------------------------------------------------------------- 142 | 143 | toplist(Key, Order, Count, List) -> 144 | RevFun = case Order of 145 | asc -> fun (L) -> L end; 146 | desc -> fun lists:reverse/1 147 | end, 148 | Keyed = [toplist(Key, I) || I <- List], 149 | Sorted = lists:sublist(RevFun(lists:keysort(1, Keyed)), Count), 150 | [Info || {_, Info} <- Sorted]. 151 | 152 | toplist(Key, Info) -> 153 | % Do not crash if unknown sort key. Keep unsorted instead. 154 | case lists:keyfind(Key, 1, Info) of 155 | {Key, Val} -> {Val, Info}; 156 | false -> {undefined, Info} 157 | end. 158 | 159 | bytes(Words) -> try 160 | Words * erlang:system_info(wordsize) 161 | catch 162 | _:_ -> 0 163 | end. 164 | 165 | expand_gen_server2_info(Pid, Props) -> 166 | case rabbit_core_metrics:get_gen_server2_stats(Pid) of 167 | not_found -> 168 | [{buffer_len, -1} | Props]; 169 | BufferLength -> 170 | [{buffer_len, BufferLength} | Props] 171 | end. 172 | --------------------------------------------------------------------------------