… | |
… | |
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"); |