From abcb44f835c5c5523709cc1ee76809bb6c749ffc Mon Sep 17 00:00:00 2001
From: Timo Sirainen <cras@irssi.org>
Date: Sun, 7 Jan 2001 09:54:21 +0000
Subject: perl updates

git-svn-id: http://svn.irssi.org/repos/irssi/trunk@1089 dbcabf3a-b0e7-0310-adc4-f8d773084564
---
 src/perl/irc/Dcc.xs | 30 ++++++++++++++++++++++++------
 1 file changed, 24 insertions(+), 6 deletions(-)

(limited to 'src/perl/irc/Dcc.xs')

diff --git a/src/perl/irc/Dcc.xs b/src/perl/irc/Dcc.xs
index 4a68f4e1..222c80e4 100644
--- a/src/perl/irc/Dcc.xs
+++ b/src/perl/irc/Dcc.xs
@@ -22,22 +22,40 @@ dcc_find_by_port(nick, port)
 	char *nick
 	int port
 
+#*******************************
+MODULE = Irssi::Irc  PACKAGE = Irssi::Windowitem PREFIX = item_
+#*******************************
+
+Irssi::Irc::Dcc
+item_get_dcc(item)
+	Irssi::Windowitem item
+
+#*******************************
+MODULE = Irssi::Irc  PACKAGE = Irssi::Irc::Server
+#*******************************
+
 void
-dcc_ctcp_message(server, target, chat, notice, msg)
+dcc_ctcp_message(server, target, notice, msg)
 	Irssi::Irc::Server server
 	char *target
-	Irssi::Irc::Dcc chat
 	int notice
 	char *msg
-
-Irssi::Irc::Dcc
-item_get_dcc(item)
-	void *item
+CODE:
+	dcc_ctcp_message(server, target, NULL, notice, msg);
 
 #*******************************
 MODULE = Irssi::Irc  PACKAGE = Irssi::Irc::Dcc  PREFIX = dcc_
 #*******************************
 
+void
+dcc_ctcp_message(chat, target, notice, msg)
+	Irssi::Irc::Dcc chat
+	char *target
+	int notice
+	char *msg
+CODE:
+	dcc_ctcp_message(chat->server, target, chat, notice, msg);
+
 void
 dcc_destroy(dcc)
 	Irssi::Irc::Dcc dcc
-- 
cgit v1.2.3