├── README.org
├── nginx_connection_request
├── nginx_memory
├── nginx_request
└── nginx_status


/README.org:
--------------------------------------------------------------------------------
 1 | * Nginx requests, memory usage and connections statistics with Munin
 2 | 
 3 | ** Introduction
 4 | 
 5 |    These three perl scripts are [[http://munin-monitoring.org][Munin]] plugins for monitoring the [[http://nginx.org][nginx]]
 6 |    HTTP server.
 7 | 
 8 | ** nginx_status
 9 | 
10 |    Based on the one provided in the Debian [[http://packages.debian.org/squeeze/munin-node][munin-node]] package. Which
11 |    is itself a modified version of the one available at the [[http://exchange.munin-monitoring.org][Munin Plugin
12 |    Exchange]]. It shows the connection status for nginx. 
13 | 
14 |    Presents the values returned by nginx, using the
15 |    [[wiki.nginx.org/NginxHttpStubStatusModule][http_stub_status]] module, are respectively, the number of:
16 | 
17 |   /connections initiated/, /connections handled/, /requests served/
18 | 
19 | ** TODO nginx_connection_request
20 |    
21 |    Presents the number of requests served by connection handled by
22 |    nginx. The requests-connection ratio handled by the server is the
23 |    ratio:
24 | 
25 |    requests served / connections handled
26 | 
27 |   This is implemented as a RRDtool datasource of type =GAUGE=, the
28 |   [[http://munin-monitoring.org/wiki/fieldname.type][default]] type for Munin.
29 | 
30 | ** nginx_request
31 | 
32 |   Based on the one provided in the Debian [[http://packages.debian.org/squeeze/munin-node][munin-node]] package. Which
33 |   is itself a modified version of the one available at the [[http://exchange.munin-monitoring.org][Munin Plugin
34 |   Exchange]].
35 |  
36 |   It uses a derivative (technically a finite difference) to compute
37 |   the connection rate value. 
38 | 
39 | ** nginx_memory
40 | 
41 |    Based on a previous plugin by AkyRhO. It uses =ps= and =awk= to get
42 |    the memory used by the master and worker processes of nginx. 
43 | 
44 | ** Installation & Configuration 
45 | 
46 | 
47 |    1. Copy all the scripts to =/etc/munin/plugins=.
48 | 
49 |    2. Restart the munin-node daemon: =/etc/init.d/munin-node restart=.
50 | 
51 |    3. Done. You should now start to see a new section *nginx* in your
52 |       Munin pages with the corresponding graphs.
53 | 
54 |    4. All scripts have POD documentation. Issue =perldoc <script
55 |       name>= to read them.
56 | 
57 | ** Environment Settings
58 | 
59 |    Both =nginx_request= and =nginx_status= accept *two* environment
60 |    variables:
61 | 
62 |    + URL: the URL of the nginx status data. The default value is:
63 | 
64 |      =http://hostname/nginx_status=
65 | 
66 |    + UA: the User Agent that the plugin sends in the HTTP
67 |      header. Since most sites block the libwww-* user agent to get rid
68 |      of bad bots and mostly up to no good scanners, the scripts send a
69 |      different User Agent to get around that.
70 | 
71 |    Both variables can be specified in the
72 |    =/etc/munin/plugin-conf.d/munin-node= file.
73 | 
74 |    Something like this for altering the URL:
75 | 
76 | 
77 |    ~[nginx_status]
78 |     env.url=http://hostname:8888/nginx-status nginx_status~
79 | 
80 |    ~[nginx_connection_request]
81 |     env.url=http://hostname:8888/nginx-status nginx_status~
82 | 
83 |    ~[nginx_request]
84 |     env.url=http://hostname:8888/nginx-status nginx_status~
85 | 
86 |    Add =env.ua= for altering the User Agent.   
87 | 
88 |    Don't forget to restart the munin-node daemon as described in step
89 |    2 of the installation instructions above.
90 | 
91 |    Note: the github handling of Org mode markup is *broken*. Therefore
92 |    the =[nginx_status]= =[nginx_connection_request]= and
93 |    =[nginx_request]= lines are separate from the lines specifying the
94 |    environment variables.
95 | 
96 |    It's not github's responsibility but rather a bug in [[http://orgmode.org/worg/org-tutorials/org-ruby.php][Org-Ruby]].
97 | 


--------------------------------------------------------------------------------
/nginx_connection_request:
--------------------------------------------------------------------------------
  1 | #!/usr/bin/perl -w
  2 | # -*- mode: cperl; mode: autopair -*-
  3 | # Magic markers:
  4 | #%# family=auto
  5 | #%# capabilities=autoconf
  6 | # nginx_connection request --- Determine the requests/connection
  7 | #                              served by nginx.
  8 | 
  9 | # Copyright (C) 2010 António P. P. Almeida <appa@perusio.net>
 10 | 
 11 | # Author: António P. P. Almeida <appa@perusio.net>
 12 | 
 13 | # Permission is hereby granted, free of charge, to any person obtaining a
 14 | # copy of this software and associated documentation files (the "Software"),
 15 | # to deal in the Software without restriction, including without limitation
 16 | # the rights to use, copy, modify, merge, publish, distribute, sublicense,
 17 | # and/or sell copies of the Software, and to permit persons to whom the
 18 | # Software is furnished to do so, subject to the following conditions:
 19 | 
 20 | # The above copyright notice and this permission notice shall be included in
 21 | # all copies or substantial portions of the Software.
 22 | 
 23 | # Except as contained in this notice, the name(s) of the above copyright
 24 | # holders shall not be used in advertising or otherwise to promote the sale,
 25 | # use or other dealings in this Software without prior written authorization.
 26 | 
 27 | # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 28 | # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 29 | # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 30 | # THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 31 | # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 32 | # FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 33 | # DEALINGS IN THE SOFTWARE.
 34 | 
 35 | =head1 NAME
 36 | 
 37 | nginx_connection_request - Munin plugin to show number of
 38 | requests/connection served by nginx.
 39 | 
 40 | =encoding utf8
 41 | 
 42 | =head1 APPLICABLE SYSTEMS
 43 | 
 44 | Any nginx host
 45 | 
 46 | =head1 CONFIGURATION
 47 | 
 48 | This shows the default configuration of this plugin.  You can override
 49 | the status URL and User Agent.
 50 | 
 51 |   [nginx*]
 52 |       env.url http://localhost/nginx_status
 53 |       env.ua nginx-status-verifier/0.1
 54 | 
 55 | Nginx must also be configured.  Firstly the stub-status module must be
 56 | compiled, and secondly it must be configured like this:
 57 | 
 58 |   server {
 59 |         listen 127.0.0.1;
 60 |         server_name localhost;
 61 |         location /nginx_status {
 62 |                 stub_status on;
 63 |                 access_log   off;
 64 |                 allow 127.0.0.1;
 65 |                 deny all;
 66 |         }
 67 |   }
 68 | 
 69 | =head1 MAGIC MARKERS
 70 | 
 71 |   #%# family=auto
 72 |   #%# capabilities=autoconf
 73 | 
 74 | =head1 VERSION
 75 | 
 76 | 1.1
 77 | 
 78 | =head1 BUGS
 79 | 
 80 | None known
 81 | 
 82 | =head1 AUTHOR
 83 | 
 84 | António Almeida <appa@perusio.net>
 85 | 
 86 | =head1 REPOSITORY
 87 | 
 88 | Source code at http://github.com/perusio/nginx-munin
 89 | 
 90 | =head1 LICENSE
 91 | 
 92 | MIT
 93 | 
 94 | =cut
 95 | 
 96 | my $ret = undef;
 97 | 
 98 | if (! eval "require LWP::UserAgent;") {
 99 |   $ret = "LWP::UserAgent not found";
100 | }
101 | 
102 | chomp(my $fqdn=`hostname -f`);
103 | 
104 | ## Environment defined variables.
105 | ## The default URL is nginx_status if different set it in the environment.
106 | my $URL = exists $ENV{'url'} ? $ENV{'url'} : "http://$fqdn/nginx_status";
107 | ## The default user agent is ngnix-status-verifier/0.1 if different
108 | ## set it in the environment.
109 | my $UA = exists $ENV{'ua'} ? $ENV{'ua'} : 'nginx-status-verifier/0.1';
110 | 
111 | ## Munin autoconf method.
112 | if (exists $ARGV[0] and $ARGV[0] eq "autoconf" ) {
113 |   if ($ret) {
114 |     print "no ($ret)\n";
115 |     exit 1;
116 |   }
117 |   my $ua = LWP::UserAgent->new(timeout => 30);
118 |   # Set the UA to something different from the libwww-perl.
119 |   # That UA is blocked.
120 |   $ua->agent($UA);
121 |   my $response = $ua->request(HTTP::Request->new('GET',$URL));
122 | 
123 |   unless ($response->is_success and $response->content =~ /server/im) {
124 |     print "no (no nginx status on $URL)\n";
125 |     exit 1;
126 |   } else {
127 |     print "yes\n";
128 |     exit 0;
129 |   }
130 | }
131 | 
132 | ## Munin config method.
133 | if (exists $ARGV[0] and $ARGV[0] eq "config") {
134 |   print "graph_title nginx requests/connection handled\n";
135 |   print "graph_category nginx\n";
136 |   print "graph_vlabel Request/Connection\n";
137 |   print "connection_request.label requests/connection\n";
138 |   print "connection_request.min 0\n";
139 |   print "connection_request.draw LINE2\n";
140 | 
141 |   exit 0;
142 | }
143 | 
144 | my $ua = LWP::UserAgent->new(timeout => 30);
145 | # Set the UA to something different from the libwww-perl.
146 | # That UA is blocked.
147 | $ua->agent($UA);
148 | my $response = $ua->request(HTTP::Request->new('GET',$URL));
149 | 
150 | if ($response->content =~ /^\s+(\d+)\s+(\d+)\s+(\d+)/m) {
151 |   printf("connection_request.value %.2f\n", $3/$2);
152 | } else {
153 |   print "connection_request.value U\n";
154 | }
155 | 


--------------------------------------------------------------------------------
/nginx_memory:
--------------------------------------------------------------------------------
 1 | #!/usr/bin/perl -w
 2 | # -*- mode: cperl; mode: autopair -*-
 3 | # Magic markers:
 4 | #%# family=auto
 5 | #%# capabilities=autoconf
 6 | # nginx_memory --- Munin plugin for monitoring Nginx memory
 7 | #                  usage. Based on the nginx_memory.pl plugin
 8 | #                  by AkyRhO <akyrho@gmail.com>.
 9 | 
10 | # Copyright (C) 2010 António P. P. Almeida <appa@perusio.net>
11 | 
12 | # Author: António P. P. Almeida <appa@perusio.net>
13 | 
14 | # Permission is hereby granted, free of charge, to any person obtaining a
15 | # copy of this software and associated documentation files (the "Software"),
16 | # to deal in the Software without restriction, including without limitation
17 | # the rights to use, copy, modify, merge, publish, distribute, sublicense,
18 | # and/or sell copies of the Software, and to permit persons to whom the
19 | # Software is furnished to do so, subject to the following conditions:
20 | 
21 | # The above copyright notice and this permission notice shall be included in
22 | # all copies or substantial portions of the Software.
23 | 
24 | # Except as contained in this notice, the name(s) of the above copyright
25 | # holders shall not be used in advertising or otherwise to promote the sale,
26 | # use or other dealings in this Software without prior written authorization.
27 | 
28 | # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
29 | # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
30 | # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
31 | # THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
32 | # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
33 | # FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
34 | # DEALINGS IN THE SOFTWARE.
35 | 
36 | =head1 NAME
37 | 
38 | nginx_memory - Munin plugin to show the RAM used by nginx.
39 | 
40 | =encoding utf8
41 | 
42 | =head1 APPLICABLE SYSTEMS
43 | 
44 | Any nginx host
45 | 
46 | =head1 MAGIC MARKERS
47 | 
48 |   #%# family=auto
49 |   #%# capabilities=autoconf
50 | 
51 | =head1 VERSION
52 | 
53 | 1.0
54 | 
55 | =head1 BUGS
56 | 
57 | FreeBSD Security process in sysctl security.bsd.see_other_uids=0 and security.bsd.see_other_gids=0 error stop.
58 | 
59 | =head1 AUTHOR
60 | 
61 | Based on a script by AkyRhO <akyrho@gmail.com>. Modified by António
62 | Almeida <appa@perusio.net>
63 | 
64 | =head1 REPOSITORY
65 | 
66 | Source code at http://github.com/perusio/nginx-munin
67 | 
68 | =head1 LICENSE
69 | 
70 | MIT
71 | 
72 | =cut
73 | 
74 | ## Munin config method.
75 | if (exists $ARGV[0] and $ARGV[0] eq "config") {
76 |   print "graph_title nginx RAM usage\n";
77 |   print "graph_vlabel RAM\n";
78 |   print "graph_category nginx\n";
79 |   print "ram.label RAM\n";
80 |   print "graph_args --base 1024\n";
81 | 
82 |   exit 0;
83 | } else {
84 | 
85 |   ## Get the current OS name.
86 |   my $osname = $^O;
87 | 
88 |   if ($osname eq 'freebsd') {   # FreeBSD
89 |     my $pid_nginx = "pgrep -d ' ' nginx";
90 |   } else {                      # Linux
91 |     my $pid_nginx = "pidof nginx";
92 |   }
93 | 
94 |   my $m = `ps u -p \$(pgrep -d ' ' nginx) | awk 'NR > 1 {nm += \$5} END {print nm*1024}'`;
95 | 
96 |   print "ram.value $m";
97 | }
98 | 


--------------------------------------------------------------------------------
/nginx_request:
--------------------------------------------------------------------------------
  1 | #!/usr/bin/perl -w
  2 | # -*- mode: cperl; mode: autopair -*-
  3 | # Magic markers:
  4 | #%# family=auto
  5 | #%# capabilities=autoconf
  6 | # nginx_request --- Determine the current connection rate for
  7 | #                   nginx. Based on a nginx_request plugin by unknown
  8 | #                   author.
  9 | 
 10 | # Copyright (C) 2010 António P. P. Almeida <appa@perusio.net>
 11 | 
 12 | # Author: António P. P. Almeida <appa@perusio.net>
 13 | 
 14 | # Permission is hereby granted, free of charge, to any person obtaining a
 15 | # copy of this software and associated documentation files (the "Software"),
 16 | # to deal in the Software without restriction, including without limitation
 17 | # the rights to use, copy, modify, merge, publish, distribute, sublicense,
 18 | # and/or sell copies of the Software, and to permit persons to whom the
 19 | # Software is furnished to do so, subject to the following conditions:
 20 | 
 21 | # The above copyright notice and this permission notice shall be included in
 22 | # all copies or substantial portions of the Software.
 23 | 
 24 | # Except as contained in this notice, the name(s) of the above copyright
 25 | # holders shall not be used in advertising or otherwise to promote the sale,
 26 | # use or other dealings in this Software without prior written authorization.
 27 | 
 28 | # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 29 | # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 30 | # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 31 | # THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 32 | # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 33 | # FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 34 | # DEALINGS IN THE SOFTWARE.
 35 | 
 36 | =head1 NAME
 37 | 
 38 | nginx_request - Munin plugin to show number of requests/connection served by nginx.
 39 | =encoding utf8
 40 | 
 41 | =head1 APPLICABLE SYSTEMS
 42 | 
 43 | Any nginx host
 44 | 
 45 | =head1 CONFIGURATION
 46 | 
 47 | This shows the default configuration of this plugin.  You can override
 48 | the status URL and User Agent.
 49 | 
 50 |   [nginx*]
 51 |       env.url http://localhost/nginx_status
 52 |       env.ua nginx-status-verifier/0.1
 53 | 
 54 | Nginx must also be configured.  Firstly the stub-status module must be
 55 | compiled, and secondly it must be configured like this:
 56 | 
 57 |   server {
 58 |         listen 127.0.0.1;
 59 |         server_name localhost;
 60 |         location /nginx_status {
 61 |                 stub_status on;
 62 |                 access_log   off;
 63 |                 allow 127.0.0.1;
 64 |                 deny all;
 65 |         }
 66 |   }
 67 | 
 68 | =head1 MAGIC MARKERS
 69 | 
 70 |   #%# family=auto
 71 |   #%# capabilities=autoconf
 72 | 
 73 | =head1 VERSION
 74 | 
 75 | 1.1
 76 | 
 77 | =head1 BUGS
 78 | 
 79 | None known
 80 | 
 81 | =head1 AUTHOR
 82 | 
 83 | Unknown. Modified by António Almeida <appa@perusio.net>
 84 | 
 85 | =head1 REPOSITORY
 86 | 
 87 | Source code at http://github.com/perusio/nginx-munin
 88 | 
 89 | =head1 LICENSE
 90 | 
 91 | MIT
 92 | 
 93 | =cut
 94 | 
 95 | 
 96 | my $ret = undef;
 97 | 
 98 | if (! eval "require LWP::UserAgent;") {
 99 |   $ret = "LWP::UserAgent not found";
100 | }
101 | 
102 | chomp(my $fqdn=`hostname -f`);
103 | 
104 | 
105 | ## Environment defined variables.
106 | ## The default URL is nginx_status if different set it in the environment.
107 | my $URL = exists $ENV{'url'} ? $ENV{'url'} : "http://$fqdn/nginx_status";
108 | ## The default user agent is ngnix-status-verifier/0.1 if different
109 | ## set it in the environment.
110 | my $UA = exists $ENV{'ua'} ? $ENV{'ua'} : 'nginx-status-verifier/0.1';
111 | 
112 | if (exists $ARGV[0] and $ARGV[0] eq "autoconf") {
113 |   if ($ret) {
114 |     print "no ($ret)\n";
115 |     exit 1;
116 |   }
117 | 
118 |   my $ua = LWP::UserAgent->new(timeout => 30);
119 |   # Set the UA to something different from the libwww-perl.
120 |   # That UA is blocked.
121 |   $ua->agent($UA);
122 |   my $response = $ua->request(HTTP::Request->new('GET',$URL));
123 | 
124 |   unless ($response->is_success and $response->content =~ /server/im)
125 |     {
126 |       print "no (no nginx status on $URL)\n";
127 |       exit 1;
128 |     } else {
129 |       print "yes\n";
130 |       exit 0;
131 |     }
132 | }
133 | 
134 | ## Munin config method.
135 | if (exists $ARGV[0] and $ARGV[0] eq "config") {
136 |   print "graph_title NGINX requests\n";
137 |   print "graph_args --base 1000\n";
138 |   print "graph_category nginx\n";
139 |   print "graph_vlabel Request per second\n";
140 |   print "request.label req/sec\n";
141 |   print "request.type DERIVE\n";
142 |   print "request.min 0\n";
143 |   print "request.draw LINE2\n";
144 | 
145 |   exit 0;
146 | }
147 | 
148 | my $ua = LWP::UserAgent->new(timeout => 30);
149 | # Set the UA to something different from the libwww-perl.
150 | # That UA is blocked.
151 | $ua->agent($UA);
152 | my $response = $ua->request(HTTP::Request->new('GET',$URL));
153 | 
154 | if ($response->content =~ /^\s+(\d+)\s+(\d+)\s+(\d+)/m) {
155 |   print "request.value $3\n";
156 | } else {
157 |   print "request.value U\n";
158 | }
159 | 


--------------------------------------------------------------------------------
/nginx_status:
--------------------------------------------------------------------------------
  1 | #!/usr/bin/perl -w
  2 | # -*- cperl -*-
  3 | # Magic markers:
  4 | #%# family=auto
  5 | #%# capabilities=autoconf
  6 | # nginx_status --- Determine the current status of Nginx
  7 | #                  using the http_stub_status module.
  8 | 
  9 | # Copyright (C) 2010 António P. P. Almeida <appa@perusio.net>
 10 | 
 11 | # Author: António P. P. Almeida <appa@perusio.net>
 12 | 
 13 | # Permission is hereby granted, free of charge, to any person obtaining a
 14 | # copy of this software and associated documentation files (the "Software"),
 15 | # to deal in the Software without restriction, including without limitation
 16 | # the rights to use, copy, modify, merge, publish, distribute, sublicense,
 17 | # and/or sell copies of the Software, and to permit persons to whom the
 18 | # Software is furnished to do so, subject to the following conditions:
 19 | 
 20 | # The above copyright notice and this permission notice shall be included in
 21 | # all copies or substantial portions of the Software.
 22 | 
 23 | # Except as contained in this notice, the name(s) of the above copyright
 24 | # holders shall not be used in advertising or otherwise to promote the sale,
 25 | # use or other dealings in this Software without prior written authorization.
 26 | 
 27 | # THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 28 | # IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 29 | # FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL
 30 | # THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 31 | # LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 32 | # FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 33 | # DEALINGS IN THE SOFTWARE.
 34 | 
 35 | =head1 NAME
 36 | 
 37 | nginx_status - Munin plugin to show the connection status for nginx
 38 | 
 39 | =encoding utf8
 40 | 
 41 | =head1 APPLICABLE SYSTEMS
 42 | 
 43 | Any nginx host
 44 | 
 45 | =head1 CONFIGURATION
 46 | 
 47 | This shows the default configuration of this plugin.  You can override
 48 | the status URL and the User Agent.
 49 | 
 50 |   [nginx*]
 51 |       env.url http://localhost/nginx_status
 52 |       env.ua nginx-status-verifier/0.1
 53 | 
 54 | Nginx must also be configured.  Firstly the stub-status module must be
 55 | compiled, and secondly it must be configured like this:
 56 | 
 57 |   server {
 58 |         listen 127.0.0.1;
 59 |         server_name localhost;
 60 |         location /nginx_status {
 61 |                 stub_status on;
 62 |                 access_log   off;
 63 |                 allow 127.0.0.1;
 64 |                 deny all;
 65 |         }
 66 |   }
 67 | 
 68 | =head1 MAGIC MARKERS
 69 | 
 70 |   #%# family=auto
 71 |   #%# capabilities=autoconf
 72 | 
 73 | =head1 VERSION
 74 | 
 75 | 1.1
 76 | 
 77 | =head1 BUGS
 78 | 
 79 | None known
 80 | 
 81 | =head1 AUTHOR
 82 | 
 83 | Unknown. Mantained by António Almeida <appa@perusio.net>
 84 | 
 85 | =head1 REPOSITORY
 86 | 
 87 | Source code at http://github.com/perusio/nginx-munin
 88 | 
 89 | =head1 LICENSE
 90 | 
 91 | MIT
 92 | 
 93 | =cut
 94 | 
 95 | my $ret = undef;
 96 | 
 97 | if (! eval "require LWP::UserAgent;") {
 98 |   $ret = "LWP::UserAgent not found";
 99 | }
100 | 
101 | chomp(my $fqdn=`hostname -f`);
102 | 
103 | ## Environment defined variables.
104 | ## The default URL is nginx_status if different set it in the environment.
105 | my $URL = exists $ENV{'url'} ? $ENV{'url'} : "http://$fqdn/nginx_status";
106 | ## The default user agent is ngnix-status-verifier/0.1 if different
107 | ## set it in the environment.
108 | my $UA = exists $ENV{'ua'} ? $ENV{'ua'} : 'nginx-status-verifier/0.1';
109 | 
110 | 
111 | ## Munin autoconf method.
112 | if (exists $ARGV[0] and $ARGV[0] eq "autoconf" ) {
113 |   if ($ret) {
114 |     print "no ($ret)\n";
115 |     exit 1;
116 |   }
117 | 
118 |   my $ua = LWP::UserAgent->new(timeout => 30);
119 |   # Set the UA to something different from the libwww-perl.
120 |   # This UA is blocked.
121 |   $ua->agent($UA);
122 |   my $response = $ua->request(HTTP::Request->new('GET',$URL));
123 | 
124 |   unless ($response->is_success and $response->content =~ /server/im) {
125 |     print "no (no nginx status on $URL)\n";
126 |     exit 1;
127 |   } else {
128 |     print "yes\n";
129 |     exit 0;
130 |   }
131 | }
132 | 
133 | ## Munin config method.
134 | if (exists $ARGV[0] and $ARGV[0] eq "config") {
135 |   print "graph_title NGINX status\n";
136 |   print "graph_args --base 1000\n";
137 |   print "graph_category nginx\n";
138 |   print "graph_vlabel Connections\n";
139 | 
140 |   print "total.label Active connections\n";
141 |   print "total.info  Active connections\n";
142 |   print "total.draw LINE2\n";
143 | 
144 |   print "reading.label Reading\n";
145 |   print "reading.info  Reading\n";
146 |   print "reading.draw LINE2\n";
147 | 
148 |   print "writing.label Writing\n";
149 |   print "writing.info  Writing\n";
150 |   print "writing.draw LINE2\n";
151 | 
152 |   print "waiting.label Waiting\n";
153 |   print "waiting.info  Waiting\n";
154 |   print "waiting.draw LINE2\n";
155 | 
156 |   exit 0;
157 | }
158 | 
159 | my $ua = LWP::UserAgent->new(timeout => 30);
160 | # Set the UA to something different from the libwww-perl.
161 | # That UA is blocked.
162 | $ua->agent($UA);
163 | my $response = $ua->request(HTTP::Request->new('GET',$URL));
164 | 
165 | # Active connections: 1845
166 | # server accepts handled requests
167 | # 4566318 4566318 84218236
168 | # Reading: 2 Writing: 278 Waiting: 1565
169 | if ($response->content =~ /Active connections:\s+(\d+).*Reading:\s+(\d+).*Writing:\s+(\d+).*Waiting:\s+(\d+)/s) {
170 |   print "total.value $1\n";
171 |   print "reading.value $2\n";
172 |   print "writing.value $3\n";
173 |   print "waiting.value $4\n";
174 | } else {
175 |   foreach (qw(total reading writing waiting)) {
176 |     print "$_.value U\n";
177 |   }
178 | }
179 | 


--------------------------------------------------------------------------------