/[mldonkey]/mldonkey/src/networks/donkey/donkeyOvernet.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyOvernet.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.44 by spiralvoice, Thu Sep 1 00:04:12 2005 UTC revision 1.45 by spiralvoice, Tue Sep 6 11:24:59 2005 UTC
# Line 1632  let _ = Line 1632  let _ =
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);
# Line 1693  let _ = Line 1693  let _ =
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)"
# Line 1715  let _ = Line 1715  let _ =
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));

Legend:
Removed from v.1.44  
changed lines
  Added in v.1.45

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26