#!/usr/bin/perl # This small perl script produce html-formatted output for postings into # "documentation" area of http://sourceforge.net/projects/husky # # (c) Stas Degteff 2:5080/102 print "

\n";
while( <> ){
 chomp;

 if( /\[(\d+)\]/ ){ print ""; }
 s/^(.*\[\d+\].*)$/$1<\/h3>/;
 s/^(Q: .*)$/$1<\/font>/;
 s/^(A:.*)$/<\/font>$1<\/font>/;
 s/ *\/-+\/ *//;
 s/Q(\d+)(\. .*)$/Q$1$2<\/a>/;

 print "$_\n";
}
print "

\n";

$1<\/h3>/; s/^(Q: .*)$/$1<\/font>/; s/^(A:.*)$/<\/font>$1<\/font>/; s/ *\/-+\/ *//; s/Q(\d+)(\. .*)$/Q$1$2<\/a>/; print "$_\n"; } print "

$1<\/h3>/; s/^(Q: .)$/$1<\/font>/; s/^(A:.)$/<\/font>$1<\/font>/; s/ \/-+\/ /
/; s/Q(\d+)(\. .*)$/Q$1$2<\/a>/; print "$_\n"; } print "