diff options
Diffstat (limited to 'src/perl/common')
| -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_ #******************************* |