On Tue, Oct 4, 2011 at 3:57 PM, <ali.br...@selex-comms.com> wrote: > From Bart's statement below it is suggested that I can directly obtain the > value of sysUpTime from my SubAgent - How do I obtain this from my Perl > module? > > What the Perl SNMP module does is to include the time elapsed since system > startup in a trap if the uptime has not been specified explicitly. If you > want that value to match the sysUptime of the SNMP agent on the same > system, > I propose that you query that value before sending a trap. >
Does the function uptime() defined in the attached patch help (not tested) ?
It can be used e.g. as follows:
C:\Perl\bin\perl -e "use SNMP; use NetSNMP::agent; $SNMP::dump_packet=1; my
$agent = new NetSNMP::agent(); my $session = new SNMP::TrapSession(Community
=> \"trap\", Port => 162, Version => \"2c\"); $session->trap(oid =>
\"warmStart\", uptime => $agent->uptime());"
[PATCH] CHANGES: perl: Add agent::uptime()
---
perl/agent/agent.pm | 6 ++++++
perl/agent/agent.xs | 7 +++++++
2 files changed, 13 insertions(+), 0 deletions(-)
diff --git a/perl/agent/agent.pm b/perl/agent/agent.pm
index 6135443..4ffd3ea 100644
--- a/perl/agent/agent.pm
+++ b/perl/agent/agent.pm
@@ -199,6 +199,12 @@ sub agent_check_and_process {
__agent_check_and_process($blocking || 0);
}
+sub uptime {
+ my ($self) = @_;
+ $self->maybe_init_lib();
+ return _uptime();
+}
+
bootstrap NetSNMP::agent $VERSION;
# Preloaded methods go here.
diff --git a/perl/agent/agent.xs b/perl/agent/agent.xs
index ee77d50..b81886f 100644
--- a/perl/agent/agent.xs
+++ b/perl/agent/agent.xs
@@ -239,6 +239,13 @@ __agent_check_and_process(block = 1)
OUTPUT:
RETVAL
+int
+_uptime()
+ CODE:
+ RETVAL = netsnmp_get_agent_uptime();
+ OUTPUT:
+ RETVAL
+
void
init_mib()
CODE:
--
1.7.5.1
0001-CHANGES-perl-Add-agent-uptime.patch
Description: Binary data
------------------------------------------------------------------------------ All the data continuously generated in your IT infrastructure contains a definitive record of customers, application performance, security threats, fraudulent activity and more. Splunk takes this data and makes sense of it. Business sense. IT sense. Common sense. http://p.sf.net/sfu/splunk-d2dcopy1
_______________________________________________ Net-snmp-users mailing list Net-snmp-users@lists.sourceforge.net Please see the following page to unsubscribe or change other options: https://lists.sourceforge.net/lists/listinfo/net-snmp-users
