From c374e628dcb87fad99a9cfc147884fd8ef7d4632 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sun, 18 Nov 2001 16:27:49 +0000
Subject: [PATCH] Added Irssi::chatnets() and chatnet_find()

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2054 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Server.xs | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs
index 2b214821..2bb992e9 100644
--- a/src/perl/common/Server.xs
+++ b/src/perl/common/Server.xs
@@ -21,6 +21,15 @@ PPCODE:
 		XPUSHs(sv_2mortal(plain_bless(tmp->data, "Irssi::Reconnect")));
 	}
 
+void
+chatnets()
+PREINIT:
+	GSList *tmp;
+PPCODE:
+	for (tmp = chatnets; tmp != NULL; tmp = tmp->next) {
+		XPUSHs(sv_2mortal(irssi_bless((CHATNET_REC *) tmp->data)));
+	}
+
 Irssi::Connect
 server_create_conn(chat_type, dest, port=6667, chatnet=NULL, password=NULL, nick=NULL)
 	int chat_type
@@ -38,6 +47,10 @@ Irssi::Server
 server_find_chatnet(chatnet)
 	char *chatnet
 
+Irssi::Chatnet
+chatnet_find(name)
+	char *name
+
 #*******************************
 MODULE = Irssi::Server	PACKAGE = Irssi::Server  PREFIX = server_
 #*******************************