package II8b55f24974af3d53369c3d9cea404f55::filters::text2html; use strict; use CGI qw/escapeHTML/; sub text2html { my $v = shift; $v = CGI->escapeHTML($v); $v =~ s#(http://\S+)#<a href="$1">$1</a>#g; $v =~ s/\r?\n/<br>\n/g; $v; } 1; 