rrd graphs: Remove unused individual graph output

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

diff --git a/html/cgi-bin/media.cgi b/html/cgi-bin/media.cgi
index 5753bc301dfdcb7a74e7c543e077a9c0b30e27ce..835565811193c53b75e127d3694fe60da358e41a 100644 (file)
--- a/html/cgi-bin/media.cgi
+++ b/html/cgi-bin/media.cgi
@@ -33,7 +33,7 @@ require "${General::swroot}/graphs.pl";
 my %color = ();
 my %mainsettings = ();
 &General::readhash("${General::swroot}/main/settings", \%mainsettings);
-&General::readhash("/srv/web/ipfire/html/themes/".$mainsettings{'THEME'}."/include/colors.txt", \%color);
+&General::readhash("/srv/web/ipfire/html/themes/ipfire/include/colors.txt", \%color);
 
 #workaround to suppress a warning when a variable is used only once
 my @dummy = ( ${Header::colourred} );
@@ -41,18 +41,8 @@ undef (@dummy);
 
 my %cgiparams=();
 
-my @querry = split(/\?/,$ENV{'QUERY_STRING'});
-$querry[0] = '' unless defined $querry[0];
-$querry[1] = 'hour' unless defined $querry[1];
-
 my @devices = `ls -1 /sys/block | grep -E '^sd|^mmcblk|^nvme|^xvd|^vd|^md' | sort | uniq`;
 
-if ( $querry[0] =~ "sd?" || $querry[0] =~ "mmcblk?" || $querry[0] =~ "nvme?n?" || $querry[0] =~ "xvd??" || $querry[0] =~ "vd?" || $querry[0] =~ "md*" ){
-       print "Content-type: image/png\n\n";
-       binmode(STDOUT);
-       
-       &Graphs::updatediskgraph($querry[0],$querry[1]);
-}else{
        &Header::showhttpheaders();
        &Header::openpage($Lang::tr{'media information'}, 1, '');
        &Header::openbigbox('100%', 'left');
@@ -162,7 +152,6 @@ END
 
        &Header::closebigbox();
        &Header::closepage();
-}
 
 sub percentbar
 {