Excuse my ignorance, but my perl doesnt have SNMP_Session, where can I get it from? All the best, Brett Murphy Technical Manager, Alphalink (Australia) PTY LTD ph: +61 3 9486-8844 fax: +61 3 9486-6822 email: me@murf.net The contents of this email message may not be quoted, copied, reproduced or published in part or in whole, without the written authorization of Brett Murphy, Director, Alphalink (Australia) Pty Ltd. -----Original Message----- From: Eric Billeter <ebilleter@cableone.net> To: usr-tc@lists.xmission.com <usr-tc@lists.xmission.com> Date: Thursday, 19 August 1999 3:27 Subject: RE: (usr-tc) Bad Modem monitoring
Here is an updated version with mail notification.
I am using ntsendmail.pm which is available at You will need to place ntsendmail.pm in your \perl\lib directory.
http://www.alliancestudio.com/tk/ntsendmail/
Modify the values in the script for each site you want to monitor
$ENV{"NTsendmail"} = "My.mailserver.com"; #Enter your Mail Server Here
my $community="public"; # Your community String my $router = "127.0.0.1"; # IP Address of NMC my $outputfile = "modem-fail.htm"; # File to output to my $location = "Phoenix"; # Location Descriptor my $sender = "tech\@mycompany.com"; # Mail From (use \@ in mail address) my $recipient = "tech\@mycompany.com"; # Mail To (use \@ in mail address) my $subject = "$location modems"; # Mail Subject
For errored status I'm using 15% for my threshold. You can change it on this line.
if (@callfail[$i-1] > (@callok[$i-1])*.15) {
Again.. if there are any perl guru's out there who could clean this up it would be appreciated.
Thanks
Eric Billeter Internet Engineer Cable One, Inc.
eric.billeter@cableone.net 602-364-6462
- To unsubscribe to usr-tc, send an email to "majordomo@xmission.com" with "unsubscribe usr-tc" in the body of the message. For information on digests or retrieving files and old messages send "help" to the same address. Do not use quotes in your message.