You've already forked mariadb-columnstore-engine
mirror of
https://github.com/mariadb-corporation/mariadb-columnstore-engine.git
synced 2025-11-06 16:09:29 +03:00
56 lines
1.1 KiB
Perl
Executable File
56 lines
1.1 KiB
Perl
Executable File
#!/usr/bin/perl -w
|
|
|
|
$TOCHEADER=" TABLE OF CONTENTS";
|
|
|
|
open(O, ">FAQ.html");
|
|
print O "<body bgcolor=\"#ffffff\" background=\"ucd-snmp-bg3.gif\">
|
|
<title>NET-SNMP FAQ</title>
|
|
<div align=center>
|
|
<h1>Frequently Asked Questions (FAQ) for the Net-SNMP package</h1>
|
|
FAQ Maintainer: Dave Shield<br>
|
|
Email: <a href=\"mailto:net-snmp-coders\@lists.sourceforge.net\">net-snmp-coders\@list.sourceforge.net</a><br>
|
|
</div>
|
|
<hr>
|
|
<h2>Table of Contents</h2>\n";
|
|
|
|
while(<>) {
|
|
last if (/$TOCHEADER/);
|
|
}
|
|
|
|
while(<>) {
|
|
last if (/^\s*$/);
|
|
chomp();
|
|
if (/^ */) {
|
|
# continuation of the question.
|
|
print O "<a href=\"#$x\">$_</a>\n";
|
|
next;
|
|
}
|
|
$_ =~ s/^ *//;
|
|
$x = $_;
|
|
$x =~ s/^ *//g;
|
|
$x =~ s/[^a-zA-Z]/_/g;
|
|
$xlate{$_} = $x;
|
|
if (/^[ A-Z]+$/) {
|
|
print O "</ul><li><b>$_</b><ul>\n";
|
|
} else {
|
|
print O "<li> <a href=\"#$x\">$_</a>\n";
|
|
}
|
|
}
|
|
|
|
print O "</ul><hr><pre>\n";
|
|
|
|
while(<>) {
|
|
$y = $_;
|
|
chomp($y);
|
|
if (defined($xlate{$y})) {
|
|
print O "<a name=\"$xlate{$y}\">\n";
|
|
}
|
|
if ( /</ ) { $_ =~ s/</</g; }
|
|
if ( />/ ) { $_ =~ s/>/>/g; }
|
|
print O $_;
|
|
}
|
|
|
|
$dt = localtime(time());
|
|
print O "</pre><hr>
|
|
Last modified: $dt\n";
|