my @cgiparams=();
my @graphs=();
my @pings=();
+my @wireless=();
my $iface='';
my %dhcpsettings=();
my %dhcpinfo=();
push(@pings,$2);
}
push (@graphs, ("fwhits"));
+
}else {
&Header::openpage($Lang::tr{'network traffic graphs internal'}, 1, '');
push (@graphs, ($netsettings{'GREEN_DEV'}));
push (@graphs, ($netsettings{'BLUE_DEV'})); }
if ($netsettings{'ORANGE_DEV'}) {
push (@graphs, ($netsettings{'ORANGE_DEV'})); }
+ my @wirelessgraphs = `ls -dA /var/log/rrd/collectd/localhost/wireless*`;
+ foreach (@wirelessgraphs){
+ $_ =~ /(.*)\/wireless-(.*)/;
+ push(@wireless,$2);
+ }
}
&Header::openbigbox('100%', 'left');
{ &Graphs::updatefwhitsgraph("day"); }
else
{ &Graphs::updateifgraph($graphname, "day"); }
-
+
&Header::openbox('100%', 'center', "$graphname $Lang::tr{'graph'}");
if (-e "$Header::graphdir/${graphname}-day.png") {
my $ftime = localtime((stat("$Header::graphdir/${graphname}-day.png"))[9]);
&Header::closebox();
}
+foreach my $graphname (@wireless) {
+
+ &Graphs::wireless("day",$graphname);
+
+ &Header::openbox('100%', 'center', "wireless $graphname $Lang::tr{'graph'}");
+ if (-e "$Header::graphdir/wireless-${graphname}-day.png") {
+ my $ftime = localtime((stat("$Header::graphdir/wireless-${graphname}-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=wireless&graph=$graphname'>";
+ print "<img alt='' src='/graphs/wireless-${graphname}-day.png' border='0' />";
+ print "</a>";
+ } else {
+ print $Lang::tr{'no information available'};
+ }
+ print "<br />\n";
+ &Header::closebox();
+}
+
if ($cgiparams[1] =~ /red/) {
if ( $netsettings{'CONFIG_TYPE'} =~ /^(1|2|3|4)$/ && $netsettings{'RED_TYPE'} eq "DHCP") {