comparison 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]>

627:da0a1238874d

	items = 0;

	command = SvPV(ST(0), junk);
	if (!command) XSRETURN(0);
	if        (!strncasecmp(command, "signon", 6)) {
	} else if (!strncasecmp(command, "signoff", 7)) {
	} else if (!strncasecmp(command, "away", 4)) {
	} else if (!strncasecmp(command, "back", 4)) {
	} else if (!strncasecmp(command, "idle", 4)) {
	} else if (!strncasecmp(command, "warn", 4)) {
	}

	XSRETURN(0);
}

628:a46a68d46d2b

	items = 0;

	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);
}