#!/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 );