X-Git-Url: http://git.ipfire.org/?p=people%2Fpmueller%2Fipfire-2.x.git;a=blobdiff_plain;f=html%2Fcgi-bin%2Fhardwaregraphs.cgi;h=4537994852c6cd61966b98f512498af142b2dd49;hp=312c0096637279abf01f05a7ec35f0ad39497e8c;hb=350b52c5c9368951ff2a9139817b42d0aec03ad7;hpb=aee3027d875826e18b3eb198f9ad0c3228bfbb01 diff --git a/html/cgi-bin/hardwaregraphs.cgi b/html/cgi-bin/hardwaregraphs.cgi index 312c009663..4537994852 100644 --- a/html/cgi-bin/hardwaregraphs.cgi +++ b/html/cgi-bin/hardwaregraphs.cgi @@ -16,15 +16,40 @@ use strict; require '/var/ipfire/general-functions.pl'; require "${General::swroot}/lang.pl"; require "${General::swroot}/header.pl"; +require "${General::swroot}/graphs.pl"; my %cgiparams=(); my @cgigraphs=(); -my @graphs=(); &Header::showhttpheaders(); my $graphdir = "/srv/web/ipfire/html/graphs"; +my @disks = `kudzu -qps -c HD | grep device: | cut -d" " -f2 | sort | uniq`; +foreach (@disks){ + my $disk = $_; + chomp $disk; + &Graphs::updatehddgraph ($disk,"day"); + &Graphs::updatehddgraph ($disk,"week"); + &Graphs::updatehddgraph ($disk,"month"); + &Graphs::updatehddgraph ($disk,"year"); +} + + &Graphs::updatetempgraph ("day"); + &Graphs::updatetempgraph ("week"); + &Graphs::updatetempgraph ("month"); + &Graphs::updatetempgraph ("year"); + &Graphs::updatefangraph ("day"); + &Graphs::updatefangraph ("week"); + &Graphs::updatefangraph ("month"); + &Graphs::updatefangraph ("year"); + &Graphs::updatevoltgraph ("day"); + &Graphs::updatevoltgraph ("week"); + &Graphs::updatevoltgraph ("month"); + &Graphs::updatevoltgraph ("year"); + +my @graphs=(); + &Header::getcgihash(\%cgiparams); $ENV{'QUERY_STRING'} =~ s/&//g;