A mib compiler supporting smiv1 and smiv2
use SNMP::MIB::Compiler;
my $mib = new SNMP::MIB::Compiler;
# search MIBs there... $mib->add_path('./mibs', '/foo/bar/mibs');
# possibly using these extensions... $mib->add_extension('', '.mib', '.my');
# store the compiled MIBs there.. $mib->repository('./out');
# only accept SMIv2 MIBs $mib->{'accept_smiv1'} = 0; $mib->{'accept_smiv2'} = 1;
# no debug $mib->{'debug_lexer'} = 0; $mib->{'debug_recursive'} = 0;
# store compiled MIBs into files $mib->{'make_dump'} = 1; # read compiled MIBs $mib->{'use_dump'} = 1; # follow IMPORTS clause while compiling $mib->{'do_imports'} = 1;
# load a precompiled MIB $mib->load('SNMPv2-MIB');
# compile a new MIB $mib->compile('IF-MIB');
print $mib->resolve_oid('ifInOctets'), "\n"; print $mib->convert_oid('1.3.6.1.2.1.31.1.1.1.10'), "\n"; print $mib->tree('ifMIB');
SNMP::MIB::Compiler is a MIB compiler that fully supports both SMI(v1) and SMIv2. This module can be use to compile MIBs (recursively or not) or load already compiled MIBs for later use. Some tasks can be performed by the resulting object such as :
- resolution of object names into object identifiers (OIDs). e.g. ifInOctets => 1.3.6.1.2.1.2.2.1.10
- convertion of OIDs. e.g. 1.3.6.1.2.1.2.1 => iso.org.dod.internet.mgmt.mib-2.interfaces.ifNumber
- drawing MIB trees. e.g. ifTestTable => ifTestTable | +-- --- ifTestEntry(1) | +-- -rw Integer ifTestId(1) +-- -rw Integer ifTestStatus(2) +-- -rw ObjectID ifTestType(3) +-- -r- Integer ifTestResult(4) +-- -r- ObjectID ifTestCode(5) +-- -rw String ifTestOwner(6)
The MIB to be compiled requires no modification. Everything legal according to SMIs is accepted, including MACRO definitions (which are parsed but ignored).
This module is shipped with the basic MIBs usually needed by IMPORTS clauses. A lot of IETF MIBs has been successfully tested as well as some private ones.
\*(C`SNMP::MIB::Compiler::new()\*(C' class method To create a new \s-1MIB\s0, send a new() message to the SNMP::MIB::Compiler class. For example: my $mib = new SNMP::MIB::Compiler; This will create an empty \s-1MIB\s0 ready to accept both SMIv1 and SMIv2 MIBs. A lot of attributes can be (des)activated to obtain a more or less strict and verbose compiler. The created object is returned. \*(C`SNMP::MIB::Compiler::add_path(p1[,p2[,p3]])\*(C' object method Add one or more directories to the search path. This path is used to locate a \s-1MIB\s0 file when the 'compile' method is invoqued. The current list of paths is returned. Example: # search MIBs in the "mibs" directory (relative # to cwd) and in "/foo/bar/mibs" (absolute path) $mib->add_path('./mibs', '/foo/bar/mibs'); \*(C`SNMP::MIB::Compiler::add_extension(e1[,e2[,e3]])\*(C' object method Add one or more extensions to the extension list. These extensions are used to locate a \s-1MIB\s0 file when the 'compile' method is invoqued. All extensions are tested for each directory specified by the add_path() method until one match. The current list of extensions is returned. Example: $mib->add_path('./mibs', '/foo/bar/mibs'); $mib->add_extension('', '.mib'); $mib->compile('FOO'); The order is "./mibs/FOO", "./mibs/FOO.mib", "/foo/bar/mibs/FOO" and "/foo/bar/mibs/FOO.mib". \*(C`SNMP::MIB::Compiler::repository([dir])\*(C' object method If 'dir' is defined, set the directory where compiled MIBs will be stored (using the compile() method) or loaded (using the load() method). The repository \s-1MUST\s0 be initialized before a \s-1MIB\s0 can be compiled or loaded. The current repository is returned. Example: $mib->repository('./out'); print "Current repository is ", $mib->repository, "\n"; \*(C`SNMP::MIB::Compiler::compile(mib)\*(C' object method Compile a \s-1MIB\s0 given its name. All information contained in this \s-1MIB\s0 is inserted into the current object and is stored into a file in the repository (see the 'make_dump' attribute). The choosen name is the same as the real \s-1MIB\s0 name (defined in the \s-1MIB\s0 itself). If a precompiled \s-1MIB\s0 already exists in the repository and is newer than the given file, it is used instead of a real compilation (see the 'use_dump' attribute). The compiler can be recursive if \s-1IMPORTS\s0 clauses are followed (see the 'do_imports' attribute) and in that case, uncompiled \s-1MIB\s0 names must be explict according to paths and extensions critaeria (see add_path() and add_extensions() methods). The current object is returned. \*(C`SNMP::MIB::Compiler::load(mib)\*(C' object method Load a precompiled \s-1MIB\s0 given its name. All information contained in this \s-1MIB\s0 is inserted into the current object. The file is searched in the repository which \s-1MUST\s0 be initialized. In case of success, returns 1 else returns 0. Example: $mib->load('SNMPv2-SMI'); $mib->load('SNMPv2-MIB'); \*(C`SNMP::MIB::Compiler::resolve_oid(node)\*(C' object method Example: print $mib->resolve_oid('ifInOctets'), "\n"; \*(C`SNMP::MIB::Compiler::convert_oid(oid)\*(C' object method Example: print $mib->convert_oid('1.3.6.1.2.1.31.1.1.1.10'), "\n"; \*(C`SNMP::MIB::Compiler::tree(node)\*(C' object method Example: print $mib->tree('ifMIB');
Currently, it is more a \s-1TODO\s0 list than a bug list.
- not enough documentation
- not enough methods
- not enough test scripts
- find a better name for compiled MIBs than 'dump's.. even if they are no more than dumps.
If your MIBs can't be compiled by this module, please, double check their syntax. If you really think that they are correct, send them to me including their \*(L"uncommon\*(R" dependencies.
Fabien Tassin ([email protected])
Copyright 1998, 1999, Fabien Tassin. All rights reserved. It may be used and modified freely, but I do request that this copyright notice remain attached to the file. You may modify this module as you wish, but if you redistribute a modified version, please attach a note listing the modifications you have made.