600 |
|
|
601 |
and disconnect_client c r = |
and disconnect_client c r = |
602 |
if !verbose then |
if !verbose then |
603 |
lprintf "DISCONNECT CLIENT\n"; |
lprintf_nl "DISCONNECT CLIENT"; |
604 |
match c.client_sock with |
match c.client_sock with |
605 |
| Connection sock -> |
| Connection sock -> |
606 |
(try |
(try |
607 |
if !verbose_msg_clients then begin |
if !verbose_msg_clients then |
608 |
lprintf "Disconnected from source for %s\n" (string_of_reason r); |
lprintf_nl "Disconnected from source for %s\n" (string_of_reason r); |
|
end; |
|
609 |
c.client_requests <- []; |
c.client_requests <- []; |
610 |
connection_failed c.client_connection_control; |
connection_failed c.client_connection_control; |
611 |
set_client_disconnected c r; |
set_client_disconnected c r; |