--- a/gameServer/HWProtoLobbyState.hs	Thu Feb 03 07:00:38 2011 +0100
+++ b/gameServer/HWProtoLobbyState.hs	Thu Feb 03 22:29:10 2011 +0300
@@ -171,5 +171,9 @@
     cl <- thisClient
     return [ClearAccountsCache | isAdministrator cl]
 
+handleCmd_lobby ["RESTART_SERVER", restartType] = do
+    cl <- thisClient
+    return [RestartServer f | let f = restartType == "FORCE", isAdministrator cl]
+
 
 handleCmd_lobby _ = return [ProtocolError "Incorrect command (state: in lobby)"]