Merged silc_1_0_branch to trunk.

[silc.git] / apps / irssi / src / perl / silc / Server.xs

diff --git a/apps/irssi/src/perl/silc/Server.xs b/apps/irssi/src/perl/silc/Server.xs
new file mode 100644 (file)
index 0000000..fbe45cf
--- /dev/null
+++ b/apps/irssi/src/perl/silc/Server.xs
@@ -0,0 +1,14 @@
+#include "module.h"
+
+MODULE = Irssi::Silc::Server   PACKAGE = Irssi::Silc::Server   PREFIX = silc_server_
+PROTOTYPES: ENABLE
+
+void
+silc_server_get_channels(server)
+       Irssi::Silc::Server server
+PREINIT:
+       char *ret;
+PPCODE:
+       ret = silc_server_get_channels(server);
+       XPUSHs(sv_2mortal(new_pv(ret)));
+       g_free(ret);