#!@@PERL@@
#
# Plugin to monitor network connections.
#
#   DESCRIPTION
#   ===========
#      This will measure the amount of network traffic coming into and
#      out of the server.  It will report back the number of connections
#      accepted, requested, established, and closed.  It uses
#      /usr/bin/netstat to gather it's information.
#      
#   RESTRICTION
#   ===========
#      None known.  /usr/bin/netstat should be executable by everyone by
#      default.
#
# $Log$
# Revision 1.4  2004/12/10 18:51:43  jimmyo
# linux/apt* has been forced to LANG=C, to get predictable output.
#
# Revision 1.3  2004/12/10 10:47:49  jimmyo
# Change name from ${scale} to ${graph_period}, to be more consistent.
#
# Revision 1.2  2004/12/09 22:12:55  jimmyo
# Added "graph_period" option, to make "graph_sums" usable.
#
# Revision 1.1  2004/01/02 18:50:00  jimmyo
# Renamed occurrances of lrrd -> munin
#
# Revision 1.1.1.1  2004/01/02 15:18:07  jimmyo
# Import of LRRD CVS tree after renaming to Munin
#
# Revision 1.2  2003/11/07 17:43:16  jimmyo
# Cleanups and log entries
#
#
#
# Parameters:
#
# 	config   (required)
# 	autoconf (optional - only used by munin-config)
#
# Magic markers (optional - used by munin-config and some installation
# scripts):
#%# family=contrib
#%# capabilities=autoconf

use strict;

if($ARGV[0] && $ARGV[0] eq "autoconf")
  {
    if(-e "/usr/bin/netstat" && -X "/usr/bin/netstat")
      {
        print "yes\n";
        exit 0;
      }
    else
      {
        print "no\n";
        exit 1;
      }
  }
  
if($ARGV[0] && $ARGV[0] eq "config")
  {
    print "graph_title Netstat\n";
    print "graph_args -l 0 --base 1000\n";
    print "graph_vlabel requests connections per \${graph_period}\n";
    print "requests.label requests\n";
    print "requests.type COUNTER\n";
    print "requests.max 50000\n";
    print "accepts.label accepts\n";
    print "accepts.type COUNTER\n";
    print "accepts.max 50000\n";
    print "established.label established\n";
    print "established.type COUNTER\n";
    print "established.max 50000\n";
    print "closed.label closed\n";
    print "closed.type COUNTER\n";
    print "closed.max 50000\n";
    exit 0;
  }
  
my(%toFind) = ("requests" => "connection requests",
               "accepts" => "connection accepts",
               "established" => "connections established",
               "closed" => "connections closed ("
              );
              
my($item,$line,@lineArray);

foreach $item (keys(%toFind))
  {
    $line = `/usr/bin/netstat -s|grep '$toFind{$item}'`;
    @lineArray = split(/ +/,$line);
    print "$item.value $lineArray[0]\n";
  }