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 (); |
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 |
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 = |