# HG changeset patch
# User unc0rr
# Date 1300037144 -10800
# Node ID af9e4a66111b75e51b81b16ab07d6d6d9321fa8b
# Parent  c401891fe5e0b362699da30173b37832f3b74e38
Don't add ip ban with new timestamp when user gets kicked due to ban

diff -r c401891fe5e0 -r af9e4a66111b gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sun Mar 13 20:21:27 2011 +0300
+++ b/gameServer/Actions.hs	Sun Mar 13 20:25:44 2011 +0300
@@ -411,10 +411,13 @@
 
 
 processAction (AddNick2Bans n reason expiring) = do
-        processAction $ ModifyServerInfo (\s -> s{bans = BanByNick n reason expiring : bans s})
+    processAction $ ModifyServerInfo (\s -> s{bans = BanByNick n reason expiring : bans s})
 
 processAction (AddIP2Bans ip reason expiring) = do
-        processAction $ ModifyServerInfo (\s -> s{bans = BanByIP ip reason expiring : bans s})
+    (Just ci) <- gets clientIndex
+    rc <- gets removedClients
+    when (not $ ci `Set.member` rc)
+        $ processAction $ ModifyServerInfo (\s -> s{bans = BanByIP ip reason expiring : bans s})
 
 processAction CheckBanned = do
     clTime <- client's connectTime