#!/usr/bin/perl -w

#=============================================================================
#
#  really crappy script to generate a mrtg targets file for pix or fwsm firewall contexts
#
#       Copyright 2006 The University of Wisconsin Board of Regents
#       Licensed and distributed under the terms of the Perl Artistic 
#       License, see http://net.doit.wisc.edu/~dwcarder/scripts/ for
#       details.
#
#       Written by: Dale W. Carder, dwcarder@doit.wisc.edu
#       Network Services Group
#       Division of Information Technology
#       University of Wisconsin at Madison
#
#       For more about this and other tools, see
#       http://net.doit.wisc.edu/~dwcarder/scripts/
#
#=============================================================================


my @devices = (
        'router-1.example.com',
        'router-2.example.com',
        'router-3.example.com',
        'router-4.example.com',
        'router-5.example.com',
        'router-6.example.com', );

my $community='public';

my $snmp_fw_conns = '.1.3.6.1.4.1.9.9.147.1.2.2.2.1.5.40.6';
my $snmp_fw_mem = '.1.3.6.1.4.1.9.9.48.1.1.1.5.1';
my $snmp_fw_cpu1m = '.1.3.6.1.4.1.9.9.109.1.1.1.1.4.1';
my $snmp_inoctets = '.1.3.6.1.2.1.2.2.1.10';
my $snmp_outoctets = '.1.3.6.1.2.1.2.2.1.16';
my $snmp_inucastpkts = '.1.3.6.1.2.1.2.2.1.11';
my $snmp_outucastpkts = '.1.3.6.1.2.1.2.2.1.17';

my $head=<<EOM;
### Global Defaults

WorkDir: /var/local/mrtg/fwsm
LogFormat: rrdtool
PathAdd: /usr/local/rrdtool-1.0.49/bin
RunAsDaemon: Yes
Interval: 5
Forks: 3
IconDir: /mrtgicons/

######################################################################

######################################################################

EOM
print $head;


foreach my $device (@devices) {

    # extract firewall device name from cms filename
    $device =~ m/(fx-\d+)\.conf$/;
    my $device = $1;

    #print "$device \n";

    
    printtarget($device,$device,"$device Context CPU Usage in percent of it's allowed allocation",'cpu',$snmp_fw_cpu1m,'','gauge');
    printtarget($device,$device,"$device Connections In Use",'conns',$snmp_fw_conns,'','gauge');
    printtarget($device,$device,"$device Memory In Use",'mem',$snmp_fw_mem,'','gauge');
    printtarget($device,$device.'_outside',"Data rate for $device Outside Interface",'bytes',$snmp_inoctets.'.1',$snmp_outoctets.'.1');
    printtarget($device,$device.'_outside',"Packet rate for $device Outside Interface",'pkts',$snmp_inucastpkts.'.1',$snmp_outucastpkts.'.1');
    printtarget($device,$device.'_inside',"Date rate for $device Inside Interface",'bytes',$snmp_inoctets.'.2',$snmp_outoctets.'.2');
    printtarget($device,$device.'_inside',"Packet rate for $device Inside Interface",'pkts',$snmp_inucastpkts.'.2',$snmp_outucastpkts.'.2');

}


sub printtarget {
    my $device = shift;
    my $target = shift;
    my $desc = shift;
    my $varname = shift;
    my $inoid = shift;
    my $outoid = shift;
    my $options = shift;
    my $interval = shift;

    $target = $target .'_'. $varname;

    if ( (!defined($outoid))||($outoid eq '') ) { $outoid = $inoid; }


    my $where = $community .'@'. $device;
    #print "$device $target $desc $inoid \n";
    $paragraph=<<EOM;
Target[$target]: $inoid&$outoid:$where:
Maxbytes[$target]: 4294967295
Title[$target]: $desc -- $device
PageTop[$target]: <h1>$desc</h1><b>Target Name:</b>$target
EOM
    print $paragraph;
    if ($options) { print "Options[$target]: $options\n"; }
   
    print "\n";

};