Previous page: Iptables GUI
Next page: iptmangle.cgi

iptfilter.cgi

  • #!/usr/bin/perl
    #
    # Ipcop CGIs
    #
    # This code is distributed under the terms of the GPL
    #
    # (c) EA Kissack
    #
    # $Id: iptmangle.cgi, v 1.4.6 2005/6/11
    #
    require '/var/ipcop/general-functions.pl';
    require "${General::swroot}/lang.pl";
    require "${General::swroot}/header.pl";

    my @iplines;
    my $lines = 0;


    &Header::showhttpheaders();
    &Header::openpage($Lang::tr{'iptfilter'}, 1, '');
    &Header::openbigbox('100%', 'LEFT');
    &Header::openbox('100%', 'LEFT', $Lang::tr{'iptfilter'}.':');
    print <<END

    <DIV align='left'>
    <PRE>
    END
    ;
    open (FILE, '/home/httpd/html/iptables/filter.txt');
    while (<FILE>)
    {
    $iplines[$lines] = $_;
    $lines++;
    }
    close (FILE);
    foreach $_ (@iplines) {
    print "$_"; }

    print <<END
    </PRE>
    </DIV>
    <BR>

    END
    ;
    &Header::closebox();
    &Header::closebigbox();
    &Header::closepage();



^Top
Previous page: Iptables GUI
Next page: iptmangle.cgi