equal
deleted
inserted
replaced
283 -- compatibility with clients with protocol < 38 |
283 -- compatibility with clients with protocol < 38 |
284 handleCmd_inRoom ["ROUNDFINISHED"] = |
284 handleCmd_inRoom ["ROUNDFINISHED"] = |
285 handleCmd_inRoom ["ROUNDFINISHED", "1"] |
285 handleCmd_inRoom ["ROUNDFINISHED", "1"] |
286 |
286 |
287 handleCmd_inRoom ["TOGGLE_RESTRICT_JOINS"] = roomAdminOnly $ |
287 handleCmd_inRoom ["TOGGLE_RESTRICT_JOINS"] = roomAdminOnly $ |
288 return [ModifyRoom (\r -> r{isRestrictedJoins = not $ isRestrictedJoins r})] |
288 return [ModifyRoom (\r -> r{isRestrictedJoins = not $ isRestrictedJoins r}), SendUpdateOnThisRoom] |
289 |
289 |
290 |
290 |
291 handleCmd_inRoom ["TOGGLE_RESTRICT_TEAMS"] = roomAdminOnly $ |
291 handleCmd_inRoom ["TOGGLE_RESTRICT_TEAMS"] = roomAdminOnly $ |
292 return [ModifyRoom (\r -> r{isRestrictedTeams = not $ isRestrictedTeams r})] |
292 return [ModifyRoom (\r -> r{isRestrictedTeams = not $ isRestrictedTeams r})] |
293 |
293 |
294 |
294 |
295 handleCmd_inRoom ["TOGGLE_REGISTERED_ONLY"] = roomAdminOnly $ |
295 handleCmd_inRoom ["TOGGLE_REGISTERED_ONLY"] = roomAdminOnly $ |
296 return [ModifyRoom (\r -> r{isRegisteredOnly = not $ isRegisteredOnly r})] |
296 return [ModifyRoom (\r -> r{isRegisteredOnly = not $ isRegisteredOnly r}), SendUpdateOnThisRoom] |
297 |
297 |
298 |
298 |
299 handleCmd_inRoom ["ROOM_NAME", newName] = roomAdminOnly $ do |
299 handleCmd_inRoom ["ROOM_NAME", newName] = roomAdminOnly $ do |
300 cl <- thisClient |
300 cl <- thisClient |
301 rs <- allRoomInfos |
301 rs <- allRoomInfos |