#!/usr/bin/perl
use strict;
use warnings;
use CGI ':standard';
use CGI::Carp 'fatalsToBrowser';

my $node = param('node');
my $target      = "raksan";
my $wwwpath     = '/target';
my $wwwrealpath = "/home/nagios/stat/$target/htdocs";
my $tmpgraph    = "rrd-$$.gif";
my $recenttimes = time - 3600 * 36;

print header(),start_html();

my $cmd = "/home/nagios/stat/scripts/ng_rrd2img.sh $target $node dig $recenttimes now 300 130 > $wwwrealpath/tmp/$tmpgraph";
my $status = system($cmd);
if ($status){
  warn "$?";
}

my $path = join "\n",split ';',$ENV{'PATH'};
print qq!<pre>$cmd</pre>
<pre>PATH
$path</pre>
<img src="$wwwpath/tmp/$tmpgraph" alt="$wwwpath/tmp/$tmpgraph" border="1"/>!;
print end_html();