/[mldonkey]/mldonkey/src/daemon/driver/driverCommands.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/driver/driverCommands.ml

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

revision 1.98 by spiralvoice, Sat Nov 12 11:09:39 2005 UTC revision 1.99 by spiralvoice, Sat Nov 12 20:07:01 2005 UTC
# Line 401  let _ = Line 401  let _ =
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

Legend:
Removed from v.1.98  
changed lines
  Added in v.1.99

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