/[mldonkey]/mldonkey/src/networks/donkey/donkeyGlobals.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyGlobals.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.42 by spiralvoice, Tue Jul 5 12:28:57 2005 UTC revision 1.43 by spiralvoice, Sun Jul 17 16:12:59 2005 UTC
# Line 293  let new_file file_diskname file_state md Line 293  let new_file file_diskname file_state md
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)
# Line 309  let new_file file_diskname file_state md Line 309  let new_file file_diskname file_state md
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 =

Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26