# HG changeset patch
# User unc0rr
# Date 1438377185 -10800
# Node ID 2a5520837036e9a0d106e29396a5c08044fc6d70
# Parent  6aa31d7b1fa583553535959a89be049833a765f6
Make RESTART_SERVER invokable

diff -r 6aa31d7b1fa5 -r 2a5520837036 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)