416 |
match c.client_download with |
match c.client_download with |
417 |
None -> |
None -> |
418 |
if !verbose_hidden_errors then |
if !verbose_hidden_errors then |
419 |
lprintf_nl ()"block_received: block received but no file !\n Received: %s" (Md4.to_string md4) |
lprintf_nl ()"block_received: block received but no file !, received: %s" (Md4.to_string md4) |
420 |
| Some (file, up) -> |
| Some (file, up) -> |
421 |
|
|
422 |
if file.file_md4 <> md4 then begin |
if file.file_md4 <> md4 then begin |
423 |
if !verbose_hidden_errors then |
if !verbose_hidden_errors then |
424 |
lprintf_nl () "block_received: block for bad file\n Received: %s\n Expected: %s" (Md4.to_string md4) (Md4.to_string file.file_md4) |
lprintf_nl () "block_received: block for bad file, received: %s, expected: %s" (Md4.to_string md4) (Md4.to_string file.file_md4) |
425 |
end else begin |
end else begin |
426 |
DonkeySources.set_request_result c.client_source file.file_sources File_upload; |
DonkeySources.set_request_result c.client_source file.file_sources File_upload; |
427 |
|
|