55 lines
877 B
Plaintext
55 lines
877 B
Plaintext
|
#!/usr/bin/perl -w
|
||
|
|
#
|
||
|
|
|
||
|
|
require LWP::UserAgent;
|
||
|
|
|
||
|
|
########################################################################################
|
||
|
|
#
|
||
|
|
# Installation / Configuration
|
||
|
|
#
|
||
|
|
# - place munin_xcache.php in a directory on your webserver
|
||
|
|
# - add the url config to plugin-conf.d/munin-node
|
||
|
|
#
|
||
|
|
#
|
||
|
|
# for more info see http://www.ohardt.net/dev/munin/
|
||
|
|
#
|
||
|
|
#
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
chomp(my $fqdn=`hostname -f`);
|
||
|
|
|
||
|
|
|
||
|
|
my $URL = exists $ENV{'url'} ? $ENV{'url'} : "http://user:pwd\@$fqdn/munin_xcache_new.php";
|
||
|
|
|
||
|
|
$URL = $URL . "?what=mem";
|
||
|
|
|
||
|
|
my $ua = LWP::UserAgent->new(timeout => 30);
|
||
|
|
|
||
|
|
|
||
|
|
if ( exists $ARGV[0] and $ARGV[0] eq "config" )
|
||
|
|
{
|
||
|
|
|
||
|
|
$URL = $URL . '&config';
|
||
|
|
|
||
|
|
my $response = $ua->request(HTTP::Request->new('GET',$URL . '&config' ));
|
||
|
|
|
||
|
|
print $response->content;
|
||
|
|
|
||
|
|
|
||
|
|
exit( 0 );
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
my $response = $ua->request(HTTP::Request->new('GET',$URL));
|
||
|
|
|
||
|
|
|
||
|
|
print $response->content;
|
||
|
|
|
||
|
|
|
||
|
|
exit( 0 );
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|