Make RESTART_SERVER invokable
authorunc0rr
Sat, 01 Aug 2015 00:13:05 +0300
changeset 11033 2a5520837036
parent 11032 6aa31d7b1fa5
child 11034 a9bafac12634
Make RESTART_SERVER invokable
gameServer/HWProtoCore.hs
--- a/gameServer/HWProtoCore.hs	Sat Aug 01 00:09:59 2015 +0300
+++ b/gameServer/HWProtoCore.hs	Sat Aug 01 00:13:05 2015 +0300
@@ -79,6 +79,7 @@
         h "FORCE" msg | not $ B.null msg = handleCmd ["VOTE", upperCase msg, "FORCE"]
         h "MAXTEAMS" n | not $ B.null n = handleCmd ["MAXTEAMS", n]
         h "INFO" n | not $ B.null n = handleCmd ["INFO", n]
+        h "RESTART_SERVER" "YES" = handleCmd ["RESTART_SERVER"]
         h c p = return [Warning $ B.concat ["Unknown cmd: /", c, " ", p]]
 
         extractParameters p = let (a, b) = B.break (== ' ') p in (upperCase a, B.dropWhile (== ' ') b)