Mercurial > pidgin.yaz
comparison plugins/tcl/tcl_cmds.c @ 10738:55af3fa46329
[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; |