X-Git-Url: http://git.harvie.cz/?p=mirrors%2Flibpurple-core-answerscripts.git;a=blobdiff_plain;f=purple%2Fanswerscripts.d%2Fmenu.pl;fp=purple%2Fanswerscripts.d%2Fmenu.pl;h=c2f48d62673797abb150886ce9b9ead3828bae96;hp=0000000000000000000000000000000000000000;hb=b44d7b66f2faa75e72c5bb5435bdb83c8bd5da2a;hpb=30e27dcddb95e6147ea4e24080f38ea2f05988a1

diff --git a/purple/answerscripts.d/menu.pl b/purple/answerscripts.d/menu.pl
new file mode 100755
index 0000000..c2f48d6
--- /dev/null
+++ b/purple/answerscripts.d/menu.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+#Just for you to see that you can use almost any language :-)
+use strict;
+use warnings;
+use Switch;
+
+switch ($ENV{PURPLE_MSG}) {
+	case /^!help$/	{ print "What did you expected? A help?! :-P"; }
+	case /^!ping$/	{ print "PONG"; }
+	case /^!whoami$/	{ print "You are: $ENV{PURPLE_FROM}"; }
+	case /^!(reboot|reset|restart|halt)$/	{ print "Broadcast message: The system is going down for reboot NOW !!"; }
+	case /^!google/	{ print "UTFG Yourself: http://google.com/"; }
+	case /^!uptime$/	{ print qx{uptime}; }
+	case /^!date$/	{ print qx{date}; }
+}