[Mldonkey-commits] Changes to mldonkey/src/networks/donkey/donkeyOvernet.ml

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyOvernet.ml
diff -u mldonkey/src/networks/donkey/donkeyOvernet.ml:1.44 
mldonkey/src/networks/donkey/donkeyOvernet.ml:1.45
--- mldonkey/src/networks/donkey/donkeyOvernet.ml:1.44  Thu Sep  1 00:04:12 2005
+++ mldonkey/src/networks/donkey/donkeyOvernet.ml       Tue Sep  6 11:24:59 2005
@@ -1632,14 +1632,14 @@
             List.iter (fun s ->
                 keywords := !keywords @ [("", "dl-1", s);]
             ) listtmp;
-            Buffer.clear buftmp;
+            Buffer.reset buftmp;
             PublishedFiles.print buftmp;
             let listtmp = String2.split (Buffer.contents buftmp) '\n' in
             let files = ref [] in
             List.iter (fun s ->
                 files := !files @ [("", "dl-1", s);]
               ) listtmp;
-            Buffer.clear buftmp;
+            Buffer.reset buftmp;
             html_mods_table_one_col buf "ovstoreTable" "results" ([
               ("", "srh", Printf.sprintf "%s store" command_prefix_to_net);
               ] @ !keywords @ !files);
@@ -1693,7 +1693,7 @@
             List.iter (fun s ->
                 buckets := !buckets @ [("", "dl-1", s);]
             ) listtmp;
-            Buffer.clear buf;
+            Buffer.reset buf;
             html_mods_table_one_col buf "ovbucketsTable" "results" ([
               ("", "srh",
                 Printf.sprintf "Number of used buckets %d with %d peers 
(prebucket: %d peers)"
@@ -1715,7 +1715,7 @@
             List.iter (fun s ->
                 boots := !boots @ [("", "dl-1", s);]
             ) listtmp;
-            Buffer.clear buf;
+            Buffer.reset buf;
             html_mods_table_one_col buf "ovbucketsTable" "results" ([
               ("", "srh",
                 Printf.sprintf "Boot peers: %d\n" (LimitedList.length 
!!boot_peers));