how about we 60-sec-ban the _kicked user_ instead of the _admin that kicked that user_? :P 0.9.15
authorsheepluva
Thu, 27 Jan 2011 22:55:11 +0100
branch0.9.15
changeset 4771 6bb64d38003e
parent 4768 d00562929f28
child 4773 69f8431a5d20
how about we 60-sec-ban the _kicked user_ instead of the _admin that kicked that user_? :P
gameServer/Actions.hs
--- a/gameServer/Actions.hs	Sat Jan 22 22:35:53 2011 +0300
+++ b/gameServer/Actions.hs	Thu Jan 27 22:55:11 2011 +0100
@@ -392,7 +392,7 @@
 
 
 processAction (clID, serverInfo, clients, rooms) (KickClient kickID) = do
-    let client = clients ! clID
+    let client = clients ! kickID
     currentTime <- getCurrentTime
     liftM2 replaceID (return clID) (processAction (kickID, serverInfo{lastLogins = (host client, (addUTCTime 60 $ currentTime, "60 seconds ban")) : lastLogins serverInfo}, clients, rooms) $ ByeClient "Kicked")