Print usage for karma with no arguments

git-svn-id: https://www.cernu.us/~pdbogen/svn/destult2@67 088b83a4-0077-4247-935c-42ec02c2848b

diff --git a/commands.yaml b/commands.yaml
index 1059a4a..e43884b 100644 (file)
--- a/commands.yaml
+++ b/commands.yaml
@@ -1632,6 +1632,10 @@ KARMAUP: |-
 KARMA: |-
   sub {
     my( $kernel, $heap, $who, $what, $src, $dest, $replypath ) = @_;
+    if( $what =~ /^[[:space:]]*$/ ) {
+      $kernel->post( $src, $replypath, "Usage: Karma {<Victim>,{+,-}<N>}", $dest );
+      return;
+    }
     if( !exists( $heap->{ "karma" } ) ) {
       if( -e "karma.yaml" ) {
         $heap->{ "karma" } = LoadFile( "karma.yaml" );