blob: 5a34a358a00167b5d07a974d2eb7a54e3615eb9d (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
#!/usr/bin/perl
use SNMP;
use Getopt::Std;
%opts = ( M => ".",
D => "html");
getopts("M:D:WH:", \%opts) || die "usage: makehtml.pl -W [-M MIBDIR] [-D OUTDIR] files > index.html";
$SNMP::save_descriptions = 1;
$ENV{'MIBDIRS'} = $opts{'M'};
$ENV{'SNMPCONFPATH'} = 'bogus';
if (-f "rfclist") {
open(I,"rfclist");
while (<I>) {
if (/^(\d+)\s+([-:\w]+)\s*$/) {
my $mib = $2;
my $rfc = $1;
my @mibs = split(/:/,$mib);
foreach my $i (@mibs) {
$mibs{$i} = $rfc;
}
}
}
close(I);
}
if (-f "nodemap") {
open(I,"nodemap");
while (<I>) {
if (/^([-\w]+)\s+(\w+)\s*$/) {
$nodemap{$1} = $2;
}
}
close(I);
}
if ($opts{'W'}) {
print '<p class="SectionTitle">
Net-SNMP Distributed MIBs
</p>
<p>The following are the MIB files distributed with Net-SNMP. Note that because they are distributed with Net-SNMP does not mean the agent implements them all. Another good place for finding other MIB definitions can be found <a href="http://www.mibdepot.com/">at the MIB depot</a>.</p>
<table border="2" bgcolor="#dddddd">
<tr><th>MIB</th><th>RFC</th><th>Description</th></tr>
';
}
my %didit;
foreach my $mibf (@ARGV) {
my $node;
my $mib = $mibf;
$mib =~ s/.txt//;
next if ($didit{$mib});
$didit{$mib} = 1;
open(I, "$opts{M}/$mibf");
while (<I>) {
if (/(\w+)\s+MODULE-IDENTITY/) {
$node = $1;
}
}
close(I);
if (!$node) {
print STDERR "Couldn't find starting node for $mib $node $_\n";
next;
}
SNMP::loadModules($mib);
$desc = $SNMP::MIB{$node}{'description'};
# get a different tree than the module identity though.
if (exists($nodemap{$mib})) {
$node = $nodemap{$mib};
}
# Change tabs to spaces
$desc =~ s/\t/ /g;
# Clean up formatting
my ($s) = ($desc =~ /\n(\s+)/);
$desc =~ s/^$s//gm;
$desc =~ s/&/&/g;
$desc =~ s/</</g;
$desc =~ s/>/>/g;
print " <tr>\n";
print " <td><a href=\"$node.html\">$mib</a><br />\n";
print " <a href=\"$mib.txt\">[mib file]</a></td>\n";
print " <br><a href=\"$mib-conf.html\">[conformance summary]</a></td>\n";
print " <td><a href=\"http://www.ietf.org/rfc/rfc$mibs{$mib}.txt\">rfc$mibs{$mib}</a></td>\n" if ($mibs{$mib});
print " <td> </td>\n" if (!$mibs{$mib});
print " <td><pre>$desc</pre></td>\n";
print " </tr>\n";
system("MIBS=$mib mib2c -c mib2c.genhtml.conf $node");
system("mv $node.html $opts{D}");
}
print "</table>\n";
|