293 |
then |
then |
294 |
begin |
begin |
295 |
if !verbose_share then |
if !verbose_share then |
296 |
lprintf "New Edonkey file with changed filename %s to %s\n" |
lprintf_nl "EDK: New file with changed filename %s to %s" |
297 |
file.file_diskname file_diskname; |
file.file_diskname file_diskname; |
298 |
file.file_diskname <- file_diskname; |
file.file_diskname <- file_diskname; |
299 |
end |
end |
300 |
else |
else |
301 |
if !verbose_share then |
if !verbose_share then |
302 |
lprintf "New Edonkey file with not changed different filename %s and %s\n" |
lprintf_nl "EDK: New file with not changed different filename %s and %s" |
303 |
file.file_diskname file_diskname; |
file.file_diskname file_diskname; |
304 |
end; |
end; |
305 |
if Unix32.destroyed (file_fd file) |
if Unix32.destroyed (file_fd file) |
309 |
file.file_file.impl_file_fd <- |
file.file_file.impl_file_fd <- |
310 |
Unix32.create_diskfile file.file_diskname Unix32.rw_flag 0o666; |
Unix32.create_diskfile file.file_diskname Unix32.rw_flag 0o666; |
311 |
if Unix32.destroyed (file_fd file) then |
if Unix32.destroyed (file_fd file) then |
312 |
lprintf "New Edonkey file with %b && %b remaining destroyed fd %s\n" |
lprintf_nl "New Edonkey file with %b && %b remaining destroyed fd %s" |
313 |
(not writable) (file.file_diskname = file_diskname) file.file_diskname; |
(not writable) (file.file_diskname = file_diskname) file.file_diskname; |
314 |
file |
file |
315 |
with _ -> |
with _ -> |
316 |
if !verbose then |
if !verbose_share then |
317 |
lprintf "New Edonkey file with md4: %s\n" (Md4.to_string md4); |
lprintf_nl "EDK: New file with md4: %s" (Md4.to_string md4); |
318 |
let file_exists = Unix32.file_exists file_diskname in |
let file_exists = Unix32.file_exists file_diskname in |
319 |
|
|
320 |
let t = |
let t = |