summaryrefslogtreecommitdiff
path: root/cleopatre/application/spidnetsnmp/perl/SNMP/examples/mibtree.pl
diff options
context:
space:
mode:
Diffstat (limited to 'cleopatre/application/spidnetsnmp/perl/SNMP/examples/mibtree.pl')
-rw-r--r--cleopatre/application/spidnetsnmp/perl/SNMP/examples/mibtree.pl20
1 files changed, 0 insertions, 20 deletions
diff --git a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/mibtree.pl b/cleopatre/application/spidnetsnmp/perl/SNMP/examples/mibtree.pl
deleted file mode 100644
index 0616126208..0000000000
--- a/cleopatre/application/spidnetsnmp/perl/SNMP/examples/mibtree.pl
+++ /dev/null
@@ -1,20 +0,0 @@
-use SNMP;
-$SNMP::save_descriptions = 1; # must be set prior to mib initialization
-SNMP::initMib(); # parses default list of Mib modules from default dirs
-
-# read dotted decimal oid or symbolic name to look up
-# partial name will be searched and all matches returned
-$val = shift || die "supply partial or complete object name or identifier\n";
-
-if ($node = $SNMP::MIB{$val}) {
- print "$node:$node->{label} [$node->{objectID}]\n";
- while (($k,$v) = each %$node) {
- print "\t$k => $v\n";
- }
-} else {
- while (($k,$v) = each %SNMP::MIB) {
- print "$v->{label} [$v->{obj}]\n" #accepts unique partial key(objectID)
- if $k =~ /$val/ or $v->{label} =~ /$val/;
- }
-}
-