333 |
| M.InfoReq (users, files) -> |
| M.InfoReq (users, files) -> |
334 |
s.server_nusers <- Int64.of_int users; |
s.server_nusers <- Int64.of_int users; |
335 |
s.server_nfiles <- Int64.of_int files; |
s.server_nfiles <- Int64.of_int files; |
336 |
if (users < !!min_users_on_server) then |
if (users < !!min_users_on_server && not s.server_preferred) then |
337 |
begin |
begin |
338 |
lprintf "%s:%d remove server min_users_on_server limit hit!\n" |
lprintf "%s:%d remove server min_users_on_server limit hit!\n" |
339 |
(Ip.to_string s.server_ip) s.server_port; |
(Ip.to_string s.server_ip) s.server_port; |