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