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; |
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 |