irssi/scripts/realname.pl

# /RN - display real name of nick

use Irssi;
use Irssi::Irc;
use strict;

sub cmd_realname {
	my ($data, $server, $channel) = @_;

	# ignore all whois replies except "No such nick" or the 
	# first line of the WHOIS reply
	$server->redirect_event('whois', 1, $data, -1, '', {
			  'event 402' => 'event 402',
			  'event 401' => 'event 401',
			  'event 311' => 'redir whois',
			  '' => 'event empty' });

	$server->send_raw("WHOIS :$data");
}

sub event_rn_whois {
	my ($num, $nick, $user, $host, $empty, $realname) = split(/ +/, $_[1], 6);
	$realname =~ s/^://;

	Irssi::print("%_$nick%_ is $realname");
}

Irssi::command_bind('rn', 'cmd_realname');
Irssi::signal_add('redir whois', 'event_rn_whois');