Allan's Place

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).

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();

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

This page has been viewed 557 times since Nov 2009.

^ Top

Previous page: Single IP
Next page: Traffic Shaping

Navigation

Subnet/Seperate Page