… | |
… | |
372 | ); |
372 | ); |
373 | |
373 | |
374 | my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0]; |
374 | my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0]; |
375 | |
375 | |
376 | # try to create single paragraphs of multiple lines sent by the server |
376 | # try to create single paragraphs of multiple lines sent by the server |
377 | $text =~ s/(?<=\S)\n(?=\S)/ /g; |
377 | $text =~ s/(?<=\S)\n(?=\w)/ /g; |
378 | |
378 | |
379 | $text = CFClient::UI::Label::escape $text; |
379 | $text = CFClient::UI::Label::escape $text; |
380 | $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g; |
380 | $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g; |
381 | $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g; |
381 | $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g; |
382 | |
382 | |