From: pdbogen <pdbogen@088b83a4-0077-4247-935c-42ec02c2848b>
Date: Wed, 15 Oct 2008 05:10:27 +0000 (+0000)
Subject: Karmic anti-abuse
X-Git-Url: http://git.mmlx.us/?a=commitdiff_plain;h=5b2f85318b8f9fd937abca87b801f9bc652f1094;p=destult.git

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
--- 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 {