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 |
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 |
|
|