#!/bin/sh
# the next line restarts using scotty -*- tcl -*- \
exec scotty "$0" "$@"
package require Tnm 2.1
mib load rfc1213.mib
proc MibFiles {node} {
mib walk x [mib oid $node] {
puts "$x: [mib name $x]: [mib access $x]"
}
}
proc ListMibFiles {} {
foreach subtree [concat [mib successor mib-2] [mib successor enterprises]] {
set subtree [mib oid $subtree]
MibFiles $subtree
}
}
ListMibFiles
###############################################################
transverses a MIB fine.
-- Lee Slaughter, network management development - submarine stuff Navy R & D, Point Loma, San Diego, CA 619-553-5486 "Giving credence to his ramblings indicates a cognitive disorder..." - Lee's psychiatrist, circa 1952-- !! This message is brought to you via the `tkined & scotty' mailing list. !! Please do not reply to this message to unsubscribe. To subscribe or !! unsubscribe, send a mail message to <tkined-request@ibr.cs.tu-bs.de>. !! See http://wwwsnmp.cs.utwente.nl/~schoenw/scotty/ for more information.