#!/usr/bin/perl -w $TOCHEADER=" TABLE OF CONTENTS"; open(O, ">FAQ.html"); print O " UCD-SNMP FAQ

Frequently Asked Questions (FAQ) for the UCD SNMP package

FAQ Author: Dave Shield
ucd-snmp Project Author: Wes Hardaker
Email: ucd-snmp-coders\@ucd-snmp.ucdavis.edu

Table of Contents

\n"; while(<>) { last if (/$TOCHEADER/); } while(<>) { last if (/^\s*$/); chomp(); $_ =~ s/^ *//; $x = $_; $x =~ s/^ *//g; $x =~ s/[^a-zA-Z]/_/g; $xlate{$_} = $x; if (/^[ A-Z]+$/) { print O "
  • $_
    \n";

while(<>) {
    $y = $_;
    chomp($y);
    if (defined($xlate{$y})) {
	print O "\n";
	print O "
    $y
    \n";
    } else {
	print O $_;
    }
}

$dt = localtime(time());
print O "
    Last modified: $dt\n";