401 |
|
|
402 |
"buildinfo", Arg_none (fun o -> |
"buildinfo", Arg_none (fun o -> |
403 |
let buf = o.conn_buf in |
let buf = o.conn_buf in |
404 |
|
let runinfo = CommonComplexOptions.runinfo () in |
405 |
let buildinfo = CommonComplexOptions.buildinfo () in |
let buildinfo = CommonComplexOptions.buildinfo () in |
406 |
if o.conn_output = HTML then |
if o.conn_output = HTML then |
407 |
begin |
begin |
408 |
Printf.bprintf buf "\\<div class=\\\"cs\\\"\\>"; |
Printf.bprintf buf "\\<div class=\\\"cs\\\"\\>"; |
409 |
html_mods_table_header buf "versionTable" "results" []; |
html_mods_table_header buf "versionTable" "results" []; |
410 |
Printf.bprintf buf "\\<tr class=\\\"dl-1\\\"\\>"; |
Printf.bprintf buf "\\<tr\\>"; |
411 |
|
html_mods_td buf [ ("", "srh", "Buildinfo"); ]; |
412 |
|
Printf.bprintf buf "\\</tr\\>\\<tr class=\\\"dl-1\\\"\\>"; |
413 |
html_mods_td buf [ ("", "sr", Str.global_replace (Str.regexp "\n") "\\<br\\>" buildinfo); ]; |
html_mods_td buf [ ("", "sr", Str.global_replace (Str.regexp "\n") "\\<br\\>" buildinfo); ]; |
414 |
|
Printf.bprintf buf "\\</tr\\>\\<tr\\>"; |
415 |
|
html_mods_td buf [ ("", "srh", "Runinfo"); ]; |
416 |
|
Printf.bprintf buf "\\</tr\\>\\<tr class=\\\"dl-1\\\"\\>"; |
417 |
|
html_mods_td buf [ ("", "sr", Str.global_replace (Str.regexp "\n") "\\<br\\>" runinfo); ]; |
418 |
Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>\\</div\\>"; |
Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>\\</div\\>"; |
419 |
end |
end |
420 |
else |
else |
421 |
Printf.bprintf buf "%s" buildinfo; |
Printf.bprintf buf "Buildinfo:\n%s\nRuninfo:\n%s" buildinfo runinfo; |
422 |
"" |
"" |
423 |
), ":\t\t\t\tprint mldonkey core build information"; |
), ":\t\t\t\tprint mldonkey core build and runtime information"; |
424 |
|
|
425 |
"activity", Arg_one (fun arg o -> |
"activity", Arg_one (fun arg o -> |
426 |
let arg = int_of_string arg in |
let arg = int_of_string arg in |