--- deliantra/server/lib/cf/pod.pm	2007/04/18 17:57:24	1.6
+++ deliantra/server/lib/cf/pod.pm	2007/04/18 18:03:17	1.7
@@ -195,6 +195,7 @@
       };
 }
 
+# format as gcfclient-style text
 sub as_text($) {
    my ($pars) = @_;
 
@@ -214,6 +215,11 @@
 
    $res =~ s/\n\n+/\n/g;
 
+   $res =~ s/<(\/?[\S+])>/[$1]/g;
+   $res =~ s/&lt;/</g;
+   $res =~ s/&gt;/>/g;
+   $res =~ s/&amp;/&/g;
+
    $res
 }