immernoch das alte Problem...

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

#!/usr/bin/perl\r
#\r
# SmoothWall CGIs\r
#\r
# This code is distributed under the terms of the GPL\r
#\r
# (c) The SmoothWall Team\r
#\r
# $Id: graphs.cgi,v 1.9.2.6 2005/02/22 22:21:55 gespinasse Exp $\r
#\r
\r
use strict;\r
\r
# enable only the following on debugging purpose\r
#use warnings;\r
#use CGI::Carp 'fatalsToBrowser';\r
\r
require 'CONFIG_ROOT/general-functions.pl';\r
require "${General::swroot}/lang.pl";\r
require "${General::swroot}/header.pl";\r
\r
my %cgiparams=();\r
my %pppsettings=();\r
my %netsettings=();\r
my @cgigraphs=();\r
my @graphs=();\r
my $iface='';\r
\r
&Header::showhttpheaders();\r
\r
my $graphdir = "/home/httpd/html/graphs";\r
&General::readhash("${General::swroot}/ethernet/settings", \%netsettings);\r
\r
$ENV{'QUERY_STRING'} =~ s/&//g;\r
@cgigraphs = split(/graph=/,$ENV{'QUERY_STRING'});\r
$cgigraphs[1] = '' unless defined $cgigraphs[1];\r
\r
if ($cgigraphs[1] =~ /(network|GREEN|BLUE|ORANGE|RED)/) {\r
	&Header::openpage($Lang::tr{'network traffic graphs'}, 1, '');\r
} else {\r
	&Header::openpage($Lang::tr{'system graphs'}, 1, '');\r
}\r
&Header::openbigbox('100%', 'left');\r
\r
if ($cgigraphs[1] =~ /(GREEN|BLUE|ORANGE|RED|cpu|memory|swap|disk)/) {\r
	my $graph = $cgigraphs[1];\r
	my $graphname = ucfirst(lc($cgigraphs[1]));\r
	&Header::openbox('100%', 'center', "$graphname $Lang::tr{'graph'}");\r
\r
	if (-e "$graphdir/${graph}-day.png") {\r
		my $ftime = localtime((stat("$graphdir/${graph}-day.png"))[9]);\r
		print "<center>";\r
		print "<b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br /><hr />\n";\r
		print "<img src='/graphs/${graph}-day.png' border='0' /><hr />";\r
		print "<img src='/graphs/${graph}-week.png' border='0' /><hr />";\r
		print "<img src='/graphs/${graph}-month.png' border='0' /><hr />";\r
		print "<img src='/graphs/${graph}-year.png' border='0' />";\r
	} else {\r
		print $Lang::tr{'no information available'};\r
	}\r
	&Header::closebox();\r
	print "<div align='center'><table width='80%'><tr><td align='center'>";\r
	if ($cgigraphs[1] =~ /(GREEN|BLUE|ORANGE|RED)/) {\r
		print "<a href='/cgi-bin/graphs.cgi?graph=network'>";\r
	} else {\r
		print "<a href='/cgi-bin/graphs.cgi'>";\r
	}\r
	print "$Lang::tr{'back'}</a></td></tr></table></div>\n";\r
	;\r
} elsif ($cgigraphs[1] =~ /network/) {\r
	push (@graphs, ('GREEN'));\r
	if ($netsettings{'BLUE_DEV'}) {\r
		push (@graphs, ('BLUE')); }\r
	if ($netsettings{'ORANGE_DEV'}) {\r
		push (@graphs, ('ORANGE')); }\r
	push (@graphs, ("RED"));\r
\r
	foreach my $graphname (@graphs) {\r
		&Header::openbox('100%', 'center', "$graphname $Lang::tr{'graph'}");\r
\r
		if (-e "$graphdir/${graphname}-day.png") {\r
			my $ftime = localtime((stat("$graphdir/${graphname}-day.png"))[9]);\r
			print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";\r
			print "<a href='/cgi-bin/graphs.cgi?graph=$graphname'>";\r
			print "<img src='/graphs/${graphname}-day.png' border='0' />";\r
			print "</a>";\r
		} else {\r
			print $Lang::tr{'no information available'};\r
		}\r
		print "<br />\n";\r
		&Header::closebox();\r
	}\r
} else {\r
	&Header::openbox('100%', 'center', "CPU $Lang::tr{'graph'}");\r
	if (-e "$graphdir/cpu-day.png") {\r
		my $ftime = localtime((stat("$graphdir/cpu-day.png"))[9]);\r
		print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";\r
		print "<a href='/cgi-bin/graphs.cgi?graph=cpu'>";\r
		print "<img src='/graphs/cpu-day.png' border='0' />";\r
		print "</a>";\r
	} else {\r
		print $Lang::tr{'no information available'};\r
	}\r
	print "<br />\n";\r
	&Header::closebox();\r
\r
	&Header::openbox('100%', 'center', "Memory $Lang::tr{'graph'}");\r
	if (-e "$graphdir/memory-day.png") {\r
		my $ftime = localtime((stat("$graphdir/memory-day.png"))[9]);\r
		print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";\r
		print "<a href='/cgi-bin/graphs.cgi?graph=memory'>";\r
		print "<img src='/graphs/memory-day.png' border='0' />";\r
		print "</a>";\r
	} else {\r
		print $Lang::tr{'no information available'};\r
	}\r
	print "<br />\n";\r
	&Header::closebox();\r
\r
	&Header::openbox('100%', 'center', "Swap $Lang::tr{'graph'}");\r
	if (-e "$graphdir/swap-day.png") {\r
		my $ftime = localtime((stat("$graphdir/swap-day.png"))[9]);\r
		print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";\r
		print "<a href='/cgi-bin/graphs.cgi?graph=swap'>";\r
		print "<img src='/graphs/swap-day.png' border='0' />";\r
		print "</a>";\r
	} else {\r
		print $Lang::tr{'no information available'};\r
	}\r
	print "<br />\n";\r
	&Header::closebox();\r
\r
	&Header::openbox('100%', 'center', "Disk $Lang::tr{'graph'}");\r
	if (-e "$graphdir/disk-day.png") {\r
		my $ftime = localtime((stat("$graphdir/disk-day.png"))[9]);\r
		print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";\r
		print "<a href='/cgi-bin/graphs.cgi?graph=disk'>";\r
		print "<img src='/graphs/disk-day.png' border='0' />";\r
		print "</a>";\r
	} else {\r
		print $Lang::tr{'no information available'};\r
	}\r
	print "<br />\n";\r
	&Header::closebox();\r
}\r
\r
&Header::closebigbox();\r
&Header::closepage();\r