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

[mldonkey-commits]

Index: mldonkey/src/networks/donkey/donkeyInteractive.ml
diff -u mldonkey/src/networks/donkey/donkeyInteractive.ml:1.52 
mldonkey/src/networks/donkey/donkeyInteractive.ml:1.53
--- mldonkey/src/networks/donkey/donkeyInteractive.ml:1.52      Tue Jul 12 
23:08:57 2005
+++ mldonkey/src/networks/donkey/donkeyInteractive.ml   Thu Jul 14 14:00:20 2005
@@ -778,10 +778,21 @@
         if !xs_last_search >= 0 then begin
             try
               DonkeyUdp.make_xs (CommonSearch.search_find !xs_last_search);
-              "extended search started"
-            with e -> Printf.sprintf "Error %s" (Printexc2.to_string e)
-          end else "No previous search to extend"),
-    ":\t\t\t\t\textend the last search";
+              if o.conn_output = HTML then
+                html_mods_table_one_row buf "searchTable" "search" [
+                  ("", "srh", "Extended search started"); ]
+              else
+                Printf.bprintf buf "extended search started";
+            with e -> Printf.bprintf buf "Error %s" (Printexc2.to_string e)
+          end else begin
+            if o.conn_output = HTML then
+              html_mods_table_one_row buf "searchTable" "search" [
+                ("", "srh", "No previous search to extend"); ]
+            else
+              Printf.bprintf buf "No previous search to extend";
+          end;
+        ""
+    ), ":\t\t\t\t\textend the last search";
 
     "clh", Arg_none (fun o ->
         let buf = o.conn_buf in
@@ -805,7 +816,12 @@
     "remove_old_servers", Arg_none (fun o ->
         let buf = o.conn_buf in
         DonkeyServers.remove_old_servers ();
-        "clean done"
+        if o.conn_output = HTML then
+          html_mods_table_one_row buf "serversTable" "servers" [
+            ("", "srh", "Clean done"); ]
+        else
+          Printf.bprintf buf "clean done";
+        ""
     ), ":\t\t\tremove servers that have not been connected for several days";