diff options
Diffstat (limited to 'examples/realname.pl')
| -rw-r--r-- | examples/realname.pl | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/examples/realname.pl b/examples/realname.pl new file mode 100644 index 00000000..1150d5e2 --- /dev/null +++ b/examples/realname.pl @@ -0,0 +1,34 @@ +# /RN - display real name of nick + +use Irssi; + +sub cmd_realname { + my ($data, $server, $channel) = @_; + + $server->send_raw("WHOIS :$data"); + + # ignore all whois replies except "No such nick" or the + # first line of the WHOIS reply + $server->redirect_event($data, 2, + "event 318", "event empty", -1, + "event 402", "event 402", -1, + "event 401", "event 401", 1, + "event 311", "redir whois", 1, + "event 301", "event empty", 1, + "event 312", "event empty", 1, + "event 313", "event empty", 1, + "event 317", "event empty", 1, + "event 319", "event empty", 1); + return 1; +} + +sub event_rn_whois { + my ($num, $nick, $user, $host, $empty, $realname) = split(/ +/, $_[0], 6); + $realname =~ s/^://; + + Irssi::print("%_$nick%_ is $realname"); + return 1; +} + +Irssi::command_bind('rn', '', 'cmd_realname'); +Irssi::signal_add('redir whois', 'event_rn_whois'); |