html/cgi-bin/iptables.cgi

   1 #!/usr/bin/perl
   2 #
   3 # IPFire CGIs
   4 #
   5 # This code is distributed under the terms of the GPL
   6 #
   7
   8 require '/var/ipfire/general-functions.pl';
   9 require "${General::swroot}/lang.pl";
  10 require "${General::swroot}/header.pl";
  11
  12 my @iplines;
  13 my $lines = 0;
  14 my @ipmanlines;
  15 my $manlines = 0;
  16 my @ipnatlines;
  17 my $natlines = 0;
  18
  19 system('/usr/local/bin/getipstat');
  20
  21 &Header::showhttpheaders();
  22 &Header::openpage($Lang::tr{'ipts'}, 1, '');
  23 &Header::openbigbox('100%', 'LEFT');
  24 &Header::openbox('100%', 'LEFT', $Lang::tr{'ipts'}.':');
  25 print <<END
  26
  27     <DIV align='left'>
  28     <PRE>
  29 END
  30 ;
  31         open (FILE, '/home/httpd/html/iptables.txt');
  32         while (<FILE>)
  33        {
  34                 $iplines[$lines] = $_;
  35                 $lines++;
  36        }
  37         close (FILE);
  38         foreach $_ (@iplines) {
  39                 print "$_"; }
  40
  41 print <<END
  42     </PRE>
  43     </DIV>
  44     <BR>
  45
  46 END
  47 ;
  48 &Header::closebox();
  49
  50 ## MANGLE
  51 &Header::openbox('100%', 'LEFT', $Lang::tr{'iptmangles'}.':');
  52 print <<END
  53
  54     <DIV align='left'>
  55     <PRE>
  56 END
  57 ;
  58         open (FILEMAN, '/home/httpd/html/iptablesmangle.txt');
  59         while (<FILEMAN>)
  60        {
  61                 $ipmanlines[$manlines] = $_;
  62                 $manlines++;
  63        }
  64         close (FILEMAN);
  65         foreach $_ (@ipmanlines) {
  66                 print "$_"; }
  67
  68 print <<END
  69     </PRE>
  70     </DIV>
  71     <BR>
  72
  73 END
  74 ;
  75 &Header::closebox();
  76
  77 ## NAT
  78 &Header::openbox('100%', 'LEFT', $Lang::tr{'iptnats'}.':');
  79 print <<END
  80
  81     <DIV align='left'>
  82     <PRE>
  83 END
  84 ;
  85         open (FILENAT, '/home/httpd/html/iptablesnat.txt');
  86         while (<FILENAT>)
  87        {
  88                 $ipnatlines[$natlines] = $_;
  89                 $natlines++;
  90        }
  91         close (FILENAT);
  92         foreach $_ (@ipnatlines) {
  93                 print "$_"; }
  94
  95 print <<END
  96     </PRE>
  97     </DIV>
  98     <BR>
  99
 100 END
 101 ;
 102 &Header::closebox();
 103 &Header::closebigbox();
 104 &Header::closepage();
 105
 106 unlink /home/httpd/html/iptables.txt;
 107 unlink /home/httpd/html/iptablesmangle.txt;
 108 unlink /home/httpd/html/iptablesnat.txt;