apps/irssi/scripts/realname.pl

   1 # /RN - display real name of nick
   2
   3 use Irssi;
   4 use Irssi::Irc;
   5 use strict;
   6
   7 sub cmd_realname {
   8         my ($data, $server, $channel) = @_;
   9
  10         $server->send_raw("WHOIS :$data");
  11
  12         # ignore all whois replies except "No such nick" or the
  13         # first line of the WHOIS reply
  14         $server->redirect_event($data, 2,
  15                           "event 318", "event empty", -1,
  16                           "event 402", "event 402", -1,
  17                           "event 401", "event 401", 1,
  18                           "event 311", "redir whois", 1,
  19                           "event 301", "event empty", 1,
  20                           "event 312", "event empty", 1,
  21                           "event 313", "event empty", 1,
  22                           "event 317", "event empty", 1,
  23                           "event 319", "event empty", 1);
  24 }
  25
  26 sub event_rn_whois {
  27         my ($num, $nick, $user, $host, $empty, $realname) = split(/ +/, $_[1], 6);
  28         $realname =~ s/^://;
  29
  30         Irssi::print("%_$nick%_ is $realname");
  31 }
  32
  33 Irssi::command_bind('rn', 'cmd_realname');
  34 Irssi::signal_add('redir whois', 'event_rn_whois');