diff options
| author | Timo Sirainen <cras@irssi.org> | 2001-11-18 16:27:49 +0000 |
|---|---|---|
| committer | cras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564> | 2001-11-18 16:27:49 +0000 |
| commit | c374e628dcb87fad99a9cfc147884fd8ef7d4632 (patch) | |
| tree | 175900cc8acebe5740374182975b831ecc61a32a /src/perl | |
| parent | 51db872da004bf9d2f8bb92c6636bee20d122ee1 (diff) | |
| download | irssi-c374e628dcb87fad99a9cfc147884fd8ef7d4632.zip | |
Added Irssi::chatnets() and chatnet_find()
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@2054 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl')
| -rw-r--r-- | src/perl/common/Server.xs | 13 |
1 files changed, 13 insertions, 0 deletions
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_ #******************************* |