diff -r 54e4b03e6ba6 -r 87e5a6c3882c netserver/HWProto.hs --- a/netserver/HWProto.hs Sun Nov 02 11:46:58 2008 +0000 +++ b/netserver/HWProto.hs Sun Nov 02 20:41:02 2008 +0000 @@ -62,6 +62,7 @@ answerNotReady nick = [(sameRoom, ["NOT_READY", nick])] answerTooFewClans = [(clientOnly, ["ERROR", "Too few clans in game"])] answerRestricted = [(clientOnly, ["WARNING", "Room joining restricted"])] +answerPing = [(allClients, ["PING"])] -- Main state-independent cmd handler handleCmd :: CmdHandler @@ -78,6 +79,8 @@ (clientTeams, othersTeams) = partition (\t -> teamowner t == nick client) $ teams clRoom newReadyPlayers = if isReady client then (readyPlayers clRoom) - 1 else readyPlayers clRoom +handleCmd _ _ _ ["PING"] = -- core requsted + (noChangeClients, noChangeRooms, answerPing) -- check state and call state-dependent commmand handlers handleCmd client clients rooms cmd =