changes to support UTF-8 encoding from

[webpac] / back2html.pm

diff --git a/back2html.pm b/back2html.pm
index 95742d2..860a1d6 100644 (file)
--- a/back2html.pm
+++ b/back2html.pm
@@ -27,7 +27,10 @@ sub back2html {
                $out .= join("</td><td>",@items);
                $out .= "</td></tr>\n";
        }
-       $out =~ s/&lt;br\/*&gt;/<br\/>/g;
+       # put <br> back into html
+       $out =~ s,&lt;br/*&gt;,<br/>,gi;
+       # put <a href=xxx>yyyy</a> back into html
+       $out =~ s,&lt;(a\s+href=)(.+?)&gt;(.+?)&lt;(/a)&gt;,<$1$2>$3<$4>,gsi;
        return $out;
 }