Mercurial > pidgin.yaz

changeset 630:3d2f14064083

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[gaim-migrate @ 640] some small additions committer: Tailor Script <tailor@pidgin.im>
author Eric Warmenhoven <eric@warmenhoven.org>
date Mon, 07 Aug 2000 05:50:17 +0000
parents ce8d8608d05b
children d96b511972fe
files src/perl.c
diffstat 1 files changed, 5 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 */
 	}