From 43bde8b4bec9f5c8dd13ca799ddae4a9e741b630 Mon Sep 17 00:00:00 2001 From: Harvie Date: Mon, 21 Feb 2011 12:50:45 +0100 Subject: [PATCH] Improved 10-menu.pl --- purple/answerscripts.d/10-menu.pl | 2 ++ 1 file changed, 2 insertions(+) diff --git a/purple/answerscripts.d/10-menu.pl b/purple/answerscripts.d/10-menu.pl index d055f84..f9bf7f7 100755 --- a/purple/answerscripts.d/10-menu.pl +++ b/purple/answerscripts.d/10-menu.pl @@ -8,6 +8,8 @@ given ($ENV{ANSW_MSG}) { when (/^!help$/) { print qx{ grep -o 'when \(/[^\$/]*' "$0" | grep -o '!.*' | tr '\n' ',' }; } when (/^!ping$/) { print "PONG"; } when (/^!whoami$/) { print "You are: $ENV{ANSW_FROM}"; } + when (/^!whoareyou$/) { print "Hello, my name is $ENV{ANSW_LOCAL_NAME} ;-)"; } + when (/^!version$/) { print "$ENV{ANSW_AGENT} $ENV{ANSW_AGENT_VERSION}"; } when (/^!status$/) { print "[$ENV{ANSW_STATUS}] $ENV{ANSW_STATUS_MSG}"; } when (/^!(reboot|reset|restart|halt)$/) { print "Broadcast message: The system is going down for reboot NOW !!"; } when (/^!google/) { print "UTFG Yourself: http://google.com/"; } -- 2.30.2