| … | |
… | |
| 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 | |
