Mercurial > pidgin.yaz

comparison libpurple/plugins/perl/common/Prpl.xs @ 21844:ced3eaff3465

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 4b33d4185342
children 1e5b69e67677
comparison
equal deleted inserted replaced
21843:a3bc0682e98d 21844:ced3eaff3465
52 void 52 void
53 purple_prpl_got_user_login_time(account, name, login_time) 53 purple_prpl_got_user_login_time(account, name, login_time)
54 Purple::Account account 54 Purple::Account account
55 const char *name 55 const char *name
56 time_t login_time 56 time_t login_time
57
58 int
59 purple_prpl_send_raw(gc, str)
60 Purple::Connection gc
61 const char *str
62 PREINIT:
63 PurplePluginProtocolInfo *prpl_info;
64 CODE:
65 prpl_info = PURPLE_PLUGIN_PROTOCOL_INFO(gc->prpl);
66 if (prpl_info && prpl_info->send_raw != NULL) {
67 RETVAL = prpl_info->send_raw(gc, str, strlen(str));
68 } else {
69 RETVAL = 0;
70 }
71 OUTPUT:
72 RETVAL
73