From: vds7789@aw2.fsl.ca.boeing.com (Vincent D. Skahan)
Newsgroups: comp.bbs.waffle
Subject: Waffle FAQ table of contents (and perl to make it)
Date: 4 Oct 92 14:46:43 GMT
Organization: none

Attached is a quickie perl script to make a Table-of-contents for
the Waffle FAQ that I post monthly.  For grins, I've attached the
results of running the script on the current version of the FAQ.

Also, starting next time, I'll flag items that have been added
or changed so you can see quickly which items were changed...

						Vince

----------------------------- cut here ---------------------------
INTRODUCTION

GENERAL INFORMATION
  1. What is Waffle ?
  2. What operating systems does it run on ?

LICENSING
  1. Is Waffle free ?
  2. Is source code available ?
  3. Can I run DOS sources on a unix system (or vice versa)?
  4. OK, so what's it cost ?
  5. What if I bought DOS binaries and I now want sources ?
  6. Once I'm registered, can I upgrade to new versions for free ?

AVAILABILITY
  1. How can I get Waffle by ftp ?
  2. What if I'm not on Internet ?

SUPPORT MECHANISM
  1. How can I get questions answered ?
  2. Is there a USENET newsgroup for Waffle ?
  3. Can I get in touch with the author of Waffle ?
  4. How many Waffle sites are there currently?

MAIL
  1. How can I route domainized mail for my uucp neighbor directly to them ?
  2. What should I do with my headers?
  3. I'm not in a domain.  What should my headers look like ?
  4. I'm a single site. Should I register in the UUCP maps?
  5. Can I display something other than the sender in mail ?
  6. Does Waffle support folders ?
  7. Can I use (my favorite mail program) ?
  8. Can I keep a record of all mail that comes into the system ?

FILES SECTION
  1. How can I set the prompt in the files section ?
  2. I use a Fossil driver and a 16550 UART with FIFOs enabled. After
  3. Those @access files are sure a pain...

EXTERNALS
  1. How do they all work ?
  2. I use 4DOS, yet Waffle shells out to DOS, not 4DOS...
  3. If I implement Waffle as a door from another BBS, how can users exit

EDITORS
  1. What editors can I use ?
  2. How can I use different local and remote editors ?
  3. Why does (insert editor here) work locally, but not remotely?

NEWS
  1. Can I keep a copy of all posts ?
  2. Can I gateway news to/from mail ?
  3. Does Waffle provided threaded newsreading ?
  4. Does Waffle support kill files ?
  5. Why do I see multiple copies of the same article ?
  6. Why do my local postings not make it to USENET ?
  7. Can I edit the distributions line when making a post ?
  8. Can I effectively read and followup to saved news messages ?
  9. In 'rn', how can I mail an article to somebody other than the author?

ADMINISTERING A USENET SITE
  1. What books should I buy ?
  2. What other stuff should I read ?

COMMUNICATIONS
  1. What settings do I use for my Telebit modem ?
  2. What's the best throughput I can expect ?
  3. What are the special characters recognized by the chat script ?
  4. How can I stop my connection from timing out while switching speeds ?
  5. Why isn't any of this good networking stuff in static.doc ?
  6. What does this error mean?

AFTERMARKET ADD-ONS
  1. What add-on products are available for Waffle ?

MISCELLANEOUS
  1. How can I set my mail and news signatures to be different ?
  2. Can I use 16-bit compression ?
  3. What are all those files in \waffle\* anyway ?
  4. What document in \waffle\docs contains what ?
  5. Can I alter my headers after composing a message ?
  6. Does DOS Waffle support control messages ?

TRANSITION TO 1.65
  1. I updated my config files, but they didn't work.
  2. I'm going to run makebox.  Anything I should know ?
  3. 1.65 sure seems scary, why should I bother?

---------------------------- cut here ---------------------------
#!/usr/local/bin/perl
#
# This is a little ditty to generate a table of contents from
# the Waffle Frequently-Asked-Questions (FAQ)...
#
# to run, say 'perl index.pl'
#
#                                     Vince Skahan
#                                     vince@atc.boeing.com
#

$INFILE  = "waffle.faq";
$OUTFILE = "wafindex.txt";

open (stdin, $INFILE)  || die "can't open $FILE for input: $!\n";
open (stdout,">$OUTFILE") || die "can't open $FILE for output: $!\n";

while(<stdin>)
{
        # skip all the news'y headers
        if (/^INTRODUCTION/) { $done_headers++; };
        next unless $done_headers;               

        # major headings are in caps
        # each item is numbered
        if (/^[A-Z]/) { select(stdout); print "\n" ;  print; }
        if (/^[0-9]/) { select(stdout); print "  "; print; }

        # make sure we catch stuff that was flagged as changed with '*'
        if (/^\*[A-Z]/) { select(stdout); print "\n";  print; }
        if (/^\*[0-9]/) { select(stdout); print " "; print; }

}
#-------------------------- cut here ----------------------
-- 
   ---------   Vince Skahan   -----------   vince@atc.boeing.com   ---------   
                   Project management is often an oxymoron.