#!/usr/bin/perl # # Copyright Andrew M. Bishop 1996.97,98,2001,02,03. # # 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"; print "\n"; print "

\n"; $questions=0; $answers=0; $pre=0; $blank=1; while() { chop; s/&/&/g; s//>/g; s//ä/g; s//ö/g; s//ü/g; s//Ä/g; 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); } elsif (m/^(Section [0-9]+)/) { $section = $1; $section =~ tr/ /-/; $pre=0,print "\n" if($pre); print "

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

$_

\n" if($answers); print "

\n"; } 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";