www.usr.com/support/gpl/USR9113_release1.0.tar.gz

[bcm963xx.git] / userapps / opensource / net-snmp / perl / SNMP / examples / mibwalk.pl

diff --git a/userapps/opensource/net-snmp/perl/SNMP/examples/mibwalk.pl b/userapps/opensource/net-snmp/perl/SNMP/examples/mibwalk.pl
deleted file mode 100644 (file)
index ae743d3..0000000
--- a/userapps/opensource/net-snmp/perl/SNMP/examples/mibwalk.pl
+++ /dev/null
@@ -1,17 +0,0 @@
-# snmpwalk of entire MIB
-# stop on error at end of MIB
-
-use SNMP 1.8;
-$SNMP::use_sprint_value = 1;
-my $host = shift || localhost;
-my $comm = shift || public;
-
-$sess = new SNMP::Session(DestHost => $host, Community => $comm);
-
-$var = new SNMP::Varbind([]);
-
-do {
-  $val = $sess->getnext($var);
-  print "$var->[$SNMP::Varbind::tag_f].$var->[$SNMP::Varbind::iid_f] = ",
-        "$var->[$SNMP::Varbind::val_f]\n";
-} until ($sess->{ErrorStr});