#!/usr/bin/perl

#

# byte counter for a Equinox SST card with analog modem pool

# for use with mrtg2

#

# by Mike Gaertner <mg@forum.org.kh>

# 20 Apr 2000

#

# Returns the total sum of the input and output character counter 

# from an SST card for all ports you specify 

#

# NEEDS the Linux driver version 3-35c for SST based boards

#

# --- sample.cfg file ---

#  #MaxBytes = (8 x 56kbit/s modems) / 8 = 56000 bytes/s total capacity

#  #           adjust this to the number of modems you have

#

#  Target[modems]: `/usr/local/mlog3/bin/mrtg/get-equi.pl`

#  MaxBytes[modems]: 56000

#  Title[modems]: OFIX modem pool traffic (8 Modems)

#  Options[modems]: growright

#  XSize[modems]: 500

#  YSize[modems]: 200

#  WithPeak[modems]: my

#  PageTop[modems]: 
Traffic Analysis modem pool (8 Modems)

# -------

#

# Edit the @m array 

# @m = Modems you want to monitor without ttyQ

#

# check the $sstty path

#

use strict;

my(@m,$sstty,$port,$i,$o,$new_i,$new_o,$source);

# modems

@m = ("1a5","1a6","1a7","1a8","1a9","1a10","1a11","1a12") ;

$sstty = "/usr/bin/sstty -s ";

$source = "equinox modempool";

$new_i = 0;

$new_o = 0;

foreach $port ( @m ) {

	open ( STAT, "$sstty $port |" ) ;

	while( <STAT> ) {

                if ( /input/ ) {

			($i,$o) = (split(/ +/))[8,11] ;

			$new_i += hex($i);

			$new_o += hex($o);

                }

	}

	close(STAT);

}

print $new_i,"\n",$new_o,"\n",&uptime(),"\n$source\n"  ;

#find out when the board driver was last loaded

sub uptime {

    my($start,$now,$diff,$s,$m,$h,$d,$hms);

    $start = (stat("/etc/eqnx/logfile"))[10] ;

    $now = time() ;

    $diff = $now - $start ;

    $s = $diff % 60;

    $diff = ($diff - $s) / 60;

    $m = $diff % 60;

    $diff = ($diff - $m) / 60;

    $h = $diff % 24;

    $diff = ($diff - $h) / 24;

    $d = $diff ;

    $hms.= ($h < 10 ? " " : "") . $h;

    $hms.= ($m < 10 ? ":0" : ":") . $m;

    $hms.= ($s < 10 ? ":0" : ":") . $s;

    return "$d days, $hms";

}