plugin-coldfusion-traffic: coldfusion_traffic

#!/usr/bin/perl
#
# Plugin to monitor the traffic to the Coldfusion server on the machine
#
# By Jem Tallon
#
#
# Requirements:
#       - Needs access to the cfstat utility (definable in the munin-node file) 
#
#
# Tip: To see if it's already set up correctly, just run this plugin
# with the parameter "autoconf". If you get a "yes", everything should
# work like a charm already.
#
# Parameters supported:
#
#       config
#       autoconf
#
# Configurable variables
#
#       cfdir    - The full path to the Coldfusion directory (default: /opt/coldfusionmx7)
#
#
# To configure, edit /etc/munin/plugin-conf.d/munin-node to include the following lines
#
#       [coldfusion*]
#           env.cfdir /opt/coldfusionmx7
#
#
#
# Magic markers:
#%# family=auto
#%# capabilities=autoconf

use strict;

## Make the local variables either from the environment or from defaults
my $CFDIR = exists $ENV{'cfdir'} ? $ENV{'cfdir'} : "/opt/coldfusionmx7";
my $CFBIN = "$CFDIR/bin";
my $CFSTAT = "$CFBIN/cfstat";

## If an "autoconf" argument was supplied, check to see if cfstat exists and report the results
if ( exists $ARGV[0] and $ARGV[0] eq "autoconf" )
{
        if( -e "$CFSTAT" )
        {
                print "yes\n";
                exit 0;
        }
        else
        {
                print "no (cfstat not found)\n";
                exit 1;
        }
}

## If a "config" argument was supplied, show the config stuff and exit
if ( exists $ARGV[0] and $ARGV[0] eq "config" )
{
        print "graph_title Coldfusion I/O\n";
        print "graph_args -l 0 --base 1024\n";
        print "graph_vlabel bytes per second in (-) / out (+)\n";
        print "graph_category coldfusion\n";
        print "graph_period second\n";
        print "graph_info This graph shows the I/O to and from a Coldfusion server.\n";
        print "cf_in.label In\n";
        print "cf_in.type GAUGE\n";
        print "cf_in.max 500000\n";
        print "cf_in.min 0\n";
        print "cf_in.info Bytes in to Coldfusion server\n";
        print "cf_out.label Out\n";
        print "cf_out.info Bytes out to Coldfusion server\n";
        print "cf_out.type GAUGE\n";
        print "cf_out.max 500000\n";
        print "cf_out.min 0\n";
        exit 0;
}

## I know this is a mess but it was the easiest way for me to do it. If anyone can improve on it, please do
my $cfstatresult = `cd $CFBIN; $CFSTAT|sed -e 's/#.*//;/^\$/d'|sed -e 's/  */ /g'|tail -1`;
my $inbytes = `echo "$cfstatresult" | cut -d" " -f13` + 0;
my $outbytes = `echo "$cfstatresult" | cut -d" " -f14` + 0;

## Print out the in and out values
print "cf_in.value $inbytes\n";
print "cf_out.value $outbytes\n";