/[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.76 by spiralvoice, Fri Jul 29 15:40:33 2005 UTC revision 1.77 by spiralvoice, Fri Jul 29 20:42:48 2005 UTC
# Line 987  let _ = Line 987  let _ =
987                  let newrd = int_of_string (List.hd args) in                  let newrd = int_of_string (List.hd args) in
988                  if newrd > 1 then refresh_delay := newrd;                  if newrd > 1 then refresh_delay := newrd;
989                end;                end;
990              Printf.bprintf buf "\\</body\\>\\<head\\>\\<meta http-equiv=\\\"refresh\\\" content=\\\"%d\\\"\\>\\</head\\>\\<body\\>" !refresh_delay;              Printf.bprintf buf "\\<meta http-equiv=\\\"refresh\\\" content=\\\"%d\\\"\\>" !refresh_delay;
991    
992              let dlkbs =              let dlkbs =
993                (( (float_of_int !udp_download_rate) +. (float_of_int !control_download_rate)) /. 1024.0) in                (( (float_of_int !udp_download_rate) +. (float_of_int !control_download_rate)) /. 1024.0) in
# Line 2676  let _ = Line 2676  let _ =
2676              List.iter (fun line ->              List.iter (fun line ->
2677                  Printf.bprintf buf "\\<tr class=\\\"dl-1\\\"\\>";                  Printf.bprintf buf "\\<tr class=\\\"dl-1\\\"\\>";
2678                  html_mods_td buf [ ("", "sr", line); ];                  html_mods_td buf [ ("", "sr", line); ];
2679                  Printf.bprintf buf "\\</tr\\>";                  Printf.bprintf buf "\\</tr\\>\\";
2680              ) lines;              ) lines;
2681              Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>\\</div\\>";              Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>\\</div\\>";
2682              Buffer.contents buf              Buffer.contents buf

Legend:
Removed from v.1.76  
changed lines
  Added in v.1.77

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