Mercurial > pidgin
changeset 6523:d7e04709be96
[gaim-migrate @ 7040]
Fixed a perl function call, and changed gaim_account_set_user_info to
update the server when called from a perl script.
committer: Tailor Script <tailor@pidgin.im>
| author | Christian Hammond <chipx86@chipx86.com> |
|---|---|
| date | Wed, 20 Aug 2003 10:38:41 +0000 |
| parents | 0c5233faceb8 |
| children | 2d9857a0d8a3 |
| files | plugins/perl/common/Account.xs plugins/perl/common/module.h plugins/perl/perl.c |
| diffstat | 3 files changed, 5 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/plugins/perl/common/Account.xs Wed Aug 20 10:28:14 2003 +0000 +++ b/plugins/perl/common/Account.xs Wed Aug 20 10:38:41 2003 +0000 @@ -30,6 +30,9 @@ gaim_account_set_user_info(account, user_info) Gaim::Account account const char *user_info +CODE: + gaim_account_set_user_info(account, user_info); + serv_set_info(gaim_account_get_connection(account), user_info); void gaim_account_set_buddy_icon(account, buddy_icon)
--- a/plugins/perl/common/module.h Wed Aug 20 10:28:14 2003 +0000 +++ b/plugins/perl/common/module.h Wed Aug 20 10:38:41 2003 +0000 @@ -14,6 +14,7 @@ #include "account.h" #include "connection.h" #include "debug.h" +#include "server.h" typedef GaimAccount *Gaim__Account; typedef GaimConnection *Gaim__Connection;
--- a/plugins/perl/perl.c Wed Aug 20 10:28:14 2003 +0000 +++ b/plugins/perl/perl.c Wed Aug 20 10:38:41 2003 +0000 @@ -140,7 +140,7 @@ "eval $strin;" "if($@){" /*" #something went wrong\n"*/ - "GAIM::print(\"Errors loading file $f_name:\\n\",\"$@\");" + "Gaim::debug(\"perl\", \"Errors loading file $f_name:\\n\",\"$@\");" "return 1;" "}" "return 0;"