equal
deleted
inserted
replaced
218 return [SendServerVars] |
218 return [SendServerVars] |
219 |
219 |
220 handleCmd_lobby ["CLEAR_ACCOUNTS_CACHE"] = serverAdminOnly $ |
220 handleCmd_lobby ["CLEAR_ACCOUNTS_CACHE"] = serverAdminOnly $ |
221 return [ClearAccountsCache] |
221 return [ClearAccountsCache] |
222 |
222 |
|
223 handleCmd_lobby ["RESTART_SERVER", "YES"] = serverAdminOnly $ |
|
224 return [RestartServer] |
|
225 |
223 handleCmd_lobby ["RESTART_SERVER"] = serverAdminOnly $ |
226 handleCmd_lobby ["RESTART_SERVER"] = serverAdminOnly $ |
224 return [RestartServer] |
227 return [Warning $ loc "Please confirm server restart with '/restart_server yes'."] |
|
228 |
|
229 handleCmd_lobby ["RESTART_SERVER", _] = handleCmd_lobby ["RESTART_SERVER"] |
|
230 |
225 |
231 |
226 handleCmd_lobby ["STATS"] = serverAdminOnly $ |
232 handleCmd_lobby ["STATS"] = serverAdminOnly $ |
227 return [Stats] |
233 return [Stats] |
228 |
234 |
229 handleCmd_lobby (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in lobby)"] |
235 handleCmd_lobby (s:_) = return [ProtocolError $ "Incorrect command '" `B.append` s `B.append` "' (state: in lobby)"] |