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()] |
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) |
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 |
|
|