changeset 7748 | f160fbc139b1 |
parent 7682 | f6bfbe829008 |
child 7766 | 98edc0724a28 |
--- a/gameServer/HWProtoLobbyState.hs Fri Oct 12 11:02:43 2012 +0200 +++ b/gameServer/HWProtoLobbyState.hs Sat Oct 13 00:07:46 2012 +0400 @@ -166,6 +166,12 @@ return [BanList | isAdministrator cl] +handleCmd_lobby ["UNBAN", entry] = do + (ci, _) <- ask + cl <- thisClient + return [Unban entry | isAdministrator cl] + + handleCmd_lobby ["SET_SERVER_VAR", "MOTD_NEW", newMessage] = do cl <- thisClient return [ModifyServerInfo (\si -> si{serverMessage = newMessage}) | isAdministrator cl]