diff --git a/www/txt2plain.pl b/www/txt2plain.pl index eb630acad0..f460cff301 100755 --- a/www/txt2plain.pl +++ b/www/txt2plain.pl @@ -5,7 +5,11 @@ while() { $_ =~ s/\/>/g; - $_ =~ s/^$/\ /g; + $_ =~ s/(http:\/\/([a-zA-Z0-9_.\/-]*)[^).])/\$1\<\/a\>/g; + + $_ =~ s/^$/\ /g; # empty lines are nbsp + $_ =~ s/(\\|\/)$/$1 /g; # clobber backslash on end of line + print $_; }