/[mldonkey]/mldonkey/src/daemon/common/commonShared.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonShared.ml

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

revision 1.18 by spiralvoice, Sun May 29 23:37:52 2005 UTC revision 1.19 by spiralvoice, Tue Jul 5 12:27:41 2005 UTC
# Line 141  let new_shared dirname prio filename ful Line 141  let new_shared dirname prio filename ful
141          name in          name in
142    let codedname = Filename.concat dirname filename in    let codedname = Filename.concat dirname filename in
143    if !verbose_share then    if !verbose_share then
144      lprintf "\ndirname %s \nfilename %s \nfullname %s\ncodedname %s\n"      lprintf "commonShared: sharing %s\n" fullname;
       dirname filename fullname codedname;  
145    let size = Unix32.getsize fullname false in    let size = Unix32.getsize fullname false in
146    incr files_scanned;    incr files_scanned;
147    files_scanned_size := !files_scanned_size ++ size;    files_scanned_size := !files_scanned_size ++ size;
# Line 312  let _ = Line 311  let _ =
311            
312  let shared_add_directory shared_dir =  let shared_add_directory shared_dir =
313    if shared_dir.shdir_dirname <> "" then begin    if shared_dir.shdir_dirname <> "" then begin
314        if !verbose_share then lprintf "SHARING %s PRIO %d\n" shared_dir.shdir_dirname        if !verbose_share then lprintf "commonShared: Sharing %s prio %d\n" shared_dir.shdir_dirname
315          shared_dir.shdir_priority;          shared_dir.shdir_priority;
316        shared_add_directory shared_dir ""        shared_add_directory shared_dir ""
317      end      end

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

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