Robot/contrib-munin
2
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2018-11-08 00:59:34 +01:00
Code Issues Releases Wiki Activity

apache_status: make it easy to monitor other hosts as a virtual node

Browse Source
This commit is contained in:
Diego Elio Pettenò 2012-11-05 15:17:41 -08:00
parent de8f24a464
commit 569e801eea
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
plugins/apache/apache_status
View File

@ -104,6 +104,9 @@ use strict;
use warnings; use warnings;
use Munin::Plugin; use Munin::Plugin;
$0 =~ /apache_status(?:_(.+))$/;
my $HOSTNAME = $1;
my $ret = undef; my $ret = undef;
if (! eval "require LWP::UserAgent;") { if (! eval "require LWP::UserAgent;") {
@ -113,7 +116,17 @@ if (! eval "require LWP::UserAgent;") {
} }
} }
my $URL = exists $ENV{'url'} ? $ENV{'url'} : "http://127.0.0.1:%d/server-status?auto"; if ( exists $ENV{'hostname'} ) {
$HOSTNAME = $ENV{'hostname'};
}
my $URL = "http://127.0.0.1:%d/server-status?auto";
if ( exists $ENV{'url'} ) {
$URL = $ENV{'url'};
} elsif ( defined $HOSTNAME ) {
$URL = "http://$HOSTNAME:%d/server-status?auto"
}
my @PORTS = exists $ENV{'ports'} ? split(' ', $ENV{'ports'}) : (80); my @PORTS = exists $ENV{'ports'} ? split(' ', $ENV{'ports'}) : (80);
my $UA = LWP::UserAgent->new(timeout => 30, my $UA = LWP::UserAgent->new(timeout => 30,
agent => sprintf("munin/%s (libwww-perl/%s)", $Munin::Common::Defaults::MUNIN_VERSION, $LWP::VERSION)); agent => sprintf("munin/%s (libwww-perl/%s)", $Munin::Common::Defaults::MUNIN_VERSION, $LWP::VERSION));
@ -148,6 +161,10 @@ if ( defined $ARGV[0] and $ARGV[0] eq "autoconf" ) {
} }
if ( defined $ARGV[0] and $ARGV[0] eq "config" ) { if ( defined $ARGV[0] and $ARGV[0] eq "config" ) {
if ( defined $HOSTNAME ) {
print "host_name $HOSTNAME\n";
}
print <<END; print <<END;
multigraph apache_accesses multigraph apache_accesses