Mercurial > pidgin
comparison plugins/perl/perl.c @ 6036:547ba881bc7e
[gaim-migrate @ 6486]
Fix the --login=[NAME] command line argument.
Fix the password prompt when signing on an account with no password set. I
made some similar changes that probably fix problems with the filectl plugin,
using gaim-remote to sign on an account, and signing on an account via perl
script. (The change is calling gaim_account_connect() instead of
serv_login().)
Fix a silly compiler warning.
committer: Tailor Script <tailor@pidgin.im>
author | Mark Doliner <mark@kingant.net> |
---|---|
date | Sat, 05 Jul 2003 22:24:57 +0000 |
parents | 83507b72ae6d |
children | 5239a3b4ab33 |
comparison
equal
deleted
inserted
replaced
6035:8c44020a958e | 6036:547ba881bc7e |
---|---|
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 |