# HG changeset patch
# User Eric Warmenhoven <eric@warmenhoven.org>
# Date 965627417 0
# Node ID 3d2f140640831ebacc78d83c171fa893bea9985b
# Parent  ce8d8608d05bc8df31e1551d5548ded31a543ede
[gaim-migrate @ 640]
some small additions

committer: Tailor Script <tailor@pidgin.im>

diff -r ce8d8608d05b -r 3d2f14064083 src/perl.c
--- a/src/perl.c	Mon Aug 07 04:37:19 2000 +0000
+++ b/src/perl.c	Mon Aug 07 05:50:17 2000 +0000
@@ -352,11 +352,14 @@
 	} else if (!strncasecmp(command, "signoff", 7)) {
 		signoff();
 	} else if (!strncasecmp(command, "away", 4)) {
-		/* FIXME */
+		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)) {
-		/* FIXME */
+		serv_set_idle(atoi(SvPV(ST(1), junk)));
 	} else if (!strncasecmp(command, "warn", 4)) {
 		/* FIXME */
 	}