Mercurial > pidgin.yaz

comparison plugins/tcl/tcl_cmds.c @ 10738:55af3fa46329

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 12340] Lots of changes here. A lot of it stems from chaning gaim_account_connect() so that it DOES NOT have the GaimStatus parameter. It will attempt to use the GaimStatus of your account from the last time it was connected (which doesn't work quite right yet). My goal here was to save and load each account's GaimStatuses to accounts.xml, so if you were "away" when you signed off then you'll be "away" when you sign back on. Not quite there yet. committer: Tailor Script <tailor@pidgin.im>
author Mark Doliner <mark@kingant.net>
date Sat, 26 Mar 2005 20:08:43 +0000
parents 0e886a234d92
children 94cc67130789
comparison
equal deleted inserted replaced
10737:b7f0bc436179 10738:55af3fa46329
120 if (error || !tcl_validate_account(account, interp)) 120 if (error || !tcl_validate_account(account, interp))
121 return TCL_ERROR; 121 return TCL_ERROR;
122 if (gaim_account_is_connected(account)) 122 if (gaim_account_is_connected(account))
123 Tcl_SetIntObj(result, (int)gaim_account_get_connection(account)); 123 Tcl_SetIntObj(result, (int)gaim_account_get_connection(account));
124 else 124 else
125 #warning Someone who knows TCL (Ethan!) fix this so TCL plugins can specify the status 125 Tcl_SetIntObj(result, (int)gaim_account_connect(account));
126 Tcl_SetIntObj(result, (int)gaim_account_connect(account,
127 gaim_account_get_status(account, "online")));
128 break; 126 break;
129 case CMD_ACCOUNT_CONNECTION: 127 case CMD_ACCOUNT_CONNECTION:
130 if (objc != 3) { 128 if (objc != 3) {
131 Tcl_WrongNumArgs(interp, 2, objv, "account"); 129 Tcl_WrongNumArgs(interp, 2, objv, "account");
132 return TCL_ERROR; 130 return TCL_ERROR;