zynk/irssi
2
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2026-08-10 20:33:46 +02:00
Code Issues Projects Releases Packages Wiki Activity

added/removed some default scripts

Browse source 
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2569 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2002-03-10 21:28:38 +00:00 • committed by cras
commit 03c71116e0
14 changed files with 606 additions and 76 deletions
Download patch file Download diff file Expand all files Collapse all files

29
scripts/realname.pl
View file

@ -1,29 +0,0 @@
# /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');