1 files changed, 34 insertions, 0 deletions
diff --git a/src/perl/xs/Irssi-netsplit.xs b/src/perl/xs/Irssi-netsplit.xs
new file mode 100644
index 00000000..0c1e998f
--- /dev/null
+++ b/src/perl/xs/Irssi-netsplit.xs
@@ -0,0 +1,34 @@
+MODULE = Irssi	PACKAGE = Irssi::Server
+
+Irssi::Netsplit
+netsplit_find(server, nick, address)
+	Irssi::Server server
+	char *nick
+	char *address
+
+Irssi::Nick
+netsplit_find_channel(server, nick, address, channel)
+	Irssi::Server server
+	char *nick
+	char *address
+	char *channel
+
+
+#*******************************
+MODULE = Irssi	PACKAGE = Irssi::Netsplit
+#*******************************
+
+void
+values(netsplit)
+	Irssi::Netsplit netsplit
+PREINIT:
+	HV *hv;
+PPCODE:
+	hv = newHV();
+	hv_store(hv, "nick", 4, new_pv(netsplit->nick), 0);
+	hv_store(hv, "address", 7, new_pv(netsplit->address), 0);
+	hv_store(hv, "server", 6, new_pv(netsplit->server), 0);
+	hv_store(hv, "destserver", 10, new_pv(netsplit->destserver), 0);
+	hv_store(hv, "destroy", 7, newSViv(netsplit->destroy), 0);
+	/*FIXME: add GSList *channels;*/
+	XPUSHs(sv_2mortal(newRV_noinc((SV*)hv)));