summaryrefslogtreecommitdiff
path: root/src/perl/irc
diff options
context:
space:
mode:
authorJilles Tjoelker <jilles@irssi.org>2007-11-14 23:02:40 +0000
committerjilles <jilles@dbcabf3a-b0e7-0310-adc4-f8d773084564>2007-11-14 23:02:40 +0000
commit90b66dbe6c11ca5e4484f14cd223f1852c15e783 (patch)
treeb2ac294e433083c167b325a60902589afcbe88ad /src/perl/irc
parentfabecae6e640f62734d4e5711f1f4a49658c2993 (diff)
downloadirssi-90b66dbe6c11ca5e4484f14cd223f1852c15e783.zip
Rework redirections to deal with multiple concurrent redirects better.
These mostly happen when doing remote whois and the target server is slow. The code uses the source server but will try to do what it can if servers think they need to mask it. git-svn-id: http://svn.irssi.org/repos/irssi/trunk@4638 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/irc')
-rw-r--r--src/perl/irc/Server.xs10
1 files changed, 6 insertions, 4 deletions
diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs
index a3359bbc..a330fb20 100644
--- a/src/perl/irc/Server.xs
+++ b/src/perl/irc/Server.xs
@@ -116,24 +116,26 @@ CODE:
event_hash2list(hvref(signals)));
char *
-server_redirect_get_signal(server, event, args)
+server_redirect_get_signal(server, prefix, event, args)
Irssi::Irc::Server server
+ char *prefix
char *event
char *args
CODE:
- RETVAL = (char *) server_redirect_get_signal(server, event, args);
+ RETVAL = (char *) server_redirect_get_signal(server, prefix, event, args);
OUTPUT:
RETVAL
char *
-server_redirect_peek_signal(server, event, args)
+server_redirect_peek_signal(server, prefix, event, args)
Irssi::Irc::Server server
+ char *prefix
char *event
char *args
PREINIT:
int redirection;
CODE:
- RETVAL = (char *) server_redirect_peek_signal(server, event, args, &redirection);
+ RETVAL = (char *) server_redirect_peek_signal(server, prefix, event, args, &redirection);
OUTPUT:
RETVAL