summaryrefslogtreecommitdiff
path: root/scripts
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2002-02-10 11:12:05 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2002-02-10 11:12:05 +0000
commit0fccf3be6e8fc213ebaf23cbc80232ab7be6c431 (patch)
treeb310a8245d535dc14754262212ac128b41885924 /scripts
parent9575eecb39cb8c6ccaf16d800a10c0eed9aed224 (diff)
downloadirssi-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.pl19
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 {