Mercurial > pidgin.yaz

comparison libpurple/plugins/perl/common/Account.xs @ 32495:2f3b391b114f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fix Perl bindings, which apparently were missing the _with_invite functions originally.
author Elliott Sales de Andrade <qulogic@pidgin.im>
date Sat, 03 Sep 2011 23:51:17 +0000
parents 34b02adafd9b
children
comparison
equal deleted inserted replaced
32494:3a19c7068b53 32495:2f3b391b114f
197 void 197 void
198 purple_account_destroy_log(account) 198 purple_account_destroy_log(account)
199 Purple::Account account 199 Purple::Account account
200 200
201 void 201 void
202 purple_account_add_buddies(account, list) 202 purple_account_add_buddies(account, list, message)
203 Purple::Account account 203 Purple::Account account
204 SV * list 204 SV * list
205 const char *message
205 PREINIT: 206 PREINIT:
206 GList *t_GL; 207 GList *t_GL;
207 int i, t_len; 208 int i, t_len;
208 PPCODE: 209 PPCODE:
209 t_GL = NULL; 210 t_GL = NULL;
210 t_len = av_len((AV *)SvRV(list)); 211 t_len = av_len((AV *)SvRV(list));
211 212
212 for (i = 0; i <= t_len; i++) 213 for (i = 0; i <= t_len; i++)
213 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0))); 214 t_GL = g_list_append(t_GL, SvPVutf8_nolen(*av_fetch((AV *)SvRV(list), i, 0)));
214 215
215 purple_account_add_buddies(account, t_GL); 216 purple_account_add_buddies(account, t_GL, message);
216 g_list_free(t_GL); 217 g_list_free(t_GL);
217 218
218 void 219 void
219 purple_account_add_buddy(account, buddy) 220 purple_account_add_buddy(account, buddy, message)
220 Purple::Account account 221 Purple::Account account
221 Purple::BuddyList::Buddy buddy 222 Purple::BuddyList::Buddy buddy
223 const char * message
222 224
223 void 225 void
224 purple_account_change_password(account, a, b) 226 purple_account_change_password(account, a, b)
225 Purple::Account account 227 Purple::Account account
226 const char * a 228 const char * a