html/whois.pl

• package main
  • event_cwhois
• EOF

   1 # whois.pl/Irssi/fahren@bochnia.pl
   2 
   3 use Irssi;
   4 use strict;
   5 
   6 use 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 
  17 Irssi::theme_register([
  18   'cwhois_channels', '{whois channels %|$1}'
  19 ]);
  20   
  21 sub 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 
  38 Irssi::signal_add('event 319', 'event_cwhois');