html/cgi-bin/fwhits.cgi

   1 #!/usr/bin/perl
   2 #
   3 # This code is distributed under the terms of the GPL
   4 #
   5
   6 use strict;
   7
   8 # enable only the following on debugging purpose
   9 #use warnings;
  10 #use CGI::Carp 'fatalsToBrowser';
  11
  12 require '/var/ipfire/general-functions.pl';
  13 require "${General::swroot}/lang.pl";
  14 require "${General::swroot}/header.pl";
  15 require "${General::swroot}/graphs.pl";
  16
  17 my %cgiparams=();
  18 my @cgigraphs=();
  19 my @graphs=();
  20
  21 &Graphs::updatefwhitsgraph ("day");
  22 &Graphs::updatefwhitsgraph ("week");
  23 &Graphs::updatefwhitsgraph ("month");
  24 &Graphs::updatefwhitsgraph ("year");
  25
  26 $ENV{'QUERY_STRING'} =~ s/&//g;
  27 @cgigraphs = split(/graph=/,$ENV{'QUERY_STRING'});
  28 $cgigraphs[1] = '' unless defined $cgigraphs[1];
  29
  30 &Header::showhttpheaders();
  31
  32 my $graphdir = "/home/httpd/html/graphs";
  33 my @LOCALCHECK=();
  34 my $errormessage="";
  35
  36 &Header::openpage($Lang::tr{'firewall graphs'}, 1, '');
  37 &Header::openbigbox('100%', 'left', '', $errormessage);
  38
  39                 &Header::openbox('100%', 'center', $Lang::tr{"daily firewallhits"});
  40 if (-e "$Header::graphdir/firewallhits-day-area.png") {
  41                 my $ftime = localtime((stat("$Header::graphdir/firewallhits-day-area.png"))[9]);
  42                 print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
  43                 print "<img alt='' src='/graphs/firewallhits-day-area.png' border='0' />";
  44                 print "<br />\n";
  45 } else {
  46         print $Lang::tr{'no information available'};
  47 }
  48 print "<br />\n";
  49                 &Header::closebox();
  50
  51                 &Header::openbox('100%', 'center', $Lang::tr{"weekly firewallhits"});
  52 if (-e "$Header::graphdir/firewallhits-week-area.png") {
  53                 my $ftime = localtime((stat("$Header::graphdir/firewallhits-week-area.png"))[9]);
  54                 print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
  55                 print "<img alt='' src='/graphs/firewallhits-week-area.png' border='0' />";
  56                 print "<br />\n";
  57 } else {
  58         print $Lang::tr{'no information available'};
  59 }
  60 print "<br />\n";
  61                 &Header::closebox();
  62
  63                 &Header::openbox('100%', 'center', $Lang::tr{"monthly firewallhits"});
  64 if (-e "$Header::graphdir/firewallhits-month-area.png") {
  65                 my $ftime = localtime((stat("$Header::graphdir/firewallhits-month-area.png"))[9]);
  66                 print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
  67                 print "<img alt='' src='/graphs/firewallhits-month-area.png' border='0' />";
  68                 print "<br />\n";
  69 } else {
  70         print $Lang::tr{'no information available'};
  71 }
  72 print "<br />\n";
  73                 &Header::closebox();
  74
  75                 &Header::openbox('100%', 'center', $Lang::tr{"yearly firewallhits"});
  76 if (-e "$Header::graphdir/firewallhits-year-area.png") {
  77                 my $ftime = localtime((stat("$Header::graphdir/firewallhits-year-area.png"))[9]);
  78                 print "<center><b>$Lang::tr{'the statistics were last updated at'}: $ftime</b></center><br />\n";
  79                 print "<img alt='' src='/graphs/firewallhits-year-area.png' border='0' />";
  80                 print "<br />\n";
  81 } else {
  82         print $Lang::tr{'no information available'};
  83 }
  84 print "<br />\n";
  85                 &Header::closebox();
  86
  87 &Header::closebigbox();
  88 &Header::closepage();