265 |
let shared_counter = ref (Int64.zero) |
let shared_counter = ref (Int64.zero) |
266 |
let shared_files = Hashtbl.create 13 |
let shared_files = Hashtbl.create 13 |
267 |
|
|
268 |
|
let _ = |
269 |
|
Heap.add_memstat "CommonUploads" (fun level buf -> |
270 |
|
Printf.bprintf buf " infos_by_name: %d\n" (Hashtbl.length infos_by_name); |
271 |
|
Printf.bprintf buf " shareds_by_uid: %d\n" (Hashtbl.length shareds_by_uid); |
272 |
|
Printf.bprintf buf " shareds_by_id: %d\n" (Hashtbl.length shareds_by_id); |
273 |
|
Printf.bprintf buf " shared_files: %d\n" (Hashtbl.length shared_files); |
274 |
|
) |
275 |
|
|
276 |
|
|
277 |
let new_shared_dir dirname = { |
let new_shared_dir dirname = { |
278 |
shared_dirname = dirname; |
shared_dirname = dirname; |
279 |
shared_files = []; |
shared_files = []; |