changeset 9446 | 4fd5df03deb8 |
parent 9105 | 18ebb59c89fe |
child 9448 | 04e0acfa7c2c |
--- a/gameServer/HWProtoCore.hs Thu Aug 29 12:12:19 2013 +0400 +++ b/gameServer/HWProtoCore.hs Tue Sep 03 00:05:38 2013 +0400 @@ -50,6 +50,7 @@ rnc <- liftM snd ask let chans = map (sendChan . client rnc) $ allClients rnc return [AnswerClients chans ["CHAT", "[global notice]", p] | isAdministrator cl] + h "WATCH" = return . QueryReplay h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]] handleCmd cmd = do