1# whois.pl/Irssi/fahren@bochnia.pl 2 3use Irssi; 4use strict; 5 6use vars qw($VERSION %IRSSI); 7$VERSION = "1.0"; 8%IRSSI = ( 9 authors => "Maciek \'fahren\' Freudenheim", 10 contact => "fahren\@bochnia.pl", 11 name => "cwhois", 12 description => "Hilights \'@\' in whois channel reply", 13 license => "GNU GPLv2 or later", 14 changed => "Fri Mar 15 15:09:42 CET 2002" 15); 16 17Irssi::theme_register([ 18 'cwhois_channels', '{whois channels %|$1}' 19]); 20 21sub event_cwhois 22{ 23 my ($server, $data) = @_; 24 25 my ($nick, $chans) = $data =~ /([\S]+)\s:(.*)/; 26 27 my $ret; 28 foreach my $chan (split(/ /, $chans)) { 29 $ret .= (($chan =~ s/^@//)? "\00316@\003" : "") . $chan . " "; 30 } 31 32 chop $ret; 33 $server->printformat($nick, MSGLEVEL_CRAP, 'cwhois_channels', $nick, $ret); 34 35 Irssi::signal_stop(); 36} 37 38Irssi::signal_add('event 319', 'event_cwhois'); 39