comparison src/perl.c @ 749:94edd99b7302

[gaim-migrate @ 759] la la la. i suppose sooner or later i should document how to write a perl script. committer: Tailor Script <[e-mail]>

748:c32d4fae9bbd

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

749:94edd99b7302

	} 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)) {
		char *name = SvPV(ST(1), junk);
		serv_warn(name, 0);
	}

	XSRETURN(0);
}