aniani/irssi
1
0
Fork 0
mirror of https://github.com/irssi/irssi.git synced 2025-02-02 15:08:01 -05:00
Code

add IRC_CHATNET_REC->usermode to perl chatnet hashes

Browse Source
This commit is contained in:
jesopo 2021-03-17 20:29:07 +00:00
parent bf41bfa2f7
commit a0142ce384
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/perl/irc/Irc.xs
View File

@ -3,6 +3,12 @@
static int initialized = FALSE; static int initialized = FALSE;
static void perl_irc_chatnet_fill_hash(HV *hv, IRC_CHATNET_REC *chatnet)
{
perl_chatnet_fill_hash(hv, (CHATNET_REC *) chatnet);
(void) hv_store(hv, "usermode", 8, new_pv(chatnet->usermode), 0);
}
static void perl_irc_connect_fill_hash(HV *hv, IRC_SERVER_CONNECT_REC *conn) static void perl_irc_connect_fill_hash(HV *hv, IRC_SERVER_CONNECT_REC *conn)
{ {
perl_connect_fill_hash(hv, (SERVER_CONNECT_REC *) conn); perl_connect_fill_hash(hv, (SERVER_CONNECT_REC *) conn);
@ -233,6 +239,9 @@ CODE:
chat_type = chat_protocol_lookup("IRC"); chat_type = chat_protocol_lookup("IRC");
irssi_add_object(module_get_uniq_id("CHATNET", 0),
chat_type, "Irssi::Irc::Chatnet",
(PERL_OBJECT_FUNC) perl_irc_chatnet_fill_hash);
irssi_add_object(module_get_uniq_id("SERVER CONNECT", 0), irssi_add_object(module_get_uniq_id("SERVER CONNECT", 0),
chat_type, "Irssi::Irc::Connect", chat_type, "Irssi::Irc::Connect",
(PERL_OBJECT_FUNC) perl_irc_connect_fill_hash); (PERL_OBJECT_FUNC) perl_irc_connect_fill_hash);

1
src/perl/irc/module.h
View File

@ -1,6 +1,7 @@
#include <irssi/src/perl/common/module.h> #include <irssi/src/perl/common/module.h>
#include <irssi/src/irc/core/irc.h> #include <irssi/src/irc/core/irc.h>
#include <irssi/src/irc/core/irc-chatnets.h>
#include <irssi/src/irc/core/irc-servers.h> #include <irssi/src/irc/core/irc-servers.h>
#include <irssi/src/irc/core/irc-channels.h> #include <irssi/src/irc/core/irc-channels.h>
#include <irssi/src/irc/core/irc-queries.h> #include <irssi/src/irc/core/irc-queries.h>