# HG changeset patch
# User Sean Egan <seanegan@gmail.com>
# Date 1197876861 0
# Node ID ced3eaff346518c5c7608e3897be41479657dd69
# Parent  a3bc0682e98ddcb259268793ad5628db365e5d0a
Add send_raw to Perl bindings. Patch from martijn. Fixes #3505

diff -r a3bc0682e98d -r ced3eaff3465 libpurple/plugins/perl/common/Prpl.xs
--- a/libpurple/plugins/perl/common/Prpl.xs	Mon Dec 17 07:29:39 2007 +0000
+++ b/libpurple/plugins/perl/common/Prpl.xs	Mon Dec 17 07:34:21 2007 +0000
@@ -54,3 +54,20 @@
 	Purple::Account account
 	const char *name
 	time_t login_time
+
+int
+purple_prpl_send_raw(gc, str)
+	Purple::Connection gc
+	const char *str
+PREINIT:
+	PurplePluginProtocolInfo *prpl_info;
+CODE:
+	prpl_info = PURPLE_PLUGIN_PROTOCOL_INFO(gc->prpl);
+	if (prpl_info && prpl_info->send_raw != NULL) {
+		RETVAL = prpl_info->send_raw(gc, str, strlen(str));
+	} else {
+		RETVAL = 0;
+	}
+OUTPUT:
+	RETVAL
+