Net-SNMP manual pages

#!/usr/bin/perl my $infile = shift @ARGV; map { s/\.[0-9]$//; $pages{$_} = 1; } @ARGV; open(I,$infile); $first = 1; print " Net-SNMP manual pages

Other Net-SNMP Documantion

The Net-SNMP Tutorial	A complete tutorial describing how to use the commands, a bit how SNMP works, and how to develop applications and agent plugins.
Net-SNMP Home Page Documentation	A high-level summary of Net-SNMP related documentation
API documentation	Documentation generated from Doxygen formatted source code comments

"; while () { if (/^#\s*(.*)/) { print "\n" if (!$first); print "
$1
\n
\n"; $first = 0; } else { my $name = $_; my $title; chomp($name); if (!exists($pages{$name})) { print STDERR "$name is in $infile, but not in the rest of the args.\n"; } open(H,"$name.html"); while () { if (/(.*)<\/TITLE>/) { $title = $1; } if (/<H2>NAME<\/H2>/) { $_ = <H>; while (/^\s*$/) { $_ = <H>; } $title = $_; chomp($title); $title =~ s/\s*$name\s*-\s*//; } } close(H); print " <tr><td width=\"30%\"><a href=\"$name.html\">$name</a></td><td>$title</td></tr>\n"; delete $pages{$name}; } } print "</table></ul>  </BODY></HTML>\n"; @left = keys(%pages); if ($#left > -1) { print STDERR "missing a filing location for: ", join(", ", @left), "\n"; }