306 |
CommonNetwork.network_recover_temp r |
CommonNetwork.network_recover_temp r |
307 |
with _ -> () |
with _ -> () |
308 |
); |
); |
309 |
_s "done" |
let buf = o.conn_buf in |
310 |
|
if o.conn_output = HTML then |
311 |
|
html_mods_table_one_row buf "serversTable" "servers" [ |
312 |
|
("", "srh", "Recover temp finished"); ] |
313 |
|
else |
314 |
|
Printf.bprintf buf "Recover temp finished"; |
315 |
|
_s "" |
316 |
), ":\t\t\t\trecover lost files from temp directory"; |
), ":\t\t\t\trecover lost files from temp directory"; |
317 |
|
|
318 |
"vc", Arg_multiple (fun args o -> |
"vc", Arg_multiple (fun args o -> |
1783 |
the name between []" |
the name between []" |
1784 |
), ":\t\t\t\t$bprint options values by section$n"; |
), ":\t\t\t\t$bprint options values by section$n"; |
1785 |
|
|
|
(* |
|
|
"options", Arg_multiple (fun args o -> |
|
|
let buf = o.conn_buf in |
|
|
match args with |
|
|
[] -> |
|
|
let sections = ref [] in |
|
|
Printf.bprintf buf "Available sections for options: \n"; |
|
|
List.iter (fun (section, message, option, optype) -> |
|
|
if not (List.mem section !sections) then begin |
|
|
Printf.bprintf buf " $b%s$n\n" section; |
|
|
sections := section :: !sections |
|
|
end |
|
|
) gui_options_panel; |
|
|
|
|
|
List.iter (fun (section, list) -> |
|
|
if not (List.mem section !sections) then begin |
|
|
Printf.bprintf buf " $b%s$n\n" section; |
|
|
sections := section :: !sections |
|
|
end) |
|
|
! CommonInteractive.gui_options_panels; |
|
|
"\n\nUse 'options section' to see options in this section" |
|
|
|
|
|
| sections -> |
|
|
List.iter (fun s -> |
|
|
Printf.bprintf buf "Options in section $b%s$n:\n" s; |
|
|
List.iter (fun (section, message, option, optype) -> |
|
|
if s = section then |
|
|
Printf.bprintf buf " %s [$r%s$n]= $b%s$n\n" |
|
|
message option |
|
|
(get_fully_qualified_options option) |
|
|
) gui_options_panel; |
|
|
|
|
|
List.iter (fun (section, list) -> |
|
|
if s = section then |
|
|
List.iter (fun (message, option, optype) -> |
|
|
Printf.bprintf buf " %s [$b%s$n]= $b%s$n\n" |
|
|
message option |
|
|
(get_fully_qualified_options option) |
|
|
) list) |
|
|
! CommonInteractive.gui_options_panels; |
|
|
) sections; |
|
|
"\nUse '$rset option \"value\"$n' to change a value where options is |
|
|
the name between []" |
|
|
), ":\t\t\t\t$bprint options values by section$n"; |
|
|
*) |
|
|
|
|
1786 |
] |
] |
1787 |
|
|
1788 |
(*************************************************************************) |
(*************************************************************************) |
1798 |
"reshare", Arg_none (fun o -> |
"reshare", Arg_none (fun o -> |
1799 |
let buf = o.conn_buf in |
let buf = o.conn_buf in |
1800 |
shared_check_files (); |
shared_check_files (); |
1801 |
_s "check done" |
if o.conn_output = HTML then |
1802 |
|
html_mods_table_one_row buf "serversTable" "servers" [ |
1803 |
|
("", "srh", "Reshare check done"); ] |
1804 |
|
else |
1805 |
|
Printf.bprintf buf "Reshare check done"; |
1806 |
|
_s "" |
1807 |
), ":\t\t\t\tcheck shared files for removal"; |
), ":\t\t\t\tcheck shared files for removal"; |
1808 |
|
|
1809 |
"shares", Arg_none (fun o -> |
"shares", Arg_none (fun o -> |
1810 |
|
|
1811 |
let buf = o.conn_buf in |
let buf = o.conn_buf in |
1812 |
|
|
1813 |
if use_html_mods o then begin |
if use_html_mods o then begin |
1814 |
Printf.bprintf buf "\\<div class=\\\"shares\\\"\\>\\<table class=main cellspacing=0 cellpadding=0\\> |
Printf.bprintf buf "\\<div class=\\\"shares\\\"\\>\\<table class=main cellspacing=0 cellpadding=0\\> |
1815 |
\\<tr\\>\\<td\\> |
\\<tr\\>\\<td\\> |
1816 |
\\<table cellspacing=0 cellpadding=0 width=100%%\\>\\<tr\\> |
\\<table cellspacing=0 cellpadding=0 width=100%%\\>\\<tr\\> |
1817 |
\\<td class=downloaded width=100%%\\>\\</td\\> |
\\<td class=downloaded width=100%%\\>\\</td\\> |
1818 |
\\<td nowrap class=\\\"fbig pr\\\"\\>\\<a onclick=\\\"javascript: { |
\\<td nowrap class=\\\"fbig pr\\\"\\>\\<a onclick=\\\"javascript: { |
1819 |
var getdir = prompt('Input: <priority#> <directory> (surround dir with quotes if necessary)','0 /home/mldonkey/share') |
var getdir = prompt('Input: <priority#> <directory> (surround dir with quotes if necessary)','0 /home/mldonkey/share') |
1820 |
var reg = new RegExp (' ', 'gi') ; |
var reg = new RegExp (' ', 'gi') ; |
1821 |
var outstr = getdir.replace(reg, '+'); |
var outstr = getdir.replace(reg, '+'); |
1824 |
}\\\"\\>Add Share\\</a\\> |
}\\\"\\>Add Share\\</a\\> |
1825 |
\\</td\\> |
\\</td\\> |
1826 |
\\</tr\\>\\</table\\> |
\\</tr\\>\\</table\\> |
1827 |
\\</td\\>\\</tr\\> |
\\</td\\>\\</tr\\> |
1828 |
\\<tr\\>\\<td\\>"; |
\\<tr\\>\\<td\\>"; |
1829 |
|
|
1830 |
html_mods_table_header buf "sharesTable" "shares" [ |
html_mods_table_header buf "sharesTable" "shares" [ |
1831 |
( "0", "srh ac", "Click to unshare directory", "Unshare" ) ; |
( "0", "srh ac", "Click to unshare directory", "Unshare" ) ; |
1832 |
( "1", "srh ar", "Priority", "P" ) ; |
( "1", "srh ar", "Priority", "P" ) ; |
1833 |
( "0", "srh", "Directory", "Directory" ) ; |
( "0", "srh", "Directory", "Directory" ) ; |
1834 |
( "0", "srh", "Strategy", "Strategy" ) ]; |
( "0", "srh", "Strategy", "Strategy" ) ]; |
1835 |
|
|
1836 |
let counter = ref 0 in |
let counter = ref 0 in |
1837 |
|
|
1838 |
(* TODO update HTML for incoming directories now in shared_directories |
(* TODO update HTML for incoming directories now in shared_directories |
1840 |
\\<td class=\\\"sr ar\\\"\\>0\\</td\\>\\<td title=\\\"Incoming\\\" class=\\\"sr\\\"\\>%s\\</td\\>\\</tr\\>" !!incoming_directory; |
\\<td class=\\\"sr ar\\\"\\>0\\</td\\>\\<td title=\\\"Incoming\\\" class=\\\"sr\\\"\\>%s\\</td\\>\\</tr\\>" !!incoming_directory; |
1841 |
*) |
*) |
1842 |
|
|
1843 |
List.iter (fun shared_dir -> |
List.iter (fun shared_dir -> |
1844 |
incr counter; |
incr counter; |
1845 |
Printf.bprintf buf "\\<tr class=\\\"%s\\\"\\> |
Printf.bprintf buf "\\<tr class=\\\"%s\\\"\\> |
1846 |
\\<td title=\\\"Click to unshare this directory\\\" |
\\<td title=\\\"Click to unshare this directory\\\" |
1847 |
onMouseOver=\\\"mOvr(this);\\\" |
onMouseOver=\\\"mOvr(this);\\\" |
1848 |
onMouseOut=\\\"mOut(this);\\\" |
onMouseOut=\\\"mOut(this);\\\" |
1849 |
onClick=\\\'javascript:{ |
onClick=\\\'javascript:{ |
1850 |
parent.fstatus.location.href=\\\"submit?q=unshare+\\\\\\\"%s\\\\\\\"\\\"; |
parent.fstatus.location.href=\\\"submit?q=unshare+\\\\\\\"%s\\\\\\\"\\\" |
1851 |
setTimeout(\\\"window.location.reload()\\\",1000);}' |
setTimeout(\\\"window.location.reload()\\\",1000);}' |
1852 |
class=\\\"srb\\\"\\>Unshare\\</td\\> |
class=\\\"srb\\\"\\>Unshare\\</td\\> |
1853 |
\\<td class=\\\"sr ar\\\"\\>%d\\</td\\> |
\\<td class=\\\"sr ar\\\"\\>%d\\</td\\> |