Here the code --------- use Time::Local; #use warnings qw(FATAL); #use diagnostics; #$SIG{__WARN__} = sub { $DB::single = 1; CORE::warn(@_) }; # variable settings $target="raksan"; $wwwpath="/$target"; $wwwrealpath="/home/nagios/stat/$target/htdocs"; $node = param("node"); $tmpgraph="rrd-$$.gif"; $now=time; $recenttimes = $now - 3600 * 36; $aix = 1 if ($node =~ /amsr/); # # Generate HTML page # system("/home/nagios/stat/scripts/ng_rrd2img.sh $target $node dig $recenttimes now 300 130 > $wwwrealpath/tmp/$tmpgraph"); print "Content-type: text/html\n\n"; print <
NMON Performance Graphs

NMON Performance Graphs

EOF ; # # get the current day ,month, year for the form # ($sec,$min,$hour,$mday,$month,$year,$wday,$yday) = localtime($now); #($sec,$min,$mday,$month,$year,$wday,$yday) = localtime($now); $today = $mday; $tomonth = $month + 1; $toyear = $year + 1900; # # Create a row for each node, with the FORM, the sysinfo, and a graph in it. # The nodes are all systems entered at the command line. # print <  
Select Graph(s)

$node

EOF ; $sysinfo = `sudo -u rsnagios ssh $node bin/sysinfo|sed s/-/_/`; ($model, $num_procs, $memory, $pssize, $kernelbits, $aixlevel, $uptime) = split(/,/, $sysinfo); print < Model : $model Procs : $num_procs Memory : ${memory}MB Paging : ${pssize}MB Kernel : $kernelbits bit OS : $aixlevel Uptime : $uptime

The Performance data is recorded on the systems using nmon and stored in Round Robin Databases by rrdtool. This interface is created by nmon_grapher.

EOF ; ------code ends here #### --------- use Time::Local; #use warnings qw(FATAL); #use diagnostics; #$SIG{__WARN__} = sub { $DB::single = 1; CORE::warn(@_) }; # variable settings $target="raksan"; $wwwpath="/$target"; $wwwrealpath="/home/nagios/stat/$target/htdocs"; $node = param("node"); $tmpgraph="rrd-$$.gif"; $now=time; $recenttimes = $now - 3600 * 36; $aix = 1 if ($node =~ /amsr/);