--- trunk/back2html.pm 2003/02/16 22:41:37 13
+++ trunk/back2html.pm 2003/07/04 21:35:34 65
@@ -11,9 +11,11 @@
foreach $line (split(/###/,$html)) {
$out .= "
";
my @items = split(/#-#/,$line);
+ $items[1] =~ s#(.*)\b(http://[\w\./]+)(\b?.*)#$1$2$3#g;
$out .= join(" | ",@items);
$out .= " |
\n";
}
+ $out =~ s/<br\/*>/
/g;
return $out;
}