diff src/perl.c @ 628:a46a68d46d2b

[gaim-migrate @ 638] transparent smileys. don't change themes during a conversation. plus perl updates. committer: Tailor Script <[e-mail]>

--- a/src/perl.c	Mon Aug 07 02:15:18 2000 +0000
+++ b/src/perl.c	Mon Aug 07 02:48:58 2000 +0000
@@ -345,11 +345,20 @@
 	command = SvPV(ST(0), junk);
 	if (!command) XSRETURN(0);
 	if        (!strncasecmp(command, "signon", 6)) {
+		if (!blist) {
+			show_login();
+			dologin(0, 0);
+		}
 	} else if (!strncasecmp(command, "signoff", 7)) {
+		signoff();
 	} else if (!strncasecmp(command, "away", 4)) {
+		/* FIXME */
 	} else if (!strncasecmp(command, "back", 4)) {
+		do_im_back();
 	} else if (!strncasecmp(command, "idle", 4)) {
+		/* FIXME */
 	} else if (!strncasecmp(command, "warn", 4)) {
+		/* FIXME */
 	}
 
 	XSRETURN(0);