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

Directory should really be named "scripts", not "examples".

Browse source 
Added script mlock.pl


git-svn-id: http://svn.irssi.org/repos/irssi/trunk@149 dbcabf3a-b0e7-0310-adc4-f8d773084564
This commit is contained in:
Timo Sirainen 2000-03-15 20:49:44 +00:00 • committed by cras
commit 2799d200cb
9 changed files with 115 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

34
scripts/realname.pl Normal file
View file

@ -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');