diff -r 24d0074d4eed -r 2178c0fc838c gameServer/HWProtoNEState.hs --- a/gameServer/HWProtoNEState.hs Thu Feb 26 15:00:48 2009 +0000 +++ b/gameServer/HWProtoNEState.hs Fri Feb 27 19:51:22 2009 +0000 @@ -44,11 +44,12 @@ handleCmd_NotEntered clID clients _ ["PASSWORD", passwd] = if passwd == webPassword client then [ModifyClient (\cl -> cl{logonPassed = True}), - MoveToLobby] + MoveToLobby] ++ adminNotice else [ByeClient "Authentication failed"] where client = clients IntMap.! clID + adminNotice = if isAdministrator client then [AnswerThisClient ["ADMIN_ACCESS"]] else [] handleCmd_NotEntered _ _ _ ["DUMP"] =