Mercurial > pidgin.yaz
view plugins/perl/common/Conversation_IM.xs @ 10631:18223e71ced7
[gaim-migrate @ 12110]
sf patch #975984, from Gregory C. Harfst
Buddies added from a perl plugin were not being sent to
the server. Also, added a hook to the function that
returns all buddies for a given account.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Wed, 23 Feb 2005 04:31:38 +0000 |
parents | b14a7bc189b8 |
children |
line wrap: on
line source
#include "module.h" MODULE = Gaim::Conversation::IM PACKAGE = Gaim::Conversation::IM PREFIX = gaim_conv_im_ PROTOTYPES: ENABLE Gaim::Conversation::IM new(account, name) Gaim::Account account const char *name CODE: RETVAL = GAIM_CONV_IM(gaim_conversation_new(GAIM_CONV_IM, account, name)); OUTPUT: RETVAL void DESTROY(im) Gaim::Conversation::IM im CODE: gaim_conversation_destroy(gaim_conv_im_get_conversation(im)); Gaim::Conversation gaim_conv_im_get_conversation(im) Gaim::Conversation::IM im void gaim_conv_im_write(im, who, message, flags) Gaim::Conversation::IM im const char *who const char *message int flags CODE: gaim_conv_im_write(im, who, message, flags, time(NULL)); void gaim_conv_im_send(im, message) Gaim::Conversation::IM im const char *message MODULE = Gaim::Conversation::IM PACKAGE = Gaim PREFIX = gaim_ PROTOTYPES: ENABLE void ims() PREINIT: GList *l; PPCODE: for (l = gaim_get_ims(); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(GAIM_CONV_IM(l->data), "Gaim::Conversation"))); }