comparison: plugins/perl/perl.c
plugins/perl/perl.c
- changeset 6036
- 285e48913c72
- parent 5922
- 808c73b7393e
- child 6063
- 8fbafa2e1846
equal
deleted
inserted
replaced
| 6035:b245be9cbe3b | 6036:285e48913c72 |
|---|---|
| 737 command = SvPV(ST(0), junk); | 737 command = SvPV(ST(0), junk); |
| 738 if (!command) XSRETURN(0); | 738 if (!command) XSRETURN(0); |
| 739 if (!strncasecmp(command, "signon", 6)) { | 739 if (!strncasecmp(command, "signon", 6)) { |
| 740 int index = SvIV(ST(1)); | 740 int index = SvIV(ST(1)); |
| 741 if (g_list_nth_data(gaim_accounts_get_all(), index)) | 741 if (g_list_nth_data(gaim_accounts_get_all(), index)) |
| 742 serv_login(g_list_nth_data(gaim_accounts_get_all(), index)); | 742 gaim_account_connect(g_list_nth_data(gaim_accounts_get_all(), index)); |
| 743 } else if (!strncasecmp(command, "signoff", 7)) { | 743 } else if (!strncasecmp(command, "signoff", 7)) { |
| 744 GaimConnection *gc = (GaimConnection *)SvIV(ST(1)); | 744 GaimConnection *gc = (GaimConnection *)SvIV(ST(1)); |
| 745 if (g_list_find(gaim_connections_get_all(), gc)) | 745 if (g_list_find(gaim_connections_get_all(), gc)) |
| 746 gaim_connection_disconnect(gc); | 746 gaim_connection_disconnect(gc); |
| 747 else | 747 else |
