1 package Xchat::VPIT::Highlight;
8 use lib get_info 'xchatdir';
10 use Xchat::XPI::Events qw/filter/;
12 our $VERSION = '0.02';
18 command 'GUI COLOR 3';
21 hook_print 'Private Message to Dialog', sub { guihl; return EAT_NONE };
24 '#cpantesters' => [ qw/Linux-SysInfo MorseSignals Regexp-Wildcards Scalar-Vec-Util Sub-Prototype-Util Test-Valgrind Variable-Magic with- B-RecDeparse Sub-Nary indirect- subs-auto/ ]
28 my $rx = '(?:' . (join '|', @{$words{$_}}) . ')';
32 filter 'Channel Action' => sub {
33 my $chan = lc get_info 'channel';
34 if ($words{$chan} and $_[1] =~ /$words{$chan}/) {
40 } => 'Channel Action Hilight';
42 $ph = new Xchat::XPI name => 'Smart highlighting',
44 desc => 'Highlight on private messages',
45 author => 'Vincent Pit (VPIT)',
46 email => 'perl@profvince.com',
47 url => 'http://www.profvince.com';