gameServer/HWProtoLobbyState.hs
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]