Karmic anti-abuse

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

diff --git a/commands.yaml b/commands.yaml
index 7947413..922c3af 100644 (file)
--- a/commands.yaml
+++ b/commands.yaml
@@ -1603,6 +1603,9 @@ KARMADOWN: |-
         $heap->{ "karma" } = {};
       }
     }
+    $heap->{ "karmalast" } = {} unless exists( $heap->{ "karmalast" } );
+    return if $heap->{ "karmalast" }->{ uc( '-'.$what ) } > time-60;
+    $heap->{ "karmalast" }->{ uc( '-'.$what ) } = time;
     if( !exists( $heap->{ "karma" }->{ uc( $what ) } ) ) {
       $heap->{ "karma" }->{ uc( $what ) } = -1;
     } else {
@@ -1621,6 +1624,9 @@ KARMAUP: |-
         $heap->{ "karma" } = {};
       }
     }
+    $heap->{ "karmalast" } = {} unless exists( $heap->{ "karmalast" } );
+    return if $heap->{ "karmalast" }->{ uc( '+'.$what ) } > time-60;
+    $heap->{ "karmalast" }->{ uc( '+'.$what ) } = time;
     if( !exists( $heap->{ "karma" }->{ uc( $what ) } ) ) {
       $heap->{ "karma" }->{ uc( $what ) } = 1;
     } else {