X-Git-Url: http://git.ipfire.org/?p=people%2Fpmueller%2Fipfire-2.x.git;a=blobdiff_plain;f=html%2Fcgi-bin%2Fmedia.cgi;h=2dfc3a02ce80d722f6568a7f1b0d1115b8607bb5;hp=5f9662317ca1ede2e7f79855d6406dca928f8923;hb=350b52c5c9368951ff2a9139817b42d0aec03ad7;hpb=aee3027d875826e18b3eb198f9ad0c3228bfbb01

diff --git a/html/cgi-bin/media.cgi b/html/cgi-bin/media.cgi
index 5f9662317c..2dfc3a02ce 100644
--- a/html/cgi-bin/media.cgi
+++ b/html/cgi-bin/media.cgi
@@ -17,6 +17,7 @@ use CGI::Carp 'fatalsToBrowser';
 require '/var/ipfire/general-functions.pl';
 require "${General::swroot}/lang.pl";
 require "${General::swroot}/header.pl";
+require "${General::swroot}/graphs.pl";
 
 #workaround to suppress a warning when a variable is used only once
 my @dummy = ( ${Header::colourred} );
@@ -32,24 +33,14 @@ my %cgiparams=();
 
 &Header::openbigbox('100%', 'left');
 
-&Header::openbox('100%', 'center', "Disk $Lang::tr{'graph'}");
-if (-e "$Header::graphdir/disk-day.png") {
-	my $ftime = localtime((stat("$Header::graphdir/disk-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=disk'>";
-	print "<img alt='' src='/graphs/disk-day.png' border='0' />";
-	print "</a>";
-} else {
-	print $Lang::tr{'no information available'};
-}
-print "<br />\n";
-&Header::closebox();
-
 my @devices = `kudzu -qps -c HD | grep device: | cut -d" " -f2 | sort | uniq`;
 
 foreach (@devices) {
 	my $device = $_;
 	chomp($device);
+	&Graphs::updatediskgraph ("day",$device);
+	&Graphs::updatediskgraph ("week",$device);
+	&Graphs::updatediskgraph ("month",$device);
 	diskbox("$device");
 }
 
@@ -206,6 +197,4 @@ END
 ;
       &Header::closebox();
 		}
-
-  
 }