Mercurial > pidgin.yaz
view libgaim/plugins/perl/common/Pounce.xs @ 14364:338ac096e322
[gaim-migrate @ 17070]
Disabled GTK+ components of the Perl plugin (we'll no longer support gtk-perl prefs frames until this is refactored into a gtkgaim plugin somehow).
Fix gaim_util_fetch_url and plug some leaks.
I haven't successfully tested gaim_util_fetch_url from perl yet - it doesn't seem to actually pass the retrieved text to the plugin sub correctly yet.
The syntax for calling gaim_util_fetch_url() from perl is also funky and should be made more consistent to the C function.
committer: Tailor Script <tailor@pidgin.im>
author | Daniel Atallah <daniel.atallah@gmail.com> |
---|---|
date | Mon, 28 Aug 2006 20:27:03 +0000 |
parents | 60b1bc8dbf37 |
children | b1fcd2fc903a |
line wrap: on
line source
#include "module.h" MODULE = Gaim::Pounce PACKAGE = Gaim::Pounce PREFIX = gaim_pounce_ PROTOTYPES: ENABLE void gaim_pounce_action_register(pounce, name) Gaim::Pounce pounce const char *name void gaim_pounce_destroy(pounce) Gaim::Pounce pounce void gaim_pounce_destroy_all_by_account(account) Gaim::Account account void * gaim_pounce_get_data(pounce) Gaim::Pounce pounce Gaim::PounceEvent gaim_pounce_get_events(pounce) Gaim::Pounce pounce const char * gaim_pounce_get_pouncee(pounce) Gaim::Pounce pounce Gaim::Account gaim_pounce_get_pouncer(pounce) Gaim::Pounce pounce gboolean gaim_pounce_get_save(pounce) Gaim::Pounce pounce void gaim_pounce_set_data(pounce, data) Gaim::Pounce pounce void * data void gaim_pounce_set_events(pounce, events) Gaim::Pounce pounce Gaim::PounceEvent events void gaim_pounce_set_pouncee(pounce, pouncee) Gaim::Pounce pounce const char *pouncee void gaim_pounce_set_pouncer(pounce, pouncer) Gaim::Pounce pounce Gaim::Account pouncer void gaim_pounce_set_save(pounce, save) Gaim::Pounce pounce gboolean save MODULE = Gaim::Pounce PACKAGE = Gaim::Pounces PREFIX = gaim_pounces_ PROTOTYPES: ENABLE void gaim_pounces_get_all() PREINIT: GList *l; PPCODE: for (l = gaim_pounces_get_all(); l != NULL; l = l->next) { XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Pounce"))); } void * gaim_pounces_get_handle() void gaim_pounces_init() gboolean gaim_pounces_load() void gaim_pounces_uninit() void gaim_pounces_unregister_handler(ui) const char *ui