From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Wed, 15 Oct 2008 04:51:14 +0000 (+0000)
Subject: Print usage for karma with no arguments
X-Git-Url: http://git.mmlx.us/?a=commitdiff_plain;h=1b7a9a01998d3fd02cb6bc5a60e14a5c8ac3ba66;p=destult.git

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
--- 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" );