… | |
… | |
656 | |
656 | |
657 | my $fg = $color[$color % @color]; |
657 | my $fg = $color[$color % @color]; |
658 | |
658 | |
659 | $self->logprint ("info: ", $text); |
659 | $self->logprint ("info: ", $text); |
660 | |
660 | |
661 | # try to create single paragraphs of multiple lines sent by the server |
661 | ## try to create single paragraphs of multiple lines sent by the server |
|
|
662 | # no longer neecssary with TRT servers |
662 | $text =~ s/(?<=\S)\n(?=\w)/ /g; |
663 | #$text =~ s/(?<=\S)\n(?=\w)/ /g; |
663 | |
664 | |
664 | $text = CFPlus::asxml $text; |
665 | $text = CFPlus::asxml $text; |
665 | $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g; |
666 | $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g; |
666 | $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g; |
667 | $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g; |
667 | |
668 | |