summaryrefslogtreecommitdiff
path: root/cleopatre/application/spidnetsnmp/perl/SNMP/examples/async2.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cleopatre/application/spidnetsnmp/perl/SNMP/examples/async2.pl')
-rw-r--r--cleopatre/application/spidnetsnmp/perl/SNMP/examples/async2.pl19
1 files changed, 0 insertions, 19 deletions
diff --git a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/async2.pl b/cleopatre/application/spidnetsnmp/perl/SNMP/examples/async2.pl
deleted file mode 100644
index f0e41b326e..0000000000
--- a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/async2.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-use SNMP;
-
-$SNMP::auto_init_mib = 0;
-
-$sess = new SNMP::Session();
-
-sub poller_handler {
- if (++$i>500) { die "completed 500 polls\n"; };
- # VarList is undefined if TIMEOUT occured
- if (!defined($_[1])) {
- warn "request timed out[$_[0]->{ErrorStr}]\n";
- return;
- }
-# print "$i) ",$_[1][0]->tag, " = ", $_[1][0]->val, "\n";
-}
-
-# $sess->get([[".1.3.6.1.2.1.1.3.0"]], [\&poller_handler, $sess]);
-
-SNMP::MainLoop(.1,sub {for (1..50) {$sess->get([['.1.3.6.1.2.1.1.3.0']], [\&poller_handler, $sess]);} });