Previous page: Single IP
Next page: Traffic Shaping

Subnet/Seperate Page

Seperate files

This example displays a range of subnets on a completely seperate page.  Consequently the traffic.cgi was copied to trafficlocal.cgi and traffics.cgi to trafficslocal.cgi.

The data is collected via my extra traffic graph modification as: Hi-Pri (192.168.0.160/27), Lo-Pri (192.168.0.128/27), Servers (192.168.0.192/27) and Other (192.168.0.0/25) (Other is not displed).

subnet

 

  1. trafficlocal.cgi
    #!/usr/bin/perl
    #
    # SmoothWall CGIs
    #
    # This code is distributed under the terms of the GPL
    #
    # (c) The SmoothWall Team
    #
    # $Id: TrafficLocal.cgi,v 1.4.4 $
    #
    # trafficlocal.cgi, v1.4.4
    #    supports now:
    #        * choosing year
    #
    # 18 June 2004 Achim Weber
    #    - added functionality to work with IPCop 1.4.0
    #    - use some functions from ipacsum
    # 29 Mar 2005 Allan Kissack
    #      - adapted for lan reporting

    use strict;

    # enable only the following on debugging purpose
    use warnings;
    use CGI::Carp 'fatalsToBrowser';

    require '/var/ipcop/general-functions.pl';
    require "${General::swroot}/lang.pl";
    require "${General::swroot}/header.pl";
    require '/var/ipcop/net-traffic/net-traffic-lib.pl';

    my %cgiparams;
    my %pppsettings;
    my %netsettings;

    &General::readhash("${General::swroot}/ppp/settings", \%pppsettings);
    &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);

    my @wday = ($Lang::tr{'wday1'}, $Lang::tr{'wday2'}, $Lang::tr{'wday3'}, $Lang::tr{'wday4'}, $Lang::tr{'wday5'}, $Lang::tr{'wday6'}, $Lang::tr{'wday7'});

    my ($s, $min, $h, $d, $m,$y) = localtime(time);
    $y+=1900;
    $m+=1;
    $m = $m < 10 ? $m = "0".$m : $m;

    $cgiparams{'MONTH'} = $m;
    &Header::getcgihash(\%cgiparams);
    $cgiparams{'YEAR'} = $y;
    &Header::getcgihash(\%cgiparams);

    &Header::showhttpheaders();

    my %selectYear;
    $selectYear{'YEAR'}{'2001'} = '';
    $selectYear{'YEAR'}{'2002'} = '';
    $selectYear{'YEAR'}{'2003'} = '';
    $selectYear{'YEAR'}{'2004'} = '';
    $selectYear{'YEAR'}{'2005'} = '';
    $selectYear{'YEAR'}{'2006'} = '';
    $selectYear{'YEAR'}{'2007'} = '';
    $selectYear{'YEAR'}{'2008'} = '';
    $selectYear{'YEAR'}{'2009'} = '';
    $selectYear{'YEAR'}{'????'} = '';
    $selectYear{'YEAR'}{$cgiparams{'YEAR'}} = 'selected=\'selected\'';


    my %selected;

    $selected{'MONTH'}{'01'} = '';
    $selected{'MONTH'}{'02'} = '';
    $selected{'MONTH'}{'03'} = '';
    $selected{'MONTH'}{'04'} = '';
    $selected{'MONTH'}{'05'} = '';
    $selected{'MONTH'}{'06'} = '';
    $selected{'MONTH'}{'07'} = '';
    $selected{'MONTH'}{'08'} = '';
    $selected{'MONTH'}{'09'} = '';
    $selected{'MONTH'}{'10'} = '';
    $selected{'MONTH'}{'11'} = '';
    $selected{'MONTH'}{'12'} = '';
    $selected{'MONTH'}{'??'} = '';
    $selected{'MONTH'}{$cgiparams{'MONTH'}} = 'selected=\'selected\'';

    &Header::openpage($Lang::tr{'sstraffic'}, 1, '');

    &Header::openbigbox('100%', 'left');

    &Header::openbox('100%', 'left', $Lang::tr{'settingsc'});

    print <<END;
    <table width='80%' align='center'>
    <tr>
    <td width='95%' align='left' nowrap='nowrap'>
    <form method='post' action='/cgi-bin/trafficlocal.cgi'>
    $Lang::tr{'selecttraffic'}
    <select name='MONTH'>       
    <option $selected{'MONTH'}{'01'} value='01'>$Lang::tr{'january'}</option>
    <option $selected{'MONTH'}{'02'} value='02'>$Lang::tr{'february'}</option>
    <option $selected{'MONTH'}{'03'} value='03'>$Lang::tr{'march'}</option>
    <option $selected{'MONTH'}{'04'} value='04'>$Lang::tr{'april'}</option>
    <option $selected{'MONTH'}{'05'} value='05'>$Lang::tr{'may'}</option>
    <option $selected{'MONTH'}{'06'} value='06'>$Lang::tr{'june'}</option>
    <option $selected{'MONTH'}{'07'} value='07'>$Lang::tr{'july'}</option>
    <option $selected{'MONTH'}{'08'} value='08'>$Lang::tr{'august'}</option>
    <option $selected{'MONTH'}{'09'} value='09'>$Lang::tr{'september'}</option>
    <option $selected{'MONTH'}{'10'} value='10'>$Lang::tr{'october'}</option>
    <option $selected{'MONTH'}{'11'} value='11'>$Lang::tr{'november'}</option>
    <option $selected{'MONTH'}{'12'} value='12'>$Lang::tr{'december'}</option>
    <option $selected{'MONTH'}{'??'} value='??'>$Lang::tr{'allmsg'}</option>
    </select>
    <select name='YEAR'>       
    <option $selectYear{'YEAR'}{'2001'} value='2001'>2001</option>
    <option $selectYear{'YEAR'}{'2002'} value='2002'>2002</option>
    <option $selectYear{'YEAR'}{'2003'} value='2003'>2003</option>
    <option $selectYear{'YEAR'}{'2004'} value='2004'>2004</option>
    <option $selectYear{'YEAR'}{'2005'} value='2005'>2005</option>
    <option $selectYear{'YEAR'}{'2006'} value='2006'>2006</option>
    <option $selectYear{'YEAR'}{'????'} value='????'>$Lang::tr{'allmsg'}</option>
    </select>
    <input type='submit' name='ACTION' value='$Lang::tr{'update'}' />
    </form>
    </td>   
    <td width='5%' align='center'>
    <form method='post' action='/cgi-bin/trafficslocal.cgi'>
    <input type='submit' name='ACTION' value=' > ' />
    </form>
    </td>   
    </tr>
    </table>
    END

    &Header::closebox();

    &Header::openbox('100%', 'left', $Lang::tr{'trafficslocal'});

    my $dateWidth = '20%';
    my $netWidth = '34%';
    my $inOutWidth = '17%';

    $dateWidth = '16%';
    $netWidth = '28%';
    $inOutWidth = '14%';

    print <<END;
    <table width='100%'>
    <tr>
    <td width='$dateWidth' align='center' class='boldbase'></td>
    <td width='$netWidth' align='center' class='boldbase'><b>HiPri</b></td>
    <td width='$netWidth' align='center' class='boldbase'><b>LoPri</b></td>
    <td width='$netWidth' align='center' class='boldbase'><b>Servers</b></td>
    </tr>
    </table>
    <table width='100%'>
    <tr>
    <td width='$dateWidth' align='center' class='boldbase'><b>$Lang::tr{'trafficdate'}</b></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#800080'><b>$Lang::tr{'trafficin'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#800080'><b>$Lang::tr{'trafficout'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#808080'><b>$Lang::tr{'trafficin'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#808080'><b>$Lang::tr{'trafficout'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#800000'><b>$Lang::tr{'trafficin'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#800000'><b>$Lang::tr{'trafficout'}</b></font></td>
    </tr>
    END

    my $total_HiPri_in=0;
    my $total_HiPri_out=0;
    my $total_LoPri_in=0;
    my $total_LoPri_out=0;
    my $total_Servers_in=0;
    my $total_Servers_out=0;
    my $lines=0;

    my $displayMode = "daily";
    my $startMonth = $cgiparams{'MONTH'};
    my $endMonth = $cgiparams{'MONTH'};

    if ($cgiparams{'MONTH'} eq '??') {
    $displayMode = "monthly";
    $startMonth = '01';
    $endMonth = '12';
    }

    my $start = "$cgiparams{'YEAR'}$startMonth"."01";
    my $end = "$cgiparams{'YEAR'}$endMonth"."32";
    my %allDaysBytes = ();
    my @allDays = &Traffic::calcTraffic(\%allDaysBytes,$start,$end, $displayMode);


    foreach (@allDays) {
    $total_HiPri_in += $allDaysBytes{$_}{$Traffic::HiPri_in};
    $total_HiPri_out += $allDaysBytes{$_}{$Traffic::HiPri_out};
    $total_LoPri_in += $allDaysBytes{$_}{$Traffic::LoPri_in};
    $total_LoPri_out += $allDaysBytes{$_}{$Traffic::LoPri_out};
    $total_Servers_in += $allDaysBytes{$_}{$Traffic::Servers_in};
    $total_Servers_out += $allDaysBytes{$_}{$Traffic::Servers_out};

    if ($lines % 2) {
    print "<tr bgcolor='${Header::table1colour}'>"; }
    else {
    print "<tr bgcolor='${Header::table2colour}'>"; }
    printf "<td align='center' nowrap='nowrap'>%s</td>\n", $allDaysBytes{$_}{'Day'};
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::HiPri_in}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::HiPri_out}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::LoPri_in}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::LoPri_out}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::Servers_in}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td></tr>\n", ($allDaysBytes{$_}{$Traffic::Servers_out}/1048576);

    $lines++;
    }

    $total_HiPri_in=sprintf("%.2f", ($total_HiPri_in/1048576));
    $total_HiPri_out=sprintf("%.2f", ($total_HiPri_out/1048576));
    $total_LoPri_in=sprintf("%.2f", ($total_LoPri_in/1048576));
    $total_LoPri_out=sprintf("%.2f", ($total_LoPri_out/1048576));
    $total_Servers_in=sprintf("%.2f", ($total_Servers_in/1048576));
    $total_Servers_out=sprintf("%.2f", ($total_Servers_out/1048576));

    if ($lines % 2) {print "<tr bgcolor='${Header::table1colour}'>"; }
    else {print "<tr bgcolor='${Header::table2colour}'>"; }


    print <<END;
    <td align='center' class='boldbase' height='20' nowrap='nowrap'><b>$Lang::tr{'trafficsum'}</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_HiPri_in MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_HiPri_out MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_LoPri_in MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_LoPri_out MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_Servers_in MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_Servers_out MB</b></td>
    </tr>
    </table>
    END

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

  2. trafficslocal.cgi
    #!/usr/bin/perl
    #
    # SmoothWall CGIs
    #
    # This code is distributed under the terms of the GPL
    #
    # (c) The SmoothWall Team
    #
    # $Id: TrafficsLocal.cgi,v 1.4.4 $
    #
    # trafficslocal.cgi, v1.4.4
    #        supports now:
    #            * choosing year
    # 30 Mar 2005 Allan Kissack
    #      - adapted for lan reporting

    use strict;

    # enable only the following on debugging purpose
    use warnings;
    use CGI::Carp 'fatalsToBrowser';

    require '/var/ipcop/general-functions.pl';
    require "${General::swroot}/lang.pl";
    require "${General::swroot}/header.pl";
    require '/var/ipcop/net-traffic/net-traffic-lib.pl';

    my %cgiparams;
    my %netsettings;

    &General::readhash("${General::swroot}/ethernet/settings", \%netsettings);

    my @years=("2001","2002","2003","2004","2005","2006","2007","2008","2009");

    my @longmonths = ( $Lang::tr{'january'}, $Lang::tr{'february'}, $Lang::tr{'march'},
    $Lang::tr{'april'}, $Lang::tr{'may'}, $Lang::tr{'june'}, $Lang::tr{'july'}, $Lang::tr{'august'},
    $Lang::tr{'september'}, $Lang::tr{'october'}, $Lang::tr{'november'},
    $Lang::tr{'december'} );

    my @months = ( 0,1,2,3,4,5,6,7,8,9,10,11 );
    my @days = ( 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31 );

    my @wday = ($Lang::tr{'wday1'}, $Lang::tr{'wday2'}, $Lang::tr{'wday3'}, $Lang::tr{'wday4'}, $Lang::tr{'wday5'}, $Lang::tr{'wday6'}, $Lang::tr{'wday7'});

    my @now = localtime(time);   

    $now[5] = $now[5]+1900;

    $cgiparams{'STARTDAY'} = 10; 
    $cgiparams{'STOPDAY'} = 11; 
    $cgiparams{'STARTYEAR'} = $now[5]; 
    $cgiparams{'STOPYEAR'} = $now[5]; 

    # this periode started last month
    if ($now[3] < 10) {
    $cgiparams{'STARTMONTH'} = $now[4]-1;
    $cgiparams{'STOPMONTH'} = $now[4];
    # when current month is january we start in last year december
    if ($now[4] == 0) {
    $cgiparams{'STARTYEAR'} = $now[5]-1;
    $cgiparams{'STARTMONTH'} = 11;
    }
    }
    else {
    $cgiparams{'STARTMONTH'} = $now[4];
    $cgiparams{'STOPMONTH'} = $now[4]+1;
    # when we are december, this periode ends next year january
    if ($now[4] == 11) {
    $cgiparams{'STOPYEAR'} = $now[5]+1;
    $cgiparams{'STOPMONTH'} = 0;
    }
    }

    &Header::getcgihash(\%cgiparams);

    &Header::showhttpheaders();

    &Header::openpage($Lang::tr{'sstraffic'}, 1, '');

    &Header::openbigbox('100%', 'left');

    &Header::openbox('100%', 'left', $Lang::tr{'settingsc'});

    print <<END;
    <table width='100%' align='center'>
    <tr>
    <td width='95%' class='base' align='center'>
    <form method='post' action='/cgi-bin/trafficslocal.cgi'>
    $Lang::tr{'trafficfrom'}
    <select name='STARTDAY'>
    END

    foreach (@days)
    {
    print "\t<option ";
    if ($_ == $cgiparams{'STARTDAY'}) {
    print 'selected=\'selected\' '; }
    print "value='$_'>$_</option>\n";
    }
    print <<END;
    </select>
    <select name='STARTMONTH'>
    END

    foreach (@months)
    {
    print "\t<option ";
    if ($_ == $cgiparams{'STARTMONTH'}) {
    print 'selected=\'selected\' '; }
    print "value='$_'>$longmonths[$_]</option>\n";
    }

    print <<END;
    </select>
    <select name='STARTYEAR'>
    END

    for (my $index=0; $index<=$#years; $index++) {
    print "\t<option ";
    if ($years[$index] == $cgiparams{'STARTYEAR'}) {
    print 'selected=\'selected\' '; }
    print "value='$years[$index]'>$years[$index]</option>\n";
    }

    print <<END;
    </select>
    $Lang::tr{'trafficto'}
    <select name='STOPDAY'>
    END

    foreach (@days)
    {
    print "\t<option ";
    if ($_ == $cgiparams{'STOPDAY'})
    {
    print 'selected=\'selected\' '; }
    print "value='$_'>$_</option>\n";
    }

    print <<END;
    </select>
    <select name='STOPMONTH'>
    END

    foreach (@months)
    {
    print "\t<option ";
    if ($_ == $cgiparams{'STOPMONTH'}) {
    print 'selected=\'selected\' '; }
    print "value='$_'>$longmonths[$_]</option>\n";
    }

    print <<END;
    </select>
    <select name='STOPYEAR'>
    END

    for (my $index = 0; $index <=$#years; $index++) {
    print "\t<option ";
    if ($years[$index] == $cgiparams{'STOPYEAR'}) {
    print 'selected=\'selected\' '; }
    print "value='$years[$index]'>$years[$index]</option>\n";
    }


    print <<END;
    </select>
    <input type='submit' name='ACTION' value='$Lang::tr{'update'}' />
    </form>   
    </td>       
    <td width='5%' align='center'>
    <form method='post' action='/cgi-bin/trafficlocal.cgi'>
    <input type='submit' name='ACTION' value=' > ' />
    </form>
    </td>   
    </tr>
    </table>
    END

    &Header::closebox();

    &Header::openbox('100%', 'left', $Lang::tr{'traffics'});

    my $dateWidth = '20%';
    my $netWidth = '34%';
    my $inOutWidth = '17%';

    # 4 networks
    if ($netsettings{'CONFIG_TYPE'} =~ /^(5|7)$/) {
    $dateWidth = '12%';
    $netWidth = '22%';
    $inOutWidth = '11%';
    }
    # 3 networks
    if ($netsettings{'CONFIG_TYPE'} =~ /^(1|3|4|6)$/) {
    $dateWidth = '16%';
    $netWidth = '28%';
    $inOutWidth = '14%';
    }

    print <<END;
    <table width='100%'>
    <tr>
    <td width='$dateWidth' align='center' class='boldbase'></td>
    <td width='$netWidth' align='center' class='boldbase' ><b>192.168.0.10</b></td>
    END
    print "<td width='$netWidth' align='center' class='boldbase' ><b>192.168.0.11</b></td>";
    print "<td width='$netWidth' align='center' class='boldbase' ><b>192.168.0.234</b></td>";
    print <<END;
    </tr>
    </table>
    <table width='100%'>
    <tr>
    <td width='$dateWidth' align='center' class='boldbase'><b>$Lang::tr{'trafficdate'}</b></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#16A61D'><b>$Lang::tr{'trafficin'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#16A61D'><b>$Lang::tr{'trafficout'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#CE1B31'><b>$Lang::tr{'trafficin'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#CE1B31'><b>$Lang::tr{'trafficout'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#000000'><b>$Lang::tr{'trafficin'}</b></font></td>
    <td width='$inOutWidth' align='center' class='boldbase'><font color='#000000'><b>$Lang::tr{'trafficout'}</b></font></td>
    </tr>
    END

    my $total_lan010_in=0;
    my $total_lan010_out=0;
    my $total_lan011_in=0;
    my $total_lan011_out=0;
    my $total_lan234_in=0;
    my $total_lan234_out=0;
    my $lines=0;


    my $startyear = $cgiparams{'STARTYEAR'};
    my $stopyear = $cgiparams{'STOPYEAR'};

    my $startMonth = $cgiparams{'STARTMONTH'}+1;
    $startMonth = $startMonth < 10 ? $startMonth = "0".$startMonth : $startMonth;

    my $endMonth = $cgiparams{'STOPMONTH'}+1;
    $endMonth = $endMonth < 10 ? $endMonth = "0".$endMonth : $endMonth;

    my $startDay = $cgiparams{'STARTDAY'};
    $startDay = $startDay < 10 ? $startDay = "0".$startDay : $startDay;

    my $endDay = $cgiparams{'STOPDAY'}+1;
    $endDay = $endDay < 10 ? $endDay = "0".$endDay : $endDay;

    my $displayMode = "daily_multi";
    my $start = $startyear.$startMonth.$startDay;
    my $end = $stopyear.$endMonth.$endDay;

    my %allDaysBytes = ();
    my @allDays = &Traffic::calcTraffic(\%allDaysBytes,$start,$end, $displayMode);


    foreach (@allDays) {
    $total_lan010_in += $allDaysBytes{$_}{$Traffic::lan010_in};
    $total_lan010_out += $allDaysBytes{$_}{$Traffic::lan010_out};
    $total_lan011_in += $allDaysBytes{$_}{$Traffic::lan011_in};
    $total_lan011_out += $allDaysBytes{$_}{$Traffic::lan011_out};
    $total_lan234_in += $allDaysBytes{$_}{$Traffic::lan234_in};
    $total_lan234_out += $allDaysBytes{$_}{$Traffic::lan234_out};

    if ($lines % 2) {
    print "<tr bgcolor='${Header::table1colour}'>"; }
    else {
    print "<tr bgcolor='${Header::table2colour}'>"; }

    printf "<td align='center' nowrap='nowrap'>%s</td>\n", $allDaysBytes{$_}{'Day'};
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::lan010_in}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::lan010_out}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::lan011_in}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::lan011_out}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::lan234_in}/1048576);
    printf "<td align='center' nowrap='nowrap'>%.3f</td>\n", ($allDaysBytes{$_}{$Traffic::lan234_out}/1048576);

    printf "</tr>\n";

    $lines++;
    }

    $total_lan010_in=sprintf("%.2f", ($total_lan010_in/1048576));
    $total_lan010_out=sprintf("%.2f", ($total_lan010_out/1048576));
    $total_lan011_in=sprintf("%.2f", ($total_lan011_in/1048576));
    $total_lan011_out=sprintf("%.2f", ($total_lan011_out/1048576));
    $total_lan234_in=sprintf("%.2f", ($total_lan234_in/1048576));
    $total_lan234_out=sprintf("%.2f", ($total_lan234_out/1048576)); 

    if ($lines % 2) {print "<tr bgcolor='$Header::table1colour'>"; }
    else {print "<tr bgcolor='$Header::table2colour'>"; }

    print <<END;
    <td align='center' class='boldbase' height='20' nowrap='nowrap'><b>$Lang::tr{'trafficsum'}</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_lan010_in MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_lan010_out MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_lan011_in MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_lan011_out MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_lan234_in MB</b></td>
    <td align='center' class='boldbase' nowrap='nowrap'><b>$total_lan234_out MB</b></td>
    </tr>
    </table>
    END

    &Header::closebox();

    &Header::closebigbox();

    &Header::closepage();


That's it


^Top
Previous page: Single IP
Next page: Traffic Shaping