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

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

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

revision 1.22 by spiralvoice, Sat May 28 11:19:42 2005 UTC revision 1.23 by spiralvoice, Tue Jul 5 12:27:41 2005 UTC
# Line 264  let local_dirname = Sys.getcwd () Line 264  let local_dirname = Sys.getcwd ()
264        
265  let _ =  let _ =
266    network.op_network_share <- (fun fullname codedname size ->    network.op_network_share <- (fun fullname codedname size ->
267        if !verbose_share then begin        if !verbose_share then
268            lprintf "********** NETWORK SHARE ************\n";          lprintf "donkeyShare: Sharing %s\n" fullname;
           lprintf "FULLNAME %s\n" fullname;  
         end;  
 (*      let codedname = Filename.basename codedname in*)  
       if !verbose_share then begin  
           lprintf "CODEDNAME %s\n" codedname;  
         end;  
269        try        try
270  (*  (*
271  lprintf "Searching %s" fullname; lprint_newline ();  lprintf "Searching %s" fullname; lprint_newline ();
# Line 281  lprintf "Searching %s" fullname; lprint_ Line 275  lprintf "Searching %s" fullname; lprint_
275              (fullname, size, mtime) in              (fullname, size, mtime) in
276          (* if s.sh_mtime = mtime && s.sh_size = size then begin *)          (* if s.sh_mtime = mtime && s.sh_size = size then begin *)
277              if !verbose_share then begin              if !verbose_share then begin
278                  lprintf "USING OLD MD4s for %s\n" fullname;                  lprintf "donkeyShare: Using old MD4s for %s\n" fullname;
279                end;                end;
280              new_file_to_share s codedname None              new_file_to_share s codedname None
281  (*          end else begin  (*          end else begin
# Line 294  lprintf "Searching %s" fullname; lprint_ Line 288  lprintf "Searching %s" fullname; lprint_
288            end *)            end *)
289        with Not_found ->        with Not_found ->
290            if !verbose_share then begin            if !verbose_share then begin
291                lprintf "No info on %s\n" fullname;                lprintf "donkeyShare: No info on %s\n" fullname;
292              end;              end;
293                        
294            let rec iter list left =            let rec iter list left =

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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