# HG changeset patch
# User unc0rr
# Date 1306079093 -14400
# Node ID d2ad737891b0ad209b3885b0967b5831c37b6ff1
# Parent  a8676836830980130a0a069b1acba8a084620134
60 seconds cooldown ban on kick

diff -r a86768368309 -r d2ad737891b0 gameServer/Actions.hs
--- a/gameServer/Actions.hs	Tue May 17 19:05:13 2011 -0400
+++ b/gameServer/Actions.hs	Sun May 22 19:44:53 2011 +0400
@@ -381,7 +381,12 @@
 
 processAction (KickClient kickId) = do
     modify (\s -> s{clientIndex = Just kickId})
-    processAction $ ByeClient "Kicked"
+    clHost <- client's host
+    currentTime <- io getCurrentTime
+    mapM_ processAction [
+        AddIP2Bans clHost "60 seconds cooldown after kick" (addUTCTime 60 currentTime),
+        ByeClient "Kicked"
+        ]
 
 
 processAction (BanClient seconds reason banId) = do