hi,
i am having difficulties in sending a trap to syslog server.
can someone please help me out ?
here is the script i am writing:
it is not doing anythng of course....there is no errors.
thanks
use strict;
use warnings;
use Net::SNMP;
use vars qw($session $error $response $value);
my
($match,$host,@lines,@lines1,$i,$j,$line,$line1,$temp,$flag,$ofilename,$ifil
ename,$hostname,$port,$secs,$sniff,$mode,@oid_type_value);
($session, $error) = Net::SNMP->session(
-hostname => 'X.X.X.X',
-community => 'public',
-port => '162');
@oid_type_value=("1.3.6.1.4.1.2854","ENTERPRISE_SPECIFIC","time(0)");
$response = $session->trap(-enterprise => '1.3.6.1.4.1',
-agentaddr => 'localhost',
-varbindlist => \@oid_type_value);
exit;
--
Greetings,
Moti Landes
Department Manager
Network Management & Control Center
Barak ITC Israel
Email: [EMAIL PROTECTED]
ICQ: 5758051
MSN ID: m_landes
_______________________________________________
ActivePerl mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
