libpurple/plugins/perl/common/Account.xs

changeset 32318
a337b83f8335
parent 25122
56e73606e2b2
child 34040
f5417957a1bc
equal deleted inserted replaced
32317:59543c9e822a 32318:a337b83f8335
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

mercurial