summaryrefslogtreecommitdiff
path: root/src/perl/common/Server.xs
diff options
context:
space:
mode:
authorTimo Sirainen <cras@irssi.org>2000-10-18 20:50:12 +0000
committercras <cras@dbcabf3a-b0e7-0310-adc4-f8d773084564>2000-10-18 20:50:12 +0000
commitfcb1374e40ebd2b58c1ebf957a76fa5416034431 (patch)
tree74be402eb1eeb1c4742e9c5955c8d8c4e7ed8d31 /src/perl/common/Server.xs
parentac6bfeba1f83a205e1516eb6166ed2d79c9b6a54 (diff)
downloadirssi-fcb1374e40ebd2b58c1ebf957a76fa5416034431.zip
fixes
git-svn-id: http://svn.irssi.org/repos/irssi/trunk@768 dbcabf3a-b0e7-0310-adc4-f8d773084564
Diffstat (limited to 'src/perl/common/Server.xs')
-rw-r--r--src/perl/common/Server.xs42
1 files changed, 42 insertions, 0 deletions
diff --git a/src/perl/common/Server.xs b/src/perl/common/Server.xs
index c3078485..d7b49eee 100644
--- a/src/perl/common/Server.xs
+++ b/src/perl/common/Server.xs
@@ -101,6 +101,48 @@ CODE:
(char *) SvPV(ST(n), n_a), (char *) SvPV(ST(n+1), n_a), (int) SvIV(ST(n+2)));
}
+void
+channels_join(server, data, automatic)
+ Irssi::Server server
+ char *data
+ int automatic
+CODE:
+ server->channels_join(server, data, automatic);
+
+int
+isnickflag(server, flag)
+ Irssi::Server server
+ char flag
+CODE:
+ RETVAL = server->isnickflag(flag);
+OUTPUT:
+ RETVAL
+
+int
+ischannel(server, flag)
+ Irssi::Server server
+ char flag
+CODE:
+ RETVAL = server->ischannel(flag);
+OUTPUT:
+ RETVAL
+
+char *
+get_nick_flags(server)
+ Irssi::Server server
+CODE:
+ RETVAL = (char *) server->get_nick_flags();
+OUTPUT:
+ RETVAL
+
+void
+send_message(server, target, msg)
+ Irssi::Server server
+ char *target
+ char *msg
+CODE:
+ server->send_message(server, target, msg);
+
#*******************************
MODULE = Irssi PACKAGE = Irssi::Connect PREFIX = server_
#*******************************