--- a/gameServer/HWProtoCore.hs	Sat Dec 14 21:16:20 2013 +0400
+++ b/gameServer/HWProtoCore.hs	Tue Dec 17 00:02:52 2013 +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