--- 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"] =