equal
deleted
inserted
replaced
379 : [ModifyClient (\cl -> cl{logonPassed = True}), SendServerMessage] |
379 : [ModifyClient (\cl -> cl{logonPassed = True}), SendServerMessage] |
380 |
380 |
381 |
381 |
382 processAction (KickClient kickId) = do |
382 processAction (KickClient kickId) = do |
383 modify (\s -> s{clientIndex = Just kickId}) |
383 modify (\s -> s{clientIndex = Just kickId}) |
384 processAction $ ByeClient "Kicked" |
384 clHost <- client's host |
|
385 currentTime <- io getCurrentTime |
|
386 mapM_ processAction [ |
|
387 AddIP2Bans clHost "60 seconds cooldown after kick" (addUTCTime 60 currentTime), |
|
388 ByeClient "Kicked" |
|
389 ] |
385 |
390 |
386 |
391 |
387 processAction (BanClient seconds reason banId) = do |
392 processAction (BanClient seconds reason banId) = do |
388 modify (\s -> s{clientIndex = Just banId}) |
393 modify (\s -> s{clientIndex = Just banId}) |
389 clHost <- client's host |
394 clHost <- client's host |