X-Git-Url: http://git.ipfire.org/?a=blobdiff_plain;ds=inline;f=html%2Fcgi-bin%2Fmedia.cgi;h=6a89ca86774710c29dc19f3398aa800f4b344568;hb=fac92c6d25038f61430a4e872e720ba00b539385;hp=ccf882e4fce64a14500e7ef2db9a6b6a151f77d3;hpb=4e17adadcd3c3942e7c2222485fbf88608a4477f;p=people%2Fpmueller%2Fipfire-2.x.git
diff --git a/html/cgi-bin/media.cgi b/html/cgi-bin/media.cgi
index ccf882e4fc..6a89ca8677 100644
--- a/html/cgi-bin/media.cgi
+++ b/html/cgi-bin/media.cgi
@@ -1,55 +1,79 @@
#!/usr/bin/perl
-#
-# SmoothWall CGIs
-#
-# This code is distributed under the terms of the GPL
-#
-# (c) The SmoothWall Team
-#
-#
+###############################################################################
+# #
+# IPFire.org - A linux based firewall #
+# Copyright (C) 2008 Michael Tremer & Christian Schmidt #
+# #
+# This program is free software: you can redistribute it and/or modify #
+# it under the terms of the GNU General Public License as published by #
+# the Free Software Foundation, either version 3 of the License, or #
+# (at your option) any later version. #
+# #
+# This program is distributed in the hope that it will be useful, #
+# but WITHOUT ANY WARRANTY; without even the implied warranty of #
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
+# GNU General Public License for more details. #
+# #
+# You should have received a copy of the GNU General Public License #
+# along with this program. If not, see . #
+# #
+###############################################################################
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";
require "${General::swroot}/header.pl";
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);
+
#workaround to suppress a warning when a variable is used only once
my @dummy = ( ${Header::colourred} );
undef (@dummy);
my %cgiparams=();
-&Header::showhttpheaders();
-
-&Header::getcgihash(\%cgiparams);
-
-&Header::openpage($Lang::tr{'media information'}, 1, '');
-
-&Header::openbigbox('100%', 'left');
+my @querry = split(/\?/,$ENV{'QUERY_STRING'});
+$querry[0] = '' unless defined $querry[0];
+$querry[1] = 'hour' unless defined $querry[1];
my @devices = `kudzu -qps -c HD | grep device: | cut -d" " -f2 | sort | uniq`;
-foreach (@devices) {
- my $device = $_;
- chomp($device);
- &Graphs::updatediskgraph ("day",$device);
- diskbox("$device");
-}
-
-&Header::openbox('100%', 'center', $Lang::tr{'disk usage'});
-print "
\n";
-open(DF,'/bin/df -B M -x rootfs|');
-while()
-{
- if ($_ =~ m/^Filesystem/ )
- {
- print <\n";
+ open(DF,'/bin/df -B M -x rootfs|');
+ while(){
+ if ($_ =~ m/^Filesystem/ ){
+ print <