1#!/usr/bin/perl
2
3# This small perl script produce html-formatted output for postings into
4# "documentation" area of http://sourceforge.net/projects/husky
5#
6# (c) Stas Degteff 2:5080/102
7
8print "<pre>\n";
9while( <> ){
10 chomp;
11
12 if( /\[(\d+)\]/ ){ print "<a name=$1></a>"; }
13 s/^(.*\[\d+\].*)$/<h3>$1<\/h3>/;
14 s/^(Q: .*)$/<font color=blue>$1<\/font>/;
15 s/^(A:.*)$/<\/font><font color=brown>$1<\/font>/;
16 s/ *\/-+\/ */<hr>/;
17 s/Q(\d+)(\. .*)$/<a href=\#$1>Q$1$2<\/a>/;
18
19 print "$_\n";
20}
21print "</pre>\n";
22