I have this perl script that hits the 4 modem cards in a 3Com Total Control Modem Box. What it does is, counts the active modem users and displays that result with the total number of modems next to it.
I've been trying everything with cacti, from templates to my own to get some sort of output... Here is the code, any ideas or direction?
#Perl SCript - 3Com Test Run
#!c:\Perl\Bin
# perltest.pl
#
# Usage perltest.pl community@IP@slot#
# Example perltest.pl public@172.xx.xx.x
# Modems in use (value1)
# 3Com card capacity (value2)
# Assumes 23 channels are available
# Points to lib installed with MRTG. Modify as needed
use lib "c:\\perl\\lib";
use BER;
use SNMP_util;
use SNMP_Session;
my $community = "public";
my $router = "172.xx.xx.x";
#my($community,$router,$slot) = split /\@/, $ARGV[0];
foreach ($i = 1001;$i <= 1024; $i++) {
$mib1 = "enterprises.429.1.6.9.1.1.2.";
$mib2 = "100";
$mib = $mib1.$i;
($value) = snmpget("$community\@$router","$mib");
print "Query interface $mib = $value\n";
if ($value eq
{$value1=($value1+1);
$value2=($value2+1);
}
else {
$value2=($value2+1);
}
}
foreach ($i = 2001;$i <= 2024; $i++) {
$mib1 = "enterprises.429.1.6.9.1.1.2.";
$mib2 = "200";
$mib = $mib1.$i;
($value) = snmpget("$community\@$router","$mib");
print "Query interface $mib = $value\n";
if ($value eq
{$value1=($value1+1);
$value2=($value2+1);
}
else {
$value2=($value2+1);
}
}
foreach ($i = 3001;$i <= 3024; $i++) {
$mib1 = "enterprises.429.1.6.9.1.1.2.";
$mib2 = "300";
$mib = $mib1.$i;
($value) = snmpget("$community\@$router","$mib");
print "Query interface $mib = $value\n";
if ($value eq
{$value1=($value1+1);
$value2=($value2+1);
}
else {
$value2=($value2+1);
}
}
foreach ($i = 4001;$i <= 4024; $i++) {
$mib1 = "enterprises.429.1.6.9.1.1.2.";
$mib2 = "400";
$mib = $mib1.$i;
($value) = snmpget("$community\@$router","$mib");
print "Query interface $mib = $value\n";
if ($value eq
{$value1=($value1+1);
$value2=($value2+1);
}
else {
$value2=($value2+1);
}
}
if( $value1 eq ''){$value1 = 0 };
if( $value2 eq ''){$value2 = 0 };
print "Active_Modems:$value1\n";
print "Modem_Count:$value2\n";
Thank you!!