comparison: plugins/tcl/tcl_cmds.c
plugins/tcl/tcl_cmds.c
- changeset 10740
- a1cb6b819a21
- parent 10738
- 63ca8277c234
- child 10820
- f496d65ab778
equal
deleted
inserted
replaced
| 10739:9c7926312a4d | 10740:a1cb6b819a21 |
|---|---|
| 117 return TCL_ERROR; | 117 return TCL_ERROR; |
| 118 } | 118 } |
| 119 error = Tcl_GetIntFromObj(interp, objv[2], (int *)&account); | 119 error = Tcl_GetIntFromObj(interp, objv[2], (int *)&account); |
| 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 gaim_account_connect(account); |
| 124 else | 124 Tcl_SetIntObj(result, (int)gaim_account_get_connection(account)); |
| 125 Tcl_SetIntObj(result, (int)gaim_account_connect(account)); | |
| 126 break; | 125 break; |
| 127 case CMD_ACCOUNT_CONNECTION: | 126 case CMD_ACCOUNT_CONNECTION: |
| 128 if (objc != 3) { | 127 if (objc != 3) { |
| 129 Tcl_WrongNumArgs(interp, 2, objv, "account"); | 128 Tcl_WrongNumArgs(interp, 2, objv, "account"); |
| 130 return TCL_ERROR; | 129 return TCL_ERROR; |
