diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-11-11 18:59:19 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-11-11 18:59:19 +0000 |
| commit | 850cf993eb8d5e20b9b845e42e4bdae1a6cae81f (patch) | |
| tree | 76ac7694abd05394ae84e10763b406be88ad86aa /src/perl/common | |
| parent | 712f3b383da947f5c565fba3695dbcd02136ce4b (diff) | |
| download | irssi-850cf993eb8d5e20b9b845e42e4bdae1a6cae81f.zip | |
Moved rewritten server redirection code from core to irc. This new code
should be able to do the redirecting a lot more error-proof. Changed
lag-checking to use PINGs instead of NOTIFYs. This breaks scripts using
redirection. Hopefully this doesn't break too much things in irssi :)
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1980 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common')
| -rw-r--r-- | src/perl/common/Server.xs | 41 | ||||
| -rw-r--r-- | src/perl/common/module.h | 1 |
2 files changed, 0 insertions, 42 deletions
diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs index 388c062a..2b214821 100644 --- a/src/perl/common/Server.xs +++ b/src/perl/common/Server.xs @@ -46,47 +46,6 @@ void server_disconnect(server) Irssi::Server server -void -server_redirect_init(server, command, last, ...) - Irssi::Server server - char *command - int last -PREINIT: - STRLEN n_a; - GSList *list; - int n; -CODE: - list = NULL; - for (n = 3; n < items; n++) { - list = g_slist_append(list, SvPV(ST(n), n_a)); - } - server_redirect_initv(server, command, last, list); - -int -server_redirect_single_event(server, arg, last, group, event, signal, argpos) - Irssi::Server server - char *arg - int last - int group - char *event - char *signal - int argpos - -void -server_redirect_event(server, arg, last, ...) - Irssi::Server server - char *arg - int last -PREINIT: - STRLEN n_a; - int n, group; -CODE: - group = 0; - for (n = 3; n+3 <= items; n += 3, last--) { - group = server_redirect_single_event(server, arg, last > 0, group, - (char *) SvPV(ST(n), n_a), (char *) SvPV(ST(n+1), n_a), (int) SvIV(ST(n+2))); - } - int isnickflag(server, flag) Irssi::Server server diff --git a/src/perl/common/module.h b/src/perl/common/module.h index e4843174..5456f630 100644 --- a/src/perl/common/module.h +++ b/src/perl/common/module.h @@ -18,7 +18,6 @@ #include "chatnets.h" #include "servers.h" #include "servers-reconnect.h" -#include "servers-redirect.h" #include "servers-setup.h" #include "channels.h" #include "queries.h" |