# HG changeset patch
# User Christian Hammond <chipx86@chipx86.com>
# Date 1061375921 0
# Node ID d7e04709be961ea76a216304957bc04d8d237404
# Parent  0c5233faceb8e39ec8bdc1ece8e3d5524b6f66ae
[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>

diff -r 0c5233faceb8 -r d7e04709be96 plugins/perl/common/Account.xs
--- 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)
diff -r 0c5233faceb8 -r d7e04709be96 plugins/perl/common/module.h
--- 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;
diff -r 0c5233faceb8 -r d7e04709be96 plugins/perl/perl.c
--- 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;"