# HG changeset patch
# User unc0rr
# Date 1267122870 0
# Node ID ccb20ecd3503e5c7f00169e4c2239308c4164188
# Parent  9be6693c78cb715ca990310443cbd289a8609499
Some debug stuff

diff -r 9be6693c78cb -r ccb20ecd3503 gameServer/CoreTypes.hs
--- a/gameServer/CoreTypes.hs	Thu Feb 25 18:28:33 2010 +0000
+++ b/gameServer/CoreTypes.hs	Thu Feb 25 18:34:30 2010 +0000
@@ -61,6 +61,11 @@
         hedgehogs :: [HedgehogInfo]
     }
 
+instance Show TeamInfo where
+    show ti = "owner: " ++ (teamowner ti)
+            ++ "name: " ++ (teamname ti)
+            ++ "color: " ++ (teamcolor ti)
+
 data RoomInfo =
     RoomInfo
     {
@@ -87,6 +92,7 @@
             ++ ", players ids: " ++ show (IntSet.size $ playersIDs ri)
             ++ ", players: " ++ show (playersIn ri)
             ++ ", ready: " ++ show (readyPlayers ri)
+            ++ ", teams: " ++ show (teams ri)
 
 instance Eq RoomInfo where
     (==) = (==) `on` roomUID
diff -r 9be6693c78cb -r ccb20ecd3503 gameServer/HWProtoNEState.hs
--- a/gameServer/HWProtoNEState.hs	Thu Feb 25 18:28:33 2010 +0000
+++ b/gameServer/HWProtoNEState.hs	Thu Feb 25 18:34:30 2010 +0000
@@ -47,8 +47,8 @@
         adminNotice = [AnswerThisClient ["ADMIN_ACCESS"] | isAdministrator client]
 
 
---handleCmd_NotEntered _ _ _ ["DUMP"] =
---	[Dump]
+handleCmd_NotEntered clID clients _ ["DUMP"] =
+    if isAdministrator (clients IntMap.! clID) then [Dump] else []
 
 
 handleCmd_NotEntered clID _ _ _ = [ProtocolError "Incorrect command (state: not entered)"]