#!/usr/bin/perl # # Copyright Andrew M. Bishop 1996-2013. # # 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) && $href !~ m%http://www\.(foo|bar)/%)
     {
      s%$2%$href%;
      print "$_\n";
     }
   else
     {
      $blank=0,print "\n" if($blank);
      print "$_\n";
     }
  }

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