Don't list rooms with restricted joining
authorunc0rr
Sat, 25 Oct 2008 09:54:53 +0000
changeset 1412 20746999bc4a
parent 1411 df78c9571bc7
child 1413 6393a1d5ac18
Don't list rooms with restricted joining
netserver/HWProto.hs
--- a/netserver/HWProto.hs	Fri Oct 24 17:53:14 2008 +0000
+++ b/netserver/HWProto.hs	Sat Oct 25 09:54:53 2008 +0000
@@ -120,7 +120,7 @@
 					(show $ playersIn room) ++ "(" ++ (show $ length $ teams room) ++ ")",
 					show $ gameinprogress room
 					]
-			sameProtoRooms = filter (\r -> roomProto r == protocol client) rooms
+			sameProtoRooms = filter (\r -> (roomProto r == protocol client) && (not $ isRestrictedJoins r)) rooms
 
 handleCmd_noRoom client _ rooms ["CREATE", newRoom, roomPassword] =
 	if (not $ isDedicated globalOptions) && (not $ null rooms) then