[Devmon] extra-rrd.pl

[Joshua K. <fo...@tr...>]

I have my graphing up and running for my switches but it's not currently
working on my pix's.  Here is what my extra-rrd.pl file looks like:


#!/usr/bin/perl

 

# Input parameters: Hostname, testname (column), and messagefile

$HOSTNAME=$ARGV[0]; ;

$TESTNAME=$ARGV[1]; ;

$FNAME=$ARGV[2]; ;

 

# Read the entire files

open (FILEHANDLE,$FNAME) || die ("cant read file\n");

@input = <FILEHANDLE>;

close (FILEHANDLE);

 

if ( $TESTNAME eq "if_load" ) {

 

        # Analyze the message we got

        foreach $line (@input) {

                if ($line =~ /(^[A-Z].*) (\d+):(\d+)$/ ) {

 

                        # The RRD dataset definitions

                        print "DS:in:DERIVE:600:0:U\n";

                        print "DS:out:DERIVE:600:0:U\n";

 

                        # The filename

                        print "if_load_$1.rrd\n";

 

                        # The data

                        print "$2:$3\n";

                }

        }

}

 

I've checked out the devmon svn and saw an extra-rrd.pl that look different
from mine:

 

# Input parameters: Hostname, testname (column), and messagefile

$HOSTNAME=$ARGV[0]; ;

$TESTNAME=$ARGV[1]; ;

$FNAME=$ARGV[2]; ;

 

# Read the entire files

open (FILEHANDLE,$FNAME) || die ("cant read file\n");

@input = <FILEHANDLE>;

close (FILEHANDLE);

 

if ( $TESTNAME eq "if_load" ) {

        # Analyze the message we got

        foreach $line (@input) {

        if ($line =~ /^(\w+) (\d+):(\d+)$/ ) {

 

                       # The RRD dataset definitions

                       print "DS:in:DERIVE:600:0:U\n";

                       print "DS:out:DERIVE:600:0:U\n";

                       

                       # The filename

                       print "if_load_$1.rrd\n";

                       

                       # The data

                       print "$2:$3\n";

               }

        }

}

 

My "if ($line" statement and the one in the svn are different but I did mine
the way I did was so that it would graph all the if_load interfaces on my
switches.  Can anyone assist me with this?

 

Thanks,

 

Josh