diff options
author | Timo Sirainen <cras@irssi.org> | 2002-02-10 11:12:05 +0000 |
---|---|---|
committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2002-02-10 11:12:05 +0000 |
commit | 0fccf3be6e8fc213ebaf23cbc80232ab7be6c431 (patch) | |
tree | b310a8245d535dc14754262212ac128b41885924 /scripts | |
parent | 9575eecb39cb8c6ccaf16d800a10c0eed9aed224 (diff) | |
download | irssi-0fccf3be6e8fc213ebaf23cbc80232ab7be6c431.zip |
updated redirection code
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2412 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'scripts')
-rw-r--r-- | scripts/realname.pl | 19 |
1 files changed, 7 insertions, 12 deletions
diff --git a/scripts/realname.pl b/scripts/realname.pl index ccb1c6b1..0adbcef3 100644 --- a/scripts/realname.pl +++ b/scripts/realname.pl @@ -7,20 +7,15 @@ use strict; 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); + $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 { |