98 |
match msg with |
match msg with |
99 |
|
|
100 |
| M.ViewFilesReplyReq t -> |
| M.ViewFilesReplyReq t -> |
101 |
lprintf "****************************************"; |
lprintf "****************************************\n"; |
102 |
lprint_newline (); |
lprintf " BROWSE FILES REPLY \n"; |
|
lprintf " BROWSE FILES REPLY "; |
|
|
lprint_newline (); |
|
103 |
let module Q = M.ViewFilesReply in |
let module Q = M.ViewFilesReply in |
104 |
|
|
105 |
begin |
begin |
116 |
() |
() |
117 |
) t; |
) t; |
118 |
with e -> |
with e -> |
119 |
lprintf "Exception in ViewFilesReply %s" |
lprintf "Exception in ViewFilesReply %s\n" |
120 |
(Printexc2.to_string e); lprint_newline (); |
(Printexc2.to_string e); |
121 |
end; |
end; |
122 |
node.node_last_browse <- last_time (); |
node.node_last_browse <- last_time (); |
123 |
close sock Closed_by_user |
close sock Closed_by_user |
195 |
(DonkeyProtoCom.client_handler2 c read_first_message |
(DonkeyProtoCom.client_handler2 c read_first_message |
196 |
(client_to_client [])); |
(client_to_client [])); |
197 |
|
|
198 |
with e -> lprintf "Exception %s in init_connection" |
with e -> lprintf "Exception %s in init_connection\n" |
199 |
(Printexc2.to_string e); |
(Printexc2.to_string e)); |
|
lprint_newline ()); |
|
200 |
with e -> |
with e -> |
201 |
lprintf "Exception %s in client_connection_handler" |
lprintf "Exception %s in client_connection_handler\n" |
202 |
(Printexc2.to_string e); |
(Printexc2.to_string e); |
|
lprint_newline (); |
|
203 |
Unix.close s |
Unix.close s |
204 |
end |
end |
205 |
else begin |
else begin |