Hi,

I'm investigating BA v8.5 (VLAN support) and I have devised a small  script to plot graphs from captured data I found very neat. I'd like to  contribute it just in case you find it useful, and also to request your  help in finding bugs and suggesting improvements. I don't know how many  users are up to this particular version, perhaps somebody can tailor it  to other BA versions.

My customer wants to grant a commited rate to groups of LANs in a very  particular way (e.g. a group of networks A, B and C wants to get a  minimum X rate, networks D and E a minimum Y rate, etc). I have  resorted to divide X over 3, Y over 2, etc., watch the graphic results,  and then progressively tune up BA VLAN rules empirically. We had no  available tool to perform the job of aggregating the offered load from  the selected groups, so I took up this little script. You can also set  up trivial (one-network) "groups".

The script scans /etc/arbdefault.conf looking for #GROUP <description>  comments before some contiguous set of lines of VLAN statements. Each  group's aggregated bandwidth during BA's operation will be reflected by  a curve in the graph. The GROUP is closed by a new #GROUP comment, or  by the end of the file. HARD limits are also monitored. (By the way, I  already had had to make a minor modification to the /art/start_it  script as it did not manage well comments to lines containing "VLAN". I  just changed "cat /etc/arbdefault.conf | grep ..."  by "cat /etc/ arbdefault.conf | grep -v "^#" | grep ..."). You can edit the conf file  without need to restart BA. The edition will do no harm to BA's  behavior in case of stopping and restarting BA.

So if you have something like:
#GROUP Customer X
VLAN 10.0.0.0/16 ...
VLAN 10.1.0.0/16 ...
#GROUP Customer Y
VLAN 192.168.0.0/24 ...

You will get a curve labeled "Customer X" showing the aggregated BW for  those two 10.X.X.X VLANs, and one labeled "Customer Y" showing BW for  VLAN 192.168.0.0/24.

The scripts operates by querying BA's 'brain' (i.e. by launching a  'brctl getbrain my <VLAN>' command) each x seconds during a specified  period of time. It generates a .dat file which contains plotting  instructions for Gnuplot.

To use the script you have to:
1) Manually edit /etc/arbdefault.conf to reflect your idea of GROUPs.  Put them any description you like. It will be included in the graph as  a reference.
2)  Call the script netplot with arguments such as:
-file=FILENAME        The root name of the .dat file
-secs=n                 The number of seconds to run
-each=m                 The interval in seconds between  measurements
-title=STRING        The title to appear over the graph
-wavg                If you want WAVG statistics (default  AVG)
-yrange=Y            Specify a maximum dependent ordinate in  KBps (e.g. to have a number of plots over a same scale or to compare  against your total link BW) - default is autoscaling.

3) The script will generate a FILENAME.dat after n seconds. Then you  can do "gnuplot FILENAME.dat" to obtain FILENAME.png.

You can safely set a cron task to do hourly measurements each 5 secs. The .dat files are typically some 40K in size for an hour's work. For  instance you can have a script called 'callnetplot' in /root:
HOUR=`date +%m%d-%H%M`
SECS=3600
/root/netplot -file=vlans$HOUR -secs=$SECS -each=5 -title=$HOUR \
    -yrange=100

And set up a cron task to call it this way:
0 8-18 * * mon-fri        /root/callnetplot
This will collect a whole week' hourly statistics in files named  vlansMMDD-0800.dat, vlansMMDD-0900.dat, etc.

You are free to do what you want with this script. I'd like to know if  it worked for you. Please feel free to contact me on any event. I seem  to have been the one who requested this version of BA, and this is my  way to show how grateful I feel (long live Open Source!).

Script follows...

#!/usr/bin/perl -s
# prepare PNG graph showing aggregated BW for network groups
#
##############################################
# WARNING                                     #
# this script                                #
# RUNS ONLY TESTED ON BANDWIDTH ARBITRATOR v8.5 GPL #
##############################################
# arguments
#    -file=<root of filename to be generated>
#    -secs=<time interval>
#    -each=<time between points>
#    -title=<title to appear in graph>
#    -wavg    #if wavg desired (default avg)
#
# Remember to edit your /etc/arbdefault.conf
# Please send bugs, enhancements, opinions, etc.
# Eduardo Grosclaude 2004 <oso@uncoma.edu.ar>
#----------------------------------------------------------------

