1 files changed, 40 insertions, 0 deletions
diff --git a/src/perl/xs/Irssi-bans.xs b/src/perl/xs/Irssi-bans.xs
new file mode 100644
index 00000000..6d76bb5d
--- /dev/null
+++ b/src/perl/xs/Irssi-bans.xs
@@ -0,0 +1,40 @@
+MODULE = Irssi  PACKAGE = Irssi
+
+void
+ban_set_type(type)
+	char *type
+
+#*******************************
+MODULE = Irssi  PACKAGE = Irssi::Channel
+#*******************************
+
+char *
+ban_get_mask(channel, nick)
+	Irssi::Channel channel
+	char *nick
+
+void
+ban_set(channel, bans)
+	Irssi::Channel channel
+	char *bans
+
+void
+ban_remove(channel, ban)
+	Irssi::Channel channel
+	char *ban
+
+#*******************************
+MODULE = Irssi	PACKAGE = Irssi::Ban
+#*******************************
+
+void
+values(ban)
+	Irssi::Ban ban
+PREINIT:
+	HV *hv;
+PPCODE:
+	hv = newHV();
+	hv_store(hv, "ban", 3, new_pv(ban->ban), 0);
+	hv_store(hv, "setby", 5, new_pv(ban->setby), 0);
+	hv_store(hv, "time", 4, newSViv(ban->time), 0);
+	XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));