gameServer/Actions.hs
changeset 5005 d7bddb280f4f
parent 5003 db4726bf9205
child 5007 c401891fe5e0
--- a/gameServer/Actions.hs	Sun Mar 13 15:09:04 2011 +0300
+++ b/gameServer/Actions.hs	Sun Mar 13 15:09:29 2011 +0300
@@ -405,7 +405,7 @@
     if isJust info then
         mapM_ processAction [ModifyServerInfo (\s -> s{lastLogins = newLogins}), ByeClient (snd .  fromJust $ info)]
         else
-        processAction $ ModifyServerInfo (\s -> s{lastLogins = (host cl, (addUTCTime 0 $ connectTime cl, "Reconnected too fast")) : newLogins})
+        processAction $ ModifyServerInfo (\s -> s{lastLogins = (host cl, (addUTCTime 10 $ connectTime cl, "Reconnected too fast")) : newLogins})
 
 
 processAction PingAll = do