Initial Commit

database/php/extras/mibs/makehtml.pl

@@ -0,0 +1,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/&/&amp;/g;
+    $desc =~ s/</&lt;/g;
+    $desc =~ s/>/&gt;/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>&nbsp;</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";
+
+