--- a/gameServer/HWProtoCore.hs Fri Oct 11 17:43:13 2013 +0200
+++ b/gameServer/HWProtoCore.hs Sat Jan 04 23:55:54 2014 +0400
@@ -51,6 +51,9 @@
let chans = map (sendChan . client rnc) $ allClients rnc
return [AnswerClients chans ["CHAT", "[global notice]", p] | isAdministrator cl]
h "WATCH" f = return [QueryReplay f]
+ h "FIX" _ = handleCmd ["FIX"]
+ h "UNFIX" _ = handleCmd ["UNFIX"]
+ h "GREETING" msg = handleCmd ["GREETING", msg]
h c p = return [Warning $ B.concat ["Unknown cmd: /", c, p]]
handleCmd cmd = do