$svrname Sensors

#!/usr/bin/perl # # slightly modified by Freek Reedeker 2009 # # copyright Martin Pot 2003 # http://martybugs.net/linux/hddtemp.cgi # # sensormc.cgi my @graphs; my $numberOfColumns, $currentColumn; $numberOfColumns = 2; my ($name, $descr); # Get available daily graphs # If a daily graph exists in the currrent directory it will be shown. # To remove a daily graph go to the /usr/local/bin/lmsensor.pl script # If you comment the sensor out of the "to monitor" list, its daily graph # will be deleted my $availableGraphs = `ls *-day.png`; # Push them on @graphs array while($availableGraphs =~ m/\G(.*)-.*.png\n/g) { push (@graphs, $1); # print ""."\n"; } # get the server name (or you could hard code some description here) my $svrname = $ENV{'SERVER_NAME'}; # get url parameters my @values = split(/&/, $ENV{'QUERY_STRING'}); foreach my $i (@values) { ($varname, $mydata) = split(/=/, $i); if ($varname eq 'trend') { $name = $mydata; } } if ($name eq '') { $descr = "summary"; } else { $descr = " ".$name." "; # replace %20 codes with in name $descr =~ s/%20/ /g; } print "Content-type: text/html;\n\n"; print < $svrname Sensors :: $descr

END ; if ($name eq '') { print "Daily Graphs (5 minute averages)"; print "
"; $currentColumn = 1; #print start of table print ""; #print start of table row print ""; foreach $graph (@graphs) { print ""; # Check for last column, continue on next row. if ($currentColumn++ == $numberOfColumns){ $currentColumn = 1; print ""; } } # fill the remaining cells of the last row with empty data while (($currentColumn-1) % $numberOfColumns){ $currentColumn++; print ""; } print ""; print "

"; print "

"; #print "
"; #print "
"; print "

"; } else { print <

Weekly Graph (30 minute averages)

Monthly Graph (2 hour averages)

Yearly Graph (12 hour averages)

END ; } print <

END ;