#!/usr/bin/perl &doit("all"); exit(0); sub doit { local($part) = @_; local($lang) = "german"; if($part eq "all") { print'' . "\n"; 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; $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]+)\./"; print ''; print"\n"; } }
\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"