/[mldonkey]/mldonkey/src/daemon/common/commonSources.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonSources.ml

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

revision 1.22 by spiralvoice, Thu Jul 14 15:34:14 2005 UTC revision 1.23 by spiralvoice, Fri Aug 26 21:10:43 2005 UTC
# Line 453  let rec find_max_overloaded q managers = Line 453  let rec find_max_overloaded q managers =
453    
454         let print buf output_type =         let print buf output_type =
455          let timer = Unix.localtime (float_of_int(last_time ()) +. 1000000000.) in          let timer = Unix.localtime (float_of_int(last_time ()) +. 1000000000.) in
         let time_to_string time =  
           let h0 = string_of_int(time.Unix.tm_hour ) in  
           let m0 = string_of_int(time.Unix.tm_min ) in  
           let s0 = string_of_int(time.Unix.tm_sec ) in  
           (if String.length h0 = 2 then h0 else "0"^h0)  
             ^":"^ (if String.length m0 = 2 then m0 else "0"^m0)  
             ^":"^ (if String.length s0 = 2 then s0 else "0"^s0)  
         in  
456          let pos_to_string v =          let pos_to_string v =
457            (if v > 0 then string_of_int(v) else "-")            (if v > 0 then string_of_int(v) else "-")
458          in          in
# Line 475  let rec find_max_overloaded q managers = Line 467  let rec find_max_overloaded q managers =
467              Printf.bprintf buf "\\<tr\\>";              Printf.bprintf buf "\\<tr\\>";
468              html_mods_td buf [              html_mods_td buf [
469                ("", "srh", "Statistics on sources ");                ("", "srh", "Statistics on sources ");
470                ("", "srh", "@ " ^(time_to_string timer));                ("", "srh", "@ " ^(Date.time_to_string_short timer));
471                ("", "srh", "File sources per manager queue"); ];                ("", "srh", "File sources per manager queue"); ];
472              Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>\n";              Printf.bprintf buf "\\</tr\\>\\</table\\>\\</div\\>\n";
473    

Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23

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