Improved 10-menu.pl
authorHarvie <tomas@mudrunka.cz>
Mon, 21 Feb 2011 11:50:45 +0000 (12:50 +0100)
committerHarvie <tomas@mudrunka.cz>
Mon, 21 Feb 2011 11:50:45 +0000 (12:50 +0100)
purple/answerscripts.d/10-menu.pl

index d055f84..f9bf7f7 100755 (executable)
@@ -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/"; }
This page took 0.180587 seconds and 4 git commands to generate.