Mercurial > pidgin.yaz
diff src/perl.c @ 960:fa681641643d
[gaim-migrate @ 970]
*** MULTIPLE-CONNECTIONS ***
committer: Tailor Script <tailor@pidgin.im>
author | Eric Warmenhoven <eric@warmenhoven.org> |
---|---|
date | Tue, 10 Oct 2000 00:02:02 +0000 |
parents | 1d021b2eb65d |
children | 2cd7b73e2c9a |
line wrap: on
line diff
--- a/src/perl.c Mon Oct 09 23:56:33 2000 +0000 +++ b/src/perl.c Tue Oct 10 00:02:02 2000 +0000 @@ -298,15 +298,19 @@ XST_mPV(0, VERSION); break; case 1: + /* FIXME: no more current_user XST_mPV(0, current_user->username); + */ break; case 2: + /* FIXME: more per-connection issues if (!blist) XST_mPV(0, "Offline"); else if (!USE_OSCAR) XST_mPV(0, "TOC"); else XST_mPV(0, "Oscar"); + */ break; default: XST_mPV(0, "Error2"); @@ -401,12 +405,15 @@ command = SvPV(ST(0), junk); if (!command) XSRETURN(0); if (!strncasecmp(command, "signon", 6)) { + /* FIXME if (!blist) { show_login(); dologin(0, 0); } + */ } else if (!strncasecmp(command, "signoff", 7)) { - signoff(); + /* FIXME: we need to figure out how this works for multiple connections + * signoff(); */ } else if (!strncasecmp(command, "away", 4)) { char *message = SvPV(ST(1), junk); struct away_message a; @@ -415,7 +422,9 @@ } else if (!strncasecmp(command, "back", 4)) { do_im_back(); } else if (!strncasecmp(command, "idle", 4)) { + /* FIXME serv_set_idle(atoi(SvPV(ST(1), junk))); + */ } else if (!strncasecmp(command, "warn", 4)) { char *name = SvPV(ST(1), junk); serv_warn(name, 0);