#!/usr/local/bin/perl5 require "../openfaq.pl"; &checkMaintainer; opendir(DIN, "."); @allfilesRaw = grep /^\d+$/, readdir DIN; closedir(DIN); @allfiles = sort { $a <=> $b } @allfilesRaw; print STDERR "Sorted\n"; open(OUT, ">../index.html"); print OUT < $topic

$topic

Discussion about this document takes place on the AdaFAQ-list @ AdaPower.com. To join the list send an e-mail to AdaFAQ-list-request @ AdaPower.com with subscribe in the body. This document is covered by the GNU Public License. All articles can be freely reproduced intact under the terms of that license. Anyone can become a contributor to this document!

The original FAQs are located at: http://www.adahome.com/FAQ
Please note that do to licensing restrictions on the FAQs, we can not accept copies of questions or answers from that site.

EOM ; for ($i = 0; ($i < int(@allfiles)); $i++) { $f = $allfiles[$i]; $id = int($f); if ($i < (int(@allfiles) - 1)) { $next = int($allfiles[$i + 1]); } &readEntry($id, 0); $esc = &htmlEscape($subject); print OUT < $esc (ID: $id) EOM ; open(AOUT, ">../" . $id . ".html"); print AOUT "$topic\n"; print AOUT "

$topic

\n"; print AOUT "

$subject

\n"; print AOUT "Contributors:
\n"; print AOUT "

", $by[$j], " ", $email[$j], "\n"; } print AOUT "

\n"; print AOUT "

\n"; print AOUT $entry, "\n"; print AOUT "

\n"; if ($i > 0) { print AOUT "Previous | "; } if ($i < (int(@allfiles) - 1)) { print AOUT "Next | "; } print AOUT "Table of Contents\n"; close(AOUT); $prev = $f; } print OUT <

For Authors Only

EOM ; close(OUT); opendir(DIN, "."); @allfilesRaw = grep /^\d+$/, readdir DIN; closedir(DIN); @allfiles = sort { $a <=> $b } @allfilesRaw; open(OUT, ">../toc.txt"); print OUT <TOC Updated The table of contents file, toc.txt, has been updated. index.html has also been updated. EOM ; print "

Update Complete.

\n"; print "Remember, you are going to have to hit reload ", "after going to the table of contents before you ", "will see any changes.\n"; print "

To Table of Contents\n";