| … | |
… | |
| 1323 | [0.74, 0.65, 0.41], |
1323 | [0.74, 0.65, 0.41], |
| 1324 | ); |
1324 | ); |
| 1325 | |
1325 | |
| 1326 | my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0]; |
1326 | my $time = sprintf "%02d:%02d:%02d", (localtime time)[2,1,0]; |
| 1327 | |
1327 | |
| 1328 | $LOGVIEW->add_paragraph ($color[$color], |
|
|
| 1329 | join "\n", map "$time $_", split /\n/, $text); |
|
|
| 1330 | |
|
|
| 1331 | $text =~ s/&/&/g; $text =~ s/</</g; |
1328 | $text =~ s/&/&/g; $text =~ s/</</g; |
| 1332 | $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g; |
1329 | $text =~ s/\[b\](.*?)\[\/b\]/<b>\1<\/b>/g; |
| 1333 | $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g; |
1330 | $text =~ s/\[color=(.*?)\](.*?)\[\/color\]/<span foreground='\1'>\2<\/span>/g; |
|
|
1331 | |
|
|
1332 | $LOGVIEW->add_paragraph ($color[$color], |
|
|
1333 | join "\n", map "$time $_", split /\n/, $text); |
| 1334 | $STATUS_LINE->add ($text, color => $color[$color], timeout => 60); |
1334 | $STATUS_LINE->add ($text, color => $color[$color], timeout => 60); |
| 1335 | } |
1335 | } |
| 1336 | |
1336 | |
| 1337 | sub conn::drawextinfo { |
1337 | sub conn::drawextinfo { |
| 1338 | my ($self, $color, $type, $subtype, $message) = @_; |
1338 | my ($self, $color, $type, $subtype, $message) = @_; |
