im.pidgin.pidgin: 94d88332e1e7b8227ef79d0d74873475069c85f4

[seanegan at pidgin.im]

-----------------------------------------------------------------
Revision: 94d88332e1e7b8227ef79d0d74873475069c85f4
Ancestor: cec0c280a13375cdc15bb2644fceafc4f4181e8a
Author: seanegan at pidgin.im
Date: 2007-12-17T07:34:21
Branch: im.pidgin.pidgin

Modified files:
        libpurple/plugins/perl/common/Prpl.xs

ChangeLog: 

Add send_raw to Perl bindings. Patch from martijn. Fixes #3505

-------------- next part --------------
============================================================
--- libpurple/plugins/perl/common/Prpl.xs	a6518808a5f1de59396ee912f738b225626ed617
+++ libpurple/plugins/perl/common/Prpl.xs	d2a20de2fb6c0620e43ec12285ee93213a379719
@@ -54,3 +54,20 @@ purple_prpl_got_user_login_time(account,
 	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
+