Mercurial > pidgin.yaz
diff plugins/perl/common/Account.xs @ 6508:cbd24b37350d
[gaim-migrate @ 7025]
Okay, ready for some breakage again? I rewrote the perl loader plugin. All
old scripts are broken, but the new API will be much better. Currently, you
can access accounts and do debug output, and that's it, but adding support
for new things is much easier. Please don't come after me with pitchforks.
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Tue, 19 Aug 2003 21:47:36 +0000 |
parents | |
children | d7e04709be96 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/plugins/perl/common/Account.xs Tue Aug 19 21:47:36 2003 +0000 @@ -0,0 +1,151 @@ +#include "module.h" + +MODULE = Gaim::Account PACKAGE = Gaim::Account PREFIX = gaim_account_ +PROTOTYPES: ENABLE + +Gaim::Connection +gaim_account_connect(account) + Gaim::Account account + +void +gaim_account_disconnect(account) + Gaim::Account account + +void +gaim_account_set_username(account, username) + Gaim::Account account + const char *username + +void +gaim_account_set_password(account, password) + Gaim::Account account + const char *password + +void +gaim_account_set_alias(account, alias) + Gaim::Account account + const char *alias + +void +gaim_account_set_user_info(account, user_info) + Gaim::Account account + const char *user_info + +void +gaim_account_set_buddy_icon(account, buddy_icon) + Gaim::Account account + const char *buddy_icon + +void +gaim_account_set_protocol_id(account, protocol_id) + Gaim::Account account + const char *protocol_id + +void +gaim_account_set_remember_password(account, value) + Gaim::Account account + gboolean value + +void +gaim_account_set_check_mail(account, value) + Gaim::Account account + gboolean value + +void +gaim_account_set_auto_login(account, ui, value) + Gaim::Account account + const char *ui + gboolean value + +void +gaim_account_set_public_ip(account, ip) + Gaim::Account account + const char *ip + +gboolean +gaim_account_is_connected(account) + Gaim::Account account + +const char * +gaim_account_get_username(account) + Gaim::Account account + +const char * +gaim_account_get_password(account) + Gaim::Account account + +const char * +gaim_account_get_alias(account) + Gaim::Account account + +const char * +gaim_account_get_user_info(account) + Gaim::Account account + +const char * +gaim_account_get_buddy_icon(account) + Gaim::Account account + +const char * +gaim_account_get_protocol_id(account) + Gaim::Account account + +Gaim::Connection +gaim_account_get_connection(account) + Gaim::Account account + +gboolean +gaim_account_get_remember_password(account) + Gaim::Account account + +gboolean +gaim_account_get_check_mail(account) + Gaim::Account account + +gboolean +gaim_account_get_auto_login(account, ui) + Gaim::Account account + const char *ui + +const char * +gaim_account_get_public_ip(account) + Gaim::Account account + +void * +handle() +CODE: + RETVAL = gaim_accounts_get_handle(); +OUTPUT: + RETVAL + + +MODULE = Gaim::Account PACKAGE = Gaim::Accounts PREFIX = gaim_accounts_ + +void +gaim_accounts_add(account) + Gaim::Account account + +void +gaim_accounts_remove(account) + Gaim::Account account + + +MODULE = Gaim::Account PACKAGE = Gaim + +void +accounts() +PREINIT: + GList *l; +PPCODE: + for (l = gaim_accounts_get_all(); l != NULL; l = l->next) + XPUSHs(sv_2mortal(gaim_perl_bless_object(l->data, "Gaim::Account"))); + +Gaim::Account +account_find(name, protocol_id) + const char *name + const char *protocol_id +CODE: + RETVAL = gaim_accounts_find_with_prpl_id(name, protocol_id); +OUTPUT: + RETVAL +