Mercurial > pidgin.yaz
comparison plugins/tcl/tcl_cmds.c @ 10401:3e4ecbdf8d0a
[gaim-migrate @ 11638]
Stuff compiles again, if that's what you wanted stuff to do. It works a bit
too. I fixed one crash in oscar, only to reveal another that I didnn't fix
(tooltips).
Most protocols still need updating to actually log in in the specified state,
TCL needs some love for gaim_account_connect, perl probably does too but that
needs more love anyway. The reconnect plugin could be more intelligent too, as
could gaim-remote.
committer: Tailor Script <tailor@pidgin.im>
author | Stu Tomlinson <stu@nosnilmot.com> |
---|---|
date | Tue, 21 Dec 2004 01:48:30 +0000 |
parents | 3eb03f22e082 |
children | 0e886a234d92 |
comparison
equal
deleted
inserted
replaced
10400:6a043ae92db6 | 10401:3e4ecbdf8d0a |
---|---|
119 if (error || !tcl_validate_account(account, interp)) | 119 if (error || !tcl_validate_account(account, interp)) |
120 return TCL_ERROR; | 120 return TCL_ERROR; |
121 if (gaim_account_is_connected(account)) | 121 if (gaim_account_is_connected(account)) |
122 Tcl_SetIntObj(result, (int)gaim_account_get_connection(account)); | 122 Tcl_SetIntObj(result, (int)gaim_account_get_connection(account)); |
123 else | 123 else |
124 Tcl_SetIntObj(result, (int)gaim_account_connect(account)); | 124 #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 gaim_account_get_status(account, "online"))); | |
125 break; | 127 break; |
126 case CMD_ACCOUNT_CONNECTION: | 128 case CMD_ACCOUNT_CONNECTION: |
127 if (objc != 3) { | 129 if (objc != 3) { |
128 Tcl_WrongNumArgs(interp, 2, objv, "account"); | 130 Tcl_WrongNumArgs(interp, 2, objv, "account"); |
129 return TCL_ERROR; | 131 return TCL_ERROR; |