Re: [USR-TC] MRTG Sript for individual DSP card modem utilization.

21 Nov 2001


      I am running ARC 5.0.9 and MNC 7.1.8 and DSP 2.1.9. Note the IP used with
this script is the NMC IP, not the ARC IP. The request is made to the NMC
card. That might be your problem.

Thanks,
Mark
Green Apple Inc

----- Original Message -----
From: "Marshall Morgan" <marshall@netdoor.com>
To: <usr-tc@lists.xmission.com>
Sent: Wednesday, November 21, 2001 4:29 AM
Subject: Re: [USR-TC] MRTG Sript for individual DSP card modem utilization.
...
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
_______________________________________________
USR-TC mailing list
USR-TC@mailman.xmission.com
http://mailman.xmission.com/cgi-bin/mailman/listinfo/usr-tc