English-German mini-FAQ for ISDN4Linux

#!/usr/bin/perl &doit("all"); exit(0); sub doit { local($part) = @_; local($lang) = "german"; if($part eq "all") { print'' . "\n"; print'English-German mini-FAQ for ISDN4Linux'; print''; print"

\n";
}

open(INFILE, $ARGV[0]) || die("Couldn't open $ARGV[0]") if($part eq "all");
open(INFILE2, $ARGV[0]) || die("Couldn't open $ARGV[0]") if($part ne "all");

while($line= (($part eq "all") ?  : ))
{
  $line =~ s/&/&/g;
  $line =~ s//>/g;
  if($line =~ /http:/)
  {
    $line =~ s/(http:[^ \n]+)/\1<\/a>/g;
  }
  elsif($line =~ /ftp:/)
  {
    $line =~ s/(ftp:[^ \n]+)/\1<\/a>/g;
  }
  elsif($line =~ /www./)
  {
    $line =~ s/(www.[^ \n]+)/\1<\/a>/;
  }
  $line =~ s/\<([A-Za-z0-9_.-]+\@[a-zA-Z0-9.-]+)\>/<\1><\/a>/g;
  if($line =~ /mini-faq f/i)
  {
    $line =~ s/^/<\/pre>/;
    $line =~ s/\n/<\/h1>/;
  }
  if($line =~ /see below/i)
  {
    $line =~ s/^/<\/pre>/;
    $line =~ s/\n/<\/a><\/h1>/;
  }
  if($line =~ /^0/) {$lang = "english"};
  if($lang eq "german")
  {
    if($line =~ /^[0-9]+\./)
    {
      if($part eq "all")
      {
        $line =~ s/^([0-9]+)\./
\1.<\/a>/;
      }
      else
      {
        $line =~ s/^([0-9]+)\./
\1.<\/a>/;
      }
      $header = "yes";
    }
    $line =~ s/(Frage ([0-9]+))/\1<\/a>/g;
  }
  else
  {
    if($line =~ /^[0-9]+\./)
    {
      if($part eq "all")
      {
        $line =~ s/^([0-9]+)\./
\1.<\/a>/;
      }
      else
      {
        $line =~ s/^([0-9]+)\./
\1.<\/a>/;
      }
      $header = "yes";
    }
    $line =~ s/(question ([0-9]+))/\1<\/a>/g;
  }
  $line =~ s/^ /
 /;
  if($line =~ /^$/)
  {
    if($header eq "yes")
    {
      $line =~ s/^$/<\/b>/;
      $header = "no";
    }
    else
    {
      $line =~ s/^$//;
    }
  }
  if($line =~ /germantoc/ && $part eq "all")
  {
    &doit("germantoc");
  }
  elsif($line =~ /englishtoc/ && $part eq "all")
  {
    &doit("englishtoc");
  }
  elsif($part eq "all")
  {
    print $line;
  }
  elsif($part eq "germantoc" && $lang eq "german" &&
                  ($header eq "yes" || $line =~ /<\/b>/))
  {
    print $line;
  }
  elsif($part eq "englishtoc" && $lang eq "english" &&
                  ($header eq "yes" || $line =~ /<\/b>/))
  {
    print $line;
  }
}

close(INFILE2);

if($part eq "all")
{
  print"
";
  print ' 
       ';
  print"\n";
}

}