view plugins/perl/common/Prpl.xs @ 11204:a015b1cb7368

[gaim-migrate @ 13332] *** empty log message *** committer: Tailor Script <tailor@pidgin.im>
author Adam Warrington <awarring>
date Mon, 08 Aug 2005 02:53:31 +0000
parents 134d0001983d
children ecbbe6d18b0d
line wrap: on
line source


#include "module.h"

/* TODO
gaim_prpl_got_account_statu(s) ... variable arguments lists suck.

*/

MODULE = Gaim::Prpl  PACKAGE = Gaim::Find  PREFIX = gaim_find_
PROTOTYPES: ENABLE

Gaim::Plugin
gaim_find_prpl(id)
	const char *id


MODULE = Gaim::Prpl  PACKAGE = Gaim::Prpl  PREFIX = gaim_prpl_
PROTOTYPES: ENABLE


void 
gaim_prpl_change_account_status(account, old_status, new_status)
	Gaim::Account account
	Gaim::Status old_status
	Gaim::Status new_status

void
gaim_prpl_get_statuses(account, presence)
	Gaim::Account account
	Gaim::Presence presence
PREINIT:
        GList *l;
PPCODE:
        for (l = gaim_prpl_get_statuses(account,presence); l != NULL; l = l->next) {
                XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::ListItem")));
        }



void 
gaim_prpl_got_account_idle(account, idle, idle_time)
	Gaim::Account account
	gboolean idle
	time_t idle_time

void 
gaim_prpl_got_account_login_time(account, login_time)
	Gaim::Account account
	time_t login_time

void 
gaim_prpl_got_account_warning_level(account, username, level)
	Gaim::Account account
	const char *username
	unsigned int level

void 
gaim_prpl_got_user_idle(account, name, idle, idle_time)
	Gaim::Account account
	const char *name
	gboolean idle
	time_t idle_time

void 
gaim_prpl_got_user_login_time(account, name, login_time)
	Gaim::Account account
	const char *name
	time_t login_time

void 
gaim_prpl_got_user_warning_level(account, name, level)
	Gaim::Account account
	const char *name
	unsigned int level