Munin contributed plugins

#!/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=hits";

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 );