Improved 10-menu.pl

diff --git a/purple/answerscripts.d/10-menu.pl b/purple/answerscripts.d/10-menu.pl
index d055f84eaa7cb6d1f421d21a4852d46f2e3ba8a5..f9bf7f7efed40a5bbe0d6798433a00befa20ae46 100755 (executable)
--- 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 (/^!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/"; }
        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/"; }