diff options
-rwxr-xr-x | www/txt2plain.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/www/txt2plain.pl b/www/txt2plain.pl index 72640522b6..287e8787d8 100755 --- a/www/txt2plain.pl +++ b/www/txt2plain.pl | |||
@@ -8,7 +8,7 @@ sub fixline { | |||
8 | 8 | ||
9 | $_ =~ s/(http:\/\/([a-zA-Z0-9_.\/-]*)[^\) .\n])/\<a href=\"$1\"\>$1\<\/a\>/g; | 9 | $_ =~ s/(http:\/\/([a-zA-Z0-9_.\/-]*)[^\) .\n])/\<a href=\"$1\"\>$1\<\/a\>/g; |
10 | 10 | ||
11 | $_ =~ s/^$/\ /g; # empty lines are nbsp | 11 | $_ =~ s/^\s*$/\ \n/g; # empty lines are nbsp |
12 | $_ =~ s/(\\|\/)$/$1 /g; # clobber backslash on end of line | 12 | $_ =~ s/(\\|\/)$/$1 /g; # clobber backslash on end of line |
13 | } | 13 | } |
14 | 14 | ||
@@ -18,7 +18,7 @@ while(<STDIN>) { | |||
18 | 18 | ||
19 | # detect and mark Q-sections | 19 | # detect and mark Q-sections |
20 | if( $_ =~ /^Q(\d*)/) { | 20 | if( $_ =~ /^Q(\d*)/) { |
21 | print "</pre>\n<a name=\"$1\"></a><p class=\"faqq\">$_"; | 21 | print "</pre>\n<a name=\"$1\"></a><div class=\"faqq\">$_"; |
22 | my $line; | 22 | my $line; |
23 | while(<STDIN>) { | 23 | while(<STDIN>) { |
24 | 24 | ||
@@ -32,7 +32,7 @@ while(<STDIN>) { | |||
32 | last; | 32 | last; |
33 | } | 33 | } |
34 | } | 34 | } |
35 | print "</p>\n<pre class=\"faqa\">\n$line"; | 35 | print "</div>\n<pre class=\"faqa\">$line"; |
36 | next; | 36 | next; |
37 | } | 37 | } |
38 | 38 | ||