| … | |
… | |
| 779 | |
779 | |
| 780 | if ($type eq "msg") { |
780 | if ($type eq "msg") { |
| 781 | my ($msg, @kw) = split /\x00/, $msg; |
781 | my ($msg, @kw) = split /\x00/, $msg; |
| 782 | $self->{kw}{$_} = 1 for @kw; |
782 | $self->{kw}{$_} = 1 for @kw; |
| 783 | |
783 | |
| 784 | warn "<<<<@kw>>>>\n";#d# |
|
|
| 785 | |
|
|
| 786 | $msg = CFClient::UI::Label::escape $msg; |
784 | $msg = CFClient::UI::Label::escape $msg; |
| 787 | my $match = join "|", map "\\b\Q$_\E\\b", sort { (length $b) <=> (length $a) } keys %{ $self->{kw} }; |
785 | my $match = join "|", map "\\b\Q$_\E\\b", sort { (length $b) <=> (length $a) } keys %{ $self->{kw} }; |
| 788 | $msg =~ s/($match)/<span foreground='#c0c0ff' underline='none'>$1<\/span>/gi; # underline when http-ready, huh. |
786 | $msg =~ s/($match)/<span foreground='#c0c0ff' underline='none'>$1<\/span>/gi; # underline when http-ready, huh. |
| 789 | |
787 | |
| 790 | $self->{textview}->add_paragraph ([1, 1, 1, 1], "\n$msg"); |
788 | $self->{textview}->add_paragraph ([1, 1, 1, 1], "\n$msg"); |
