summaryrefslogtreecommitdiff
path: root/cleopatre/application/spidnetsnmp/perl/SNMP/examples/tablewalk.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cleopatre/application/spidnetsnmp/perl/SNMP/examples/tablewalk.pl')
-rw-r--r--cleopatre/application/spidnetsnmp/perl/SNMP/examples/tablewalk.pl19
1 files changed, 0 insertions, 19 deletions
diff --git a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/tablewalk.pl b/cleopatre/application/spidnetsnmp/perl/SNMP/examples/tablewalk.pl
deleted file mode 100644
index 6fe344cb3b..0000000000
--- a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/tablewalk.pl
+++ /dev/null
@@ -1,19 +0,0 @@
-# snmpwalk of a single table
-# getnext of 3 columns from ipAddrEntry table
-# stop after last row in table
-
-use SNMP 1.8;
-
-my $host = shift || localhost;
-my $comm = shift || public;
-
-my $sess = new SNMP::Session ( DestHost => $host, Community => $comm );
-
-my $vars = new SNMP::VarList([ipAdEntAddr],[ipAdEntIfIndex],[ipAdEntNetMask]);
-
-for (@vals = $sess->getnext($vars);
- $vars->[0]->tag =~ /ipAdEntAddr/ # still in table
- and not $sess->{ErrorStr}; # and not end of mib or other error
- @vals = $sess->getnext($vars)) {
- print " ($vals[1]) $vals[0]/$vals[2]\n";
-}