39 	where

    39 	where

    40 		client = clients IntMap.! clID

    40 		client = clients IntMap.! clID

    41 		parsedProto = fromMaybe 0 (maybeRead protoNum :: Maybe Word16)

    41 		parsedProto = fromMaybe 0 (maybeRead protoNum :: Maybe Word16)

    42 		checkPassword = if (not . null) (nick client) then [CheckRegistered] else []

    42 		checkPassword = if (not . null) (nick client) then [CheckRegistered] else []

    43 

    43 

    44 handleCmd_NotEntered clID clients _ ["PASSWORD", passwd] =

    45 handleCmd_NotEntered clID clients _ ["PASSWORD", passwd] =

    45 	if passwd == webPassword client then

    46 	if passwd == webPassword client then

    46 		[ModifyClient (\cl -> cl{logonPassed = True}),

    47 		[ModifyClient (\cl -> cl{logonPassed = True}),

    47 		MoveToLobby] ++ adminNotice

    48 		MoveToLobby] ++ adminNotice

    48 	else

    49 	else