From fcb1374e40ebd2b58c1ebf957a76fa5416034431 Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Wed, 18 Oct 2000 20:50:12 +0000
Subject: fixes

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@768 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/common/Server.xs | 42 ++++++++++++++++++++++++++++++++++++++++++
 src/perl/common/Window.xs | 14 +++++++++++++-
 src/perl/irc/IrcServer.xs | 23 +++++++++++++++++++++++
 3 files changed, 78 insertions(+), 1 deletion(-)

(limited to 'src/perl')

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_
 #*******************************
diff --git a/src/perl/common/Window.xs b/src/perl/common/Window.xs
index 7a516020..579fef71 100644
--- a/src/perl/common/Window.xs
+++ b/src/perl/common/Window.xs
@@ -52,7 +52,7 @@ CODE:
 	signal_emit("send command", 3, cmd, server, item);
 
 void
-printtext(server, channel, level, str)
+printtext(server, channel, str, level)
 	Irssi::Server server
 	char *channel
 	int level
@@ -141,3 +141,15 @@ command(item, cmd)
 	char *cmd
 CODE:
 	signal_emit("send command", 3, cmd, item->server, item);
+
+#*******************************
+MODULE = Irssi	PACKAGE = Irssi::Channel
+#*******************************
+
+void
+print(channel, str, level=MSGLEVEL_CLIENTNOTICE)
+	Irssi::Channel channel
+	int level
+	char *str
+CODE:
+	printtext(channel->server, channel->name, level, str);
diff --git a/src/perl/irc/IrcServer.xs b/src/perl/irc/IrcServer.xs
index 5f609605..2d4108e9 100644
--- a/src/perl/irc/IrcServer.xs
+++ b/src/perl/irc/IrcServer.xs
@@ -18,6 +18,29 @@ char *
 irc_server_get_channels(server)
 	Irssi::Irc::Server server
 
+void
+send_raw(server, cmd)
+	Irssi::Irc::Server server
+	char *cmd
+CODE:
+	irc_send_cmd(server, cmd);
+
+void
+send_raw_now(server, cmd)
+	Irssi::Irc::Server server
+	char *cmd
+CODE:
+	irc_send_cmd_now(server, cmd);
+
+void
+send_raw_split(server, cmd, nickarg, max_nicks)
+	Irssi::Irc::Server server
+	char *cmd
+	int nickarg
+	int max_nicks
+CODE:
+	irc_send_cmd_split(server, cmd, nickarg, max_nicks);
+
 MODULE = Irssi::Irc	PACKAGE = Irssi::Irc::Connect  PREFIX = irc_server_
 
 void
-- 
cgit v1.2.3