$AVGRE = '\s*\d+\s*\d+\s*\d+\s*\d+\s*(\d+)\s*(\S*)\s*(\S*)\s*\S*\s*\d';
$WAVGRE = '\s*\d+\s*\d+\s*\d+\s*(\d+)\s*\d+\s*(\S*)\s*(\S*)\s*\S*\s* \d';
$CMD = '/usr/local/sbin/brctl getbrain my ';

&checkargs;
&getvlans;
&main;

sub checkargs {
    for $arg (qw/file secs each title/) {
        if(!defined($$arg)) {
            printf STDERR "$arg argument missing\n";
            printf STDERR "Usage: netplot -file=<FILENAME>  -secs=n -each=m -title=<STRING> [-wavg] [-yrange=<KBps>]\n";
            exit(1);
        }
    }    
    $MATCH = (defined $wavg) ? $WAVGRE : $AVGRE;
}


sub getvlans {
#    use Data::Dumper;
    open CONF, "</etc/arbdefault.conf";
    while(<CONF>) {
        chomp;
        if(/#GROUP (.*)/) {
            $lbl = $1;
            push @VTAGS, $lbl;
            $vlans{$lbl} = ();
            next;
        }
        if(/[VLAN|HARD] (\S+)/ && defined $lbl) {
            push @{$vlans{$lbl}},$1;
        }
    }
#    print Dumper(%vlans);
#    print Dumper(@VTAGS);
}

sub main {
    for($i = 0, $j=0; $i < $secs; $i += $each, $j++) {
        $data[$j] = ($i, &datapoint);
        sleep $each;
    }
    $plot = &plotout;
    open GRDAT, ">$grdat";
    print GRDAT $plot;
}
    
sub datapoint {
    my @points = ();
    my $totavg = 0;
    for $v (@VTAGS) {
        my $grupo = $vlans{$v};
        $tavg = &totgrupo($grupo) / 1000;
        push @points, $tavg;
        $totavg += $tavg;
    }
    # total goes on 0th position
    unshift @points, $totavg;
    return \@points;    
}

sub totgrupo {
    my $vlans = shift;

    my $tavg = 0;
    foreach $n (@$vlans) {
        $newcmd = $CMD . $n;
        open CMD, "$newcmd |";
        while (<CMD>) {
            if(/$MATCH/) {
                $tavg += $1;
            }
        }
    }
    return $tavg;
}


sub plotout {
    $graph = $file . ".png";
    $grdat = $file . ".dat";

    $gnuplot  = <<ENDGPL ;
set term     png color
set output     '$graph'
set title     '$title'
set xlabel     'Time (sec)'
set ylabel     'Rate (KBps)'
set data style     lines
set key     top right
ENDGPL

    if(defined $yrange) {
        $gnuplot .= "set yrange    [0:$yrange]\n";
    }
    $gnuplot .= "plot \\\n";
    my $i=2;
    $gnuplot .= "\'$grdat\' index 1 using 1:$i t \'Total\',\\\n";
    $nvtags = $#VTAGS;
    for $lbl (@VTAGS) {
        $i++;
        $gnuplot .= "\'$grdat\' index 1 using 1:$i t \'$lbl\'";
        $gnuplot .= ($i - 3 == $nvtags) ? "\n" : ",\\\n";
    }
    $gnuplot .= "exit\n\n\n";

    my $dataset = "";
    for($i = 0, $j = 0; $i < $secs; $i += $each, $j++) {
        $d = sprintf("%5g", $i);
        $dataset .= "$d, ";
        for($k = 0; $k < 4; $k++) {
            $d = sprintf("%.3e", $data[$j][$k]);
            $dataset .= "$d, ";
        }
        $dataset .= "\n";
    }
    return $gnuplot. $dataset;
}

#end script