Which ARC code are you using - this doesn't come on my TV (i.e. it doesn't work for me as the mib's don't exist on 4.2.32 or 5.2.102). Marshall Morgan Internet Doorway, Inc (aka NETDOOR) http://www.netdoor.com 601.969.1434 x28 | 800.952.1570 x28 | 601.969.3629 x28 | Fax 601.969.3838 ----- Original Message ----- From: "Green Apple Network Info" <netinfo@greenapple.com> To: "Usr-Tc@Lists. Xmission. Com" <usr-tc@lists.xmission.com> Sent: Monday, November 19, 2001 2:14 PM Subject: [USR-TC] MRTG Sript for individual DSP card modem utilization.
Hello All, Since I've gotten nurmerous requests for this, here is the perl script I have for per DSP card modem usage. Read the script for more info. Let me know if works for you. I called it dsp.pl.
------------------------------------------------------------ #!/usr/bin/perl
# dsp.pl # # Usage dsp.pl community@IP@slot# # Example dsp.pl mypublic@192.168.1.3@7 # # Created by Mark Starr (mstarr@greenapple.com) # returns: # Modems in use (value1) # DSP card capacity (value2) # Assumes 23 channels are available
# Points to lib installed with MRTG. Modify as needed use lib "/usr/local/mrtg/current/lib/mrtg2"; use BER; use SNMP_util; use SNMP_Session;
my($community,$router,$slot) = split /\@/, $ARGV[0];
foreach ($i = 1;$i <= 23; $i++) { $mib1 = "enterprises.429.1.28.2.1.3."; $mib2 = "025."; $mib = $mib1.$slot.$mib2.$i;
($value) = snmpget("$community\@$router","$mib"); if ($value eq 5) { $value1=($value1+1); $value2=($value2+1); } else { $value2=($value2+1); } }
if( $value1 eq ''){$value1 = 0 }; if( $value2 eq ''){$value2 = 0 }; print "$value1\n"; print "$value2\n"; ----------------------------------------------------------------------
Mark Green Apple Inc
_______________________________________________ USR-TC mailing list USR-TC@mailman.xmission.com http://mailman.xmission.com/cgi-bin/mailman/listinfo/usr-tc