Ajax Speedmeter ist ueber Guioptions deaktivierbar -> friss gut CPU

[ipfire-2.x.git] / html / cgi-bin / hardwaregraphs.cgi

diff --git a/html/cgi-bin/hardwaregraphs.cgi b/html/cgi-bin/hardwaregraphs.cgi
index 9cbaf12be2e7127617a9159ad69c1db16e0d53cb..473d1fe8ebaa0f54bad0da9cf7366a798a740025 100644 (file)
--- a/html/cgi-bin/hardwaregraphs.cgi
+++ b/html/cgi-bin/hardwaregraphs.cgi
@@ -10,8 +10,8 @@
 use strict;
 
 # enable only the following on debugging purpose
-# use warnings;
-# use CGI::Carp 'fatalsToBrowser';
+ use warnings;
+ use CGI::Carp 'fatalsToBrowser';
 
 require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
@@ -156,9 +156,9 @@ if ($cgigraphs[1] =~ /hddtemp/){
           foreach (@devices) {
                 my $device = $_;
                 chomp($device);
-            &Graphs::updatehddgraph ($disk,"week");
-            &Graphs::updatehddgraph ($disk,"month");
-            &Graphs::updatehddgraph ($disk,"year");}}
+            &Graphs::updatehddgraph ($device,"week");
+            &Graphs::updatehddgraph ($device,"month");
+            &Graphs::updatehddgraph ($device,"year");}}
 
   my $graph = $cgigraphs[1];
   my $graphname = $Lang::tr{"mbmon $cgigraphs[1]"};
@@ -180,7 +180,7 @@ if ($cgigraphs[1] =~ /hddtemp/){
   }
   &Header::closebox();
   print "<div align='center'><table width='80%'><tr><td align='center'>";
-  print "<a href='/cgi-bin/mbmongraph.cgi'>";
+  print "<a href='/cgi-bin/hardwaregraphs.cgi=${graph}'>";
   print "$Lang::tr{'back'}</a></td></tr></table></div>\n";
 }
 else 
@@ -192,7 +192,7 @@ else
     {
       my $ftime = localtime((stat("$graphdir/mbmon-temp-day.png"))[9]);
       print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
-      print "<a href='/cgi-bin/mbmongraph.cgi?graph=temp'>";
+      print "<a href='/cgi-bin/hardwaregraphs.cgi?graph=temp'>";
       print "<img src='/graphs/mbmon-temp-day.png' border='0' />";
       print "</a>";
     }
@@ -211,7 +211,7 @@ else
     {
       my $ftime = localtime((stat("$graphdir/mbmon-fan-day.png"))[9]);
       print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
-      print "<a href='/cgi-bin/mbmongraph.cgi?graph=fan'>";
+      print "<a href='/cgi-bin/hardwaregraphs.cgi?graph=fan'>";
       print "<img src='/graphs/mbmon-fan-day.png' border='0' />";
       print "</a>";
     }
@@ -230,7 +230,7 @@ else
     {
       my $ftime = localtime((stat("$graphdir/mbmon-volt-day.png"))[9]);
       print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
-      print "<a href='/cgi-bin/mbmongraph.cgi?graph=volt'>";
+      print "<a href='/cgi-bin/hardwaregraphs.cgi?graph=volt'>";
       print "<img src='/graphs/mbmon-volt-day.png' border='0' />";
       print "</a>";
     }