1632 |
List.iter (fun s -> |
List.iter (fun s -> |
1633 |
keywords := !keywords @ [("", "dl-1", s);] |
keywords := !keywords @ [("", "dl-1", s);] |
1634 |
) listtmp; |
) listtmp; |
1635 |
Buffer.clear buftmp; |
Buffer.reset buftmp; |
1636 |
PublishedFiles.print buftmp; |
PublishedFiles.print buftmp; |
1637 |
let listtmp = String2.split (Buffer.contents buftmp) '\n' in |
let listtmp = String2.split (Buffer.contents buftmp) '\n' in |
1638 |
let files = ref [] in |
let files = ref [] in |
1639 |
List.iter (fun s -> |
List.iter (fun s -> |
1640 |
files := !files @ [("", "dl-1", s);] |
files := !files @ [("", "dl-1", s);] |
1641 |
) listtmp; |
) listtmp; |
1642 |
Buffer.clear buftmp; |
Buffer.reset buftmp; |
1643 |
html_mods_table_one_col buf "ovstoreTable" "results" ([ |
html_mods_table_one_col buf "ovstoreTable" "results" ([ |
1644 |
("", "srh", Printf.sprintf "%s store" command_prefix_to_net); |
("", "srh", Printf.sprintf "%s store" command_prefix_to_net); |
1645 |
] @ !keywords @ !files); |
] @ !keywords @ !files); |
1693 |
List.iter (fun s -> |
List.iter (fun s -> |
1694 |
buckets := !buckets @ [("", "dl-1", s);] |
buckets := !buckets @ [("", "dl-1", s);] |
1695 |
) listtmp; |
) listtmp; |
1696 |
Buffer.clear buf; |
Buffer.reset buf; |
1697 |
html_mods_table_one_col buf "ovbucketsTable" "results" ([ |
html_mods_table_one_col buf "ovbucketsTable" "results" ([ |
1698 |
("", "srh", |
("", "srh", |
1699 |
Printf.sprintf "Number of used buckets %d with %d peers (prebucket: %d peers)" |
Printf.sprintf "Number of used buckets %d with %d peers (prebucket: %d peers)" |
1715 |
List.iter (fun s -> |
List.iter (fun s -> |
1716 |
boots := !boots @ [("", "dl-1", s);] |
boots := !boots @ [("", "dl-1", s);] |
1717 |
) listtmp; |
) listtmp; |
1718 |
Buffer.clear buf; |
Buffer.reset buf; |
1719 |
html_mods_table_one_col buf "ovbucketsTable" "results" ([ |
html_mods_table_one_col buf "ovbucketsTable" "results" ([ |
1720 |
("", "srh", |
("", "srh", |
1721 |
Printf.sprintf "Boot peers: %d\n" (LimitedList.length !!boot_peers)); |
Printf.sprintf "Boot peers: %d\n" (LimitedList.length !!boot_peers)); |