From a0142ce38463e3835ff67e14efcafefdd6d4a084 Mon Sep 17 00:00:00 2001
From: jesopo <github@lolnerd.net>
Date: Wed, 17 Mar 2021 20:29:07 +0000
Subject: [PATCH] add IRC_CHATNET_REC->usermode to perl chatnet hashes

---
 src/perl/irc/Irc.xs   | 9 +++++++++
 src/perl/irc/module.h | 1 +
 2 files changed, 10 insertions(+)

diff --git a/src/perl/irc/Irc.xs b/src/perl/irc/Irc.xs
index f973da22..7ee47180 100644
--- a/src/perl/irc/Irc.xs
+++ b/src/perl/irc/Irc.xs
@@ -3,6 +3,12 @@
 
 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)
 {
 	perl_connect_fill_hash(hv, (SERVER_CONNECT_REC *) conn);
@@ -233,6 +239,9 @@ CODE:
 
 	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),
 			 chat_type, "Irssi::Irc::Connect",
 			 (PERL_OBJECT_FUNC) perl_irc_connect_fill_hash);
diff --git a/src/perl/irc/module.h b/src/perl/irc/module.h
index 71801419..3dcfb065 100644
--- a/src/perl/irc/module.h
+++ b/src/perl/irc/module.h
@@ -1,6 +1,7 @@
 #include <irssi/src/perl/common/module.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-channels.h>
 #include <irssi/src/irc/core/irc-queries.h>