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