equal
deleted
inserted
replaced
109 |
109 |
110 |
110 |
111 handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomName] = |
111 handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomName] = |
112 handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomName, ""] |
112 handleCmd_lobby clID clients rooms ["JOIN_ROOM", roomName, ""] |
113 |
113 |
|
114 --------------------------- |
|
115 -- Administrator's stuff -- |
114 |
116 |
115 handleCmd_lobby clID clients rooms ["KICK", kickNick] = |
117 handleCmd_lobby clID clients rooms ["KICK", kickNick] = |
116 if not $ isAdministrator client then |
118 if not $ isAdministrator client then |
117 [] |
119 [] |
118 else |
120 else |
146 [ModifyServerInfo (\si -> si{serverMessage = newMessage})] |
148 [ModifyServerInfo (\si -> si{serverMessage = newMessage})] |
147 where |
149 where |
148 client = clients IntMap.! clID |
150 client = clients IntMap.! clID |
149 |
151 |
150 |
152 |
|
153 handleCmd_lobby clID clients rooms ["CLEAR_ACCOUNTS_CACHE"] = |
|
154 if not $ isAdministrator client then |
|
155 [] |
|
156 else |
|
157 [ClearAccountsCache] |
|
158 where |
|
159 client = clients IntMap.! clID |
|
160 |
|
161 |
151 handleCmd_lobby clID _ _ _ = [ProtocolError "Incorrect command (state: in lobby)"] |
162 handleCmd_lobby clID _ _ _ = [ProtocolError "Incorrect command (state: in lobby)"] |