Nyaaori/rockbox
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

minor improvements

Browse source 
git-svn-id: svn://svn.rockbox.org/rockbox/trunk@1874 a1c6a512-1295-4272-9138-f99709370657
This commit is contained in:
Daniel Stenberg 2002-08-21 11:19:20 +00:00
parent 057b85a57b
commit e62f191dcf
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
www/txt2plain.pl
View file

@ -8,7 +8,7 @@ sub fixline {
$_ =~ s/(http:\/\/([a-zA-Z0-9_.\/-]*)[^\) .\n])/\<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/^\s*$/\&nbsp;\n/g; # empty lines are nbsp
$_ =~ s/(\\|\/)$/$1&nbsp;/g; # clobber backslash on end of line $_ =~ s/(\\|\/)$/$1&nbsp;/g; # clobber backslash on end of line
} }
@ -18,7 +18,7 @@ while(<STDIN>) {
# detect and mark Q-sections # detect and mark Q-sections
if( $_ =~ /^Q(\d*)/) { if( $_ =~ /^Q(\d*)/) {
print "</pre>\n<a name=\"$1\"></a><p class=\"faqq\">$_"; print "</pre>\n<a name=\"$1\"></a><div class=\"faqq\">$_";
my $line; my $line;
while(<STDIN>) { while(<STDIN>) {
@ -32,7 +32,7 @@ while(<STDIN>) {
last; last;
} }
} }
print "</p>\n<pre class=\"faqa\">\n$line"; print "</div>\n<pre class=\"faqa\">$line";
next; next;
} }