fix links within A-sections too and improve the parser somewhat

git-svn-id: svn://svn.rockbox.org/rockbox/trunk@1808 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Daniel Stenberg 2002-08-19 15:50:13 +00:00
parent 4d52ba710a
commit 54ed3d6ce1

View file

@ -2,22 +2,28 @@
# this is really a faq2html and should only be used for this purpose
while(<STDIN>) {
sub fixline {
$_ =~ s/\</&lt;/g;
$_ =~ s/\>/&gt;/g;
$_ =~ s/(http:\/\/([a-zA-Z0-9_.\/-]*)[^\).])/\<a href=\"$1\"\>$1\<\/a\>/g;
$_ =~ s/(http:\/\/([a-zA-Z0-9_.\/-]*)[^\) .\n])/\<a href=\"$1\"\>$1\<\/a\>/g;
$_ =~ s/^$/\&nbsp;/g; # empty lines are nbsp
$_ =~ s/(\\|\/)$/$1&nbsp;/g; # clobber backslash on end of line
}
while(<STDIN>) {
fixline($_);
# detect and mark Q-sections
if( $_ =~ /^Q(\d*)/) {
print "</pre>\n<a name=\"$1\"></a><p class=\"faqq\">$_";
my $line;
while(<STDIN>) {
fixline($_);
$line = $_;
if($_ !~ /^A/) {
print "$_";