diff -r 9ca28cef559a -r 18ee933a5864 gameServer/HWProtoLobbyState.hs --- a/gameServer/HWProtoLobbyState.hs Sat Apr 03 08:46:01 2010 +0000 +++ b/gameServer/HWProtoLobbyState.hs Sat Apr 03 08:47:06 2010 +0000 @@ -153,22 +153,29 @@ client = clients IntMap.! clID -handleCmd_lobby clID clients rooms ["SET_SERVER_MESSAGE", "NEW", newMessage] = + +handleCmd_lobby clID clients rooms ["SET_SERVER_VAR", "MOTD_NEW", newMessage] = [ModifyServerInfo (\si -> si{serverMessage = newMessage}) | isAdministrator client] where client = clients IntMap.! clID -handleCmd_lobby clID clients rooms ["SET_SERVER_MESSAGE", "OLD", newMessage] = +handleCmd_lobby clID clients rooms ["SET_SERVER_VAR", "MOTD_OLD", newMessage] = [ModifyServerInfo (\si -> si{serverMessageForOldVersions = newMessage}) | isAdministrator client] where client = clients IntMap.! clID -handleCmd_lobby clID clients rooms ["SET_RELEASE_PROTOCOL_NUMBER", protoNum] = +handleCmd_lobby clID clients rooms ["SET_SERVER_VAR", "LATEST_PROTO", protoNum] = [ModifyServerInfo (\si -> si{latestReleaseVersion = fromJust readNum}) | isAdministrator client && isJust readNum] where client = clients IntMap.! clID readNum = maybeRead protoNum :: Maybe Word16 +handleCmd_lobby clID clients rooms ["GET_SERVER_VAR"] = + [SendServerVars | isAdministrator client] + where + client = clients IntMap.! clID + + handleCmd_lobby clID clients rooms ["CLEAR_ACCOUNTS_CACHE"] = [ClearAccountsCache | isAdministrator client] where