#!/usr/bin/perl #-*-perl-*- # # Copyright Andrew M. Bishop 1996.97. # # Usage: FAQ-html.pl < FAQ > FAQ.html # $_=; s/^ *//; s/ *\n//; $first=$_; print "\n"; print "\n"; print "\n"; print "\n"; print "$first\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "

$first

\n"; $questions=0; $answers=0; $pre=0; $blank=1; while() { chop; s//>/g; s/&/&/g; s/\"/"/g; next if(m/^ *=+ *$/); next if ($_ eq "--------------------"); $pre++,$blank=0,next if($pre==1 && $_ eq ""); $blank=1,next if($pre!=1 && $_ eq ""); $pre++ if($pre); if ($_ eq "--------------------------------------------------------------------------------") { $pre=0,print "\n" if($pre); print "

\n"; $answers++ if( $answers); $questions=0,$answers=1 if( $questions); $questions=1 if(!$questions && !$answers); } else { if(m/^(Section [0-9]+)/) { $section = $1; $section =~ tr/ /-/; $pre=0,print "\n" if($pre); print "

$_\n" if($questions); print "

$_

\n" if($answers); } else { if(m/^(Q [0-9]+.[0-9]+[a-z]*)/) { $question = $1; $question =~ tr/ /-/; $blank=0,$pre=0,print "\n" if($pre); print "

$_\n" if($questions); print "

$_

\n" if($answers); $pre=1,print "

\n" if($answers);
                 }
             else
                 {
                  $blank=0,print "\n" if($blank);
                  print "$_\n";
                 }
            }
       }
  }

print "\n";
print "\n";
print "\n";