diff options
| author | Timo Sirainen <cras@irssi.org> | 2004-01-20 10:57:57 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2004-01-20 10:57:57 +0000 |
| commit | 217283caeaf5fc19e671a56547610ceb42e2ea7b (patch) | |
| tree | 7f2fa9d29fdd2d9bb9f7782f1c928a53cebe70d2 /src/perl/irc | |
| parent | 3ccbd0405b8d3185a143c150a5b42070403fdc36 (diff) | |
| download | irssi-217283caeaf5fc19e671a56547610ceb42e2ea7b.zip | |
isupport patch by David Leadbeater
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@3211 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/irc')
| -rw-r--r-- | src/perl/irc/Irc.xs | 1 | ||||
| -rw-r--r-- | src/perl/irc/Modes.xs | 5 | ||||
| -rw-r--r-- | src/perl/irc/Server.xs | 10 |
3 files changed, 14 insertions, 2 deletions
diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs index 02ab2c6f..3ccce9aa 100644 --- a/src/perl/irc/Irc.xs +++ b/src/perl/irc/Irc.xs @@ -22,6 +22,7 @@ static void perl_irc_server_fill_hash(HV *hv, IRC_SERVER_REC *server) hv_store(hv, "max_msgs_in_cmd", 15, newSViv(server->max_msgs_in_cmd), 0); hv_store(hv, "max_modes_in_cmd", 16, newSViv(server->max_modes_in_cmd), 0); hv_store(hv, "max_whois_in_cmd", 16, newSViv(server->max_whois_in_cmd), 0); + hv_store(hv, "isupport_sent", 13, newSViv(server->isupport_sent), 0); } static void perl_ban_fill_hash(HV *hv, BAN_REC *ban) diff --git a/src/perl/irc/Modes.xs b/src/perl/irc/Modes.xs index 411b07e8..8b880789 100644 --- a/src/perl/irc/Modes.xs +++ b/src/perl/irc/Modes.xs @@ -4,14 +4,15 @@ MODULE = Irssi::Irc::Modes PACKAGE = Irssi::Irc PROTOTYPES: ENABLE void -modes_join(old, mode, channel) +modes_join(server, old, mode, channel) + Irssi::Irc::Server server char *old char *mode int channel PREINIT: char *ret; PPCODE: - ret = modes_join(old, mode, channel); + ret = modes_join(server, old, mode, channel); XPUSHs(sv_2mortal(new_pv(ret))); g_free(ret); diff --git a/src/perl/irc/Server.xs b/src/perl/irc/Server.xs index bcab6f49..74f7a962 100644 --- a/src/perl/irc/Server.xs +++ b/src/perl/irc/Server.xs @@ -129,3 +129,13 @@ CODE: RETVAL = (char *) server_redirect_peek_signal(server, event, args, &redirection); OUTPUT: RETVAL + +char * +server_isupport(server, name) + Irssi::Irc::Server server + char *name +CODE: + RETVAL = (char *) g_hash_table_lookup(server->isupport, name); +OUTPUT: + RETVAL + |