/[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.23 by spiralvoice, Tue Jul 5 12:27:41 2005 UTC revision 1.24 by spiralvoice, Sun Jul 17 16:12:59 2005 UTC
# Line 84  let new_file_to_share sh codedname old_i Line 84  let new_file_to_share sh codedname old_i
84        | _ -> md4_of_array md4s        | _ -> md4_of_array md4s
85      in      in
86            
87      if !verbose_share then begin      if !verbose_share then
88      lprintf "Sharing file with MD4: %s\n" (Md4.to_string md4);        lprintf_nl "EDK: Sharing file with MD4: %s" (Md4.to_string md4);
     end;  
89            
90      let file = new_file sh.sh_name FileShared md4 sh.sh_size      let file = new_file sh.sh_name FileShared md4 sh.sh_size
91          [Filename.basename sh.sh_name, GuiTypes.noips()]          [Filename.basename sh.sh_name, GuiTypes.noips()]
# Line 126  let new_file_to_share sh codedname old_i Line 125  let new_file_to_share sh codedname old_i
125                   Int64Swarmer.verify_all_blocks s true;                   Int64Swarmer.verify_all_blocks s true;
126                   *)                   *)
127                  if !verbose_share then                  if !verbose_share then
128                    lprintf "verified map of %s = %s\n"                    lprintf_nl "EDK: verified map of %s = %s"
129                           (codedname) (Int64Swarmer.verified_bitmap s))                           (codedname) (Int64Swarmer.verified_bitmap s))
130        | None -> if !verbose_share then lprintf "no swarmer for %s\n" codedname;        | None -> if !verbose_share then lprintf_nl "EDK: no swarmer for %s" codedname;
131      (try      (try
132          file.file_format <- CommonMultimedia.get_info          file.file_format <- CommonMultimedia.get_info
133            (file_disk_name file)            (file_disk_name file)
# Line 141  let new_file_to_share sh codedname old_i Line 140  let new_file_to_share sh codedname old_i
140  lprint_newline ());  lprint_newline ());
141    *)    *)
142      if !verbose_share then begin      if !verbose_share then begin
143          lprintf "Sharing %s\n" sh.sh_name;          lprintf_nl "EDK: Sharing %s" sh.sh_name;
144      end;      end;
145    with e ->    with e ->
146        lprintf "Exception %s while sharing %s\n" (Printexc2.to_string e)        lprintf_nl "EDK: Exception %s while sharing %s" (Printexc2.to_string e)
147        sh.sh_name        sh.sh_name
148                
149        

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

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