#!/usr/bin/perl #-*-perl-*- # # Copyright Andrew M. Bishop 1996.97,98,2001. # # 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; 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); } elsif (m/^(Section [0-9]+)/) { $section = $1; $section =~ tr/ /-/; $pre=0,print "\n" if($pre); print "

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

$_

\n" if($answers); } elsif(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);
       }
   elsif(m/\((See Q [0-9]+.[0-9]+[a-z]*)\)/)
       {
        $question = substr($1,4);
        $question =~ tr/ /-/;
        $href=$1;

        s%$1%$href% if($answers);
        print "$_\n";
       }
   elsif(m%(^|[^\'\"])(http://[A-Za-z0-9-_.]+/[/A-Za-z0-9-_.~]*)%)
       {
        $href=$2;

        s%$2%$href%;
        print "$_\n";
       }
   else
       {
        $blank=0,print "\n" if($blank);
        print "$_\n";
       }
  }

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