equal
deleted
inserted
replaced
457 processAction $ AnswerClients [chan] ["ADMIN_ACCESS"] |
457 processAction $ AnswerClients [chan] ["ADMIN_ACCESS"] |
458 where |
458 where |
459 isBanned = do |
459 isBanned = do |
460 processAction $ CheckBanned False |
460 processAction $ CheckBanned False |
461 liftM B.null $ client's nick |
461 liftM B.null $ client's nick |
462 checkerLogin p False = processAction $ ByeClient "No checker rights" |
462 checkerLogin _ False = processAction $ ByeClient "No checker rights" |
463 checkerLogin p True = do |
463 checkerLogin p True = do |
464 wp <- client's webPassword |
464 wp <- client's webPassword |
465 processAction $ |
465 processAction $ |
466 if wp == p then ModifyClient $ \c -> c{logonPassed = True} else ByeClient "Authentication failed" |
466 if wp == p then ModifyClient $ \c -> c{logonPassed = True} else ByeClient "Authentication failed" |
467 playerLogin p a = do |
467 playerLogin p a = do |