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

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

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

revision 1.52 by spiralvoice, Tue Jul 12 23:08:57 2005 UTC revision 1.53 by spiralvoice, Thu Jul 14 14:00:20 2005 UTC
# Line 778  parent.fstatus.location.href='submit?q=r Line 778  parent.fstatus.location.href='submit?q=r
778          if !xs_last_search >= 0 then begin          if !xs_last_search >= 0 then begin
779              try              try
780                DonkeyUdp.make_xs (CommonSearch.search_find !xs_last_search);                DonkeyUdp.make_xs (CommonSearch.search_find !xs_last_search);
781                "extended search started"                if o.conn_output = HTML then
782              with e -> Printf.sprintf "Error %s" (Printexc2.to_string e)                  html_mods_table_one_row buf "searchTable" "search" [
783            end else "No previous search to extend"),                    ("", "srh", "Extended search started"); ]
784      ":\t\t\t\t\textend the last search";                else
785                    Printf.bprintf buf "extended search started";
786                with e -> Printf.bprintf buf "Error %s" (Printexc2.to_string e)
787              end else begin
788                if o.conn_output = HTML then
789                  html_mods_table_one_row buf "searchTable" "search" [
790                    ("", "srh", "No previous search to extend"); ]
791                else
792                  Printf.bprintf buf "No previous search to extend";
793              end;
794            ""
795        ), ":\t\t\t\t\textend the last search";
796    
797      "clh", Arg_none (fun o ->      "clh", Arg_none (fun o ->
798          let buf = o.conn_buf in          let buf = o.conn_buf in
# Line 805  parent.fstatus.location.href='submit?q=r Line 816  parent.fstatus.location.href='submit?q=r
816      "remove_old_servers", Arg_none (fun o ->      "remove_old_servers", Arg_none (fun o ->
817          let buf = o.conn_buf in          let buf = o.conn_buf in
818          DonkeyServers.remove_old_servers ();          DonkeyServers.remove_old_servers ();
819          "clean done"          if o.conn_output = HTML then
820              html_mods_table_one_row buf "serversTable" "servers" [
821                ("", "srh", "Clean done"); ]
822            else
823              Printf.bprintf buf "clean done";
824            ""
825      ), ":\t\t\tremove servers that have not been connected for several days";      ), ":\t\t\tremove servers that have not been connected for several days";
826    
827    

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

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