root / plugins / apache / apache_average_requests @ 4771fd2b
Historique | Voir | Annoter | Télécharger (2,89 ko)
| 1 | 4771fd2b | rfrail3 | #!/usr/bin/perl |
|---|---|---|---|
| 2 | # -*- cperl -*- |
||
| 3 | |||
| 4 | =head1 NAME |
||
| 5 | |||
| 6 | apache_average_request - Munin plugin to monitor the average request to |
||
| 7 | Apache servers. It handles a list of ports passed in from a plugin |
||
| 8 | configuration file. |
||
| 9 | |||
| 10 | =head1 APPLICABLE SYSTEMS |
||
| 11 | |||
| 12 | Apache HTTP servers with C</server-status> enabled. |
||
| 13 | |||
| 14 | =head1 CONFIGURATION |
||
| 15 | |||
| 16 | Enable stats in apache first!: |
||
| 17 | |||
| 18 | <VirtualHost 127.0.0.1:80> |
||
| 19 | <Location /server-status> |
||
| 20 | SetHandler server-status |
||
| 21 | AuthUserFile /route/to/auth.file |
||
| 22 | AuthName Login-Stats |
||
| 23 | AuthType Basic |
||
| 24 | require valid-user |
||
| 25 | </Location> |
||
| 26 | </VirtualHost> |
||
| 27 | |||
| 28 | And now in munin conf: |
||
| 29 | |||
| 30 | [apache_*] |
||
| 31 | env.url http://USER:PASS@127.0.0.1/server-status?auto |
||
| 32 | env.ports 80 |
||
| 33 | |||
| 34 | =head1 AUTHOR |
||
| 35 | |||
| 36 | Ricardo Fraile <rfrail3@yahoo.es> |
||
| 37 | Unknown |
||
| 38 | |||
| 39 | =head1 LICENSE |
||
| 40 | |||
| 41 | GPLv2 |
||
| 42 | |||
| 43 | =head1 MAGIC MARKERS |
||
| 44 | |||
| 45 | #%# family=auto |
||
| 46 | #%# capabilities=autoconf |
||
| 47 | |||
| 48 | =cut |
||
| 49 | |||
| 50 | use strict; |
||
| 51 | use warnings; |
||
| 52 | use Munin::Plugin; |
||
| 53 | |||
| 54 | my $ret = undef; |
||
| 55 | |||
| 56 | if (! eval "require LWP::UserAgent;") |
||
| 57 | {
|
||
| 58 | $ret = "LWP::UserAgent not found"; |
||
| 59 | if ( ! defined $ARGV[0] ) {
|
||
| 60 | die $ret; |
||
| 61 | } |
||
| 62 | } |
||
| 63 | |||
| 64 | my $URL = exists $ENV{'url'} ? $ENV{'url'} : "http://127.0.0.1:%d/server-status?auto";
|
||
| 65 | my @PORTS = exists $ENV{'ports'} ? split(' ', $ENV{'ports'}) : (80);
|
||
| 66 | |||
| 67 | if ( defined $ARGV[0] and $ARGV[0] eq "autoconf" ) |
||
| 68 | {
|
||
| 69 | if ($ret) |
||
| 70 | {
|
||
| 71 | print "no ($ret)\n"; |
||
| 72 | exit 0; |
||
| 73 | } |
||
| 74 | |||
| 75 | my $ua = LWP::UserAgent->new(timeout => 30); |
||
| 76 | |||
| 77 | foreach my $port (@PORTS) {
|
||
| 78 | my $url = sprintf $URL, $port; |
||
| 79 | my $response = $ua->request(HTTP::Request->new('GET',$url));
|
||
| 80 | if ($response->is_success) {
|
||
| 81 | if ($response->content =~ /^Total Accesses:/im ){
|
||
| 82 | next; |
||
| 83 | } |
||
| 84 | else {
|
||
| 85 | print "no (ExtendedStatus option for apache" |
||
| 86 | . " mod_status is missing on port $port)\n"; |
||
| 87 | exit 0; |
||
| 88 | } |
||
| 89 | } |
||
| 90 | elsif ($response->code == 404) {
|
||
| 91 | print "no (apache server-status not found. check if mod_status is enabled)\n"; |
||
| 92 | exit 0; |
||
| 93 | } |
||
| 94 | else {
|
||
| 95 | print "no (Port $port: ". $response->message .")\n"; |
||
| 96 | exit 0; |
||
| 97 | } |
||
| 98 | } |
||
| 99 | print "yes\n"; |
||
| 100 | exit 0; |
||
| 101 | } |
||
| 102 | |||
| 103 | if ( defined $ARGV[0] and $ARGV[0] eq "config" ) |
||
| 104 | {
|
||
| 105 | |||
| 106 | print "graph_title Average apache request\n"; |
||
| 107 | print "graph_title Average apache Requests per second\n"; |
||
| 108 | print "graph_vlabel average reqs/sec\n"; |
||
| 109 | print "graph_scale no\n"; |
||
| 110 | print "graph_category apache\n"; |
||
| 111 | print "request.label Average apache reqs/sec\n"; |
||
| 112 | exit 0; |
||
| 113 | |||
| 114 | } |
||
| 115 | |||
| 116 | my $ua = LWP::UserAgent->new(timeout => 30); |
||
| 117 | |||
| 118 | foreach my $port (@PORTS) {
|
||
| 119 | my $url = sprintf $URL, $port; |
||
| 120 | my $response = $ua->request(HTTP::Request->new('GET',$url));
|
||
| 121 | if ($response->content =~ /^ReqPerSec:\s+(.+)$/im) {
|
||
| 122 | print "request.value $1\n"; |
||
| 123 | } else {
|
||
| 124 | print "request.value U\n"; |
||
| 125 | } |
||
| 126 | } |
||
| 127 | |||
| 128 | # vim:syntax=perl |