comparison src/perl.c @ 630:3d2f14064083

[gaim-migrate @ 640] some small additions committer: Tailor Script <[e-mail]>

629:ce8d8608d05b

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

630:3d2f14064083

			dologin(0, 0);
		}
	} else if (!strncasecmp(command, "signoff", 7)) {
		signoff();
	} else if (!strncasecmp(command, "away", 4)) {
		char *message = SvPV(ST(1), junk);
		struct away_message a;
		g_snprintf(a.message, sizeof(a.message), "%s", message);
		do_away_message(NULL, &a);
	} else if (!strncasecmp(command, "back", 4)) {
		do_im_back();
	} else if (!strncasecmp(command, "idle", 4)) {
		serv_set_idle(atoi(SvPV(ST(1), junk)));
	} else if (!strncasecmp(command, "warn", 4)) {
		/* FIXME */
	}

	XSRETURN(0);