sub html_escape
{
        my $text = shift;

        return '' unless $text;
        #$text =~ s{\;}{#59;}gso; 
        $text =~ s{&}{&}gso;
        #$text =~ s{#59;}{&#59;}gso; 
        $text =~ s{"}{"}gso;
        $text =~ s{  }{ \ }gso;
        $text =~ s{\*}{*}gso; 
        $text =~ s{<}{&lt;}gso;
        $text =~ s{>}{&gt;}gso;
        $text =~ s{'}{&#39;}gso; 
        $text =~ s{\)}{&#41;}gso;
        $text =~ s{\(}{&#40;}gso;
        $text =~ s{\\}{&#92;}gso; # need this!
        $text =~ s{\t}{ \&nbsp; \&nbsp; \&nbsp;}gso;
        $text =~ s{\|}{\&#124;}gso; # going to keep this
        $text =~ s{\n}{<br>}gso;
        $text =~ s{\cM}{}gso;

        return $text;
}