Mercurial > pidgin.yaz
changeset 21844:ced3eaff3465
Add send_raw to Perl bindings. Patch from martijn. Fixes #3505
| author | Sean Egan <seanegan@gmail.com> |
|---|---|
| date | Mon, 17 Dec 2007 07:34:21 +0000 |
| parents | a3bc0682e98d |
| children | 378eb1893499 |
| files | libpurple/plugins/perl/common/Prpl.xs |
| diffstat | 1 files changed, 17 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- 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 +