Add cpufreq graph

[people/pmueller/ipfire-2.x.git] / html / cgi-bin / system.cgi

diff --git a/html/cgi-bin/system.cgi b/html/cgi-bin/system.cgi
index 8f79970826e239f781ac0189871688bbd21986c6..5d852176b92baac5073f96cf9b2eeaff9f400a2b 100644 (file)
--- a/html/cgi-bin/system.cgi
+++ b/html/cgi-bin/system.cgi
@@ -39,6 +39,7 @@ my %cgiparams=();
 
 # Generate Graphs from rrd Data
 &Graphs::updatecpugraph ("day");
+&Graphs::updatecpufreqgraph ("day");
 &Graphs::updateloadgraph ("day");
 
 &Header::showhttpheaders();
@@ -59,6 +60,17 @@ if (-e "$Header::graphdir/cpu-day.png") {
 print "<br />\n";
 &Header::closebox();
 
+if (-e "$Header::graphdir/cpufreq-day.png") {
+    &Header::openbox('100%', 'center', "CPU Frequency $Lang::tr{'graph'}");
+       my $ftime = localtime((stat("$Header::graphdir/cpufreq-day.png"))[9]);
+       print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
+       print "<a href='/cgi-bin/graphs.cgi?graph=cpufreq'>";
+       print "<img alt='' src='/graphs/cpufreq-day.png' border='0' />";
+       print "</a>";
+       print "<br />\n";
+    &Header::closebox();
+}
+
 &Header::openbox('100%', 'center', "Load $Lang::tr{'graph'}");
 if (-e "$Header::graphdir/load-day.png") {
        my $ftime = localtime((stat("$Header::graphdir/load-day.png"))[9]);