#!/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]: <H1>Traffic Analysis modem pool (8 Modems)</H1>
# -------
#
# 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";
}