/[mldonkey]/mldonkey/src/networks/bittorrent/bTInteractive.ml
ViewVC logotype

Diff of /mldonkey/src/networks/bittorrent/bTInteractive.ml

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

revision 1.65 by spiralvoice, Sat Nov 12 22:53:51 2005 UTC revision 1.66 by spiralvoice, Mon Nov 28 14:30:42 2005 UTC
# Line 246  let op_file_print_html file buf = Line 246  let op_file_print_html file buf =
246             ("Tracker key", "sr br", "Tracker key");             ("Tracker key", "sr br", "Tracker key");
247             ("", "sr", Printf.sprintf "%s" t.tracker_key) ]             ("", "sr", Printf.sprintf "%s" t.tracker_key) ]
248          end;          end;
249        Printf.bprintf buf "\\</tr\\>\\<tr class=\\\"dl-%d\\\"\\>" (html_mods_cntr ());  
250          html_mods_td buf [        let cntr = ref 0 in
            ("Files:", "sr br", "Files:");  
            ("", "sr", "") ];  
251        List.iter (fun (filename, size) ->        List.iter (fun (filename, size) ->
252            Printf.bprintf buf "\\</tr\\>\\<tr class=\\\"dl-%d\\\"\\>" (html_mods_cntr ());            Printf.bprintf buf "\\</tr\\>\\<tr class=\\\"dl-%d\\\"\\>" (html_mods_cntr ());
253              let fs = Printf.sprintf "File %d" !cntr in
254            html_mods_td buf [            html_mods_td buf [
255             ("", "sr br", "");             (fs, "sr br", fs);
256             ("", "sr", (Printf.sprintf "%s (%Ld bytes)" filename size)) ])             ("", "sr", (Printf.sprintf "%s (%Ld bytes)" filename size))
257        file.file_files            ];
258              incr cntr;
259          ) file.file_files
260    
261  let op_file_print_sources_html file buf =  let op_file_print_sources_html file buf =
262    
# Line 403  let op_file_info file = Line 404  let op_file_info file =
404      P.file_format = FormatNotComputed 0;      P.file_format = FormatNotComputed 0;
405      P.file_chunks_age = last_seen;      P.file_chunks_age = last_seen;
406      P.file_age = file_age file;      P.file_age = file_age file;
407      P.file_last_seen = BasicSocket.last_time ();      P.file_last_seen = file.file_file.impl_file_last_seen;
408      P.file_priority = file_priority (as_file file);      P.file_priority = file_priority (as_file file);
409      P.file_uids = [Uid.create (BTUrl file.file_id)];      P.file_uids = [Uid.create (BTUrl file.file_id)];
410      P.file_sub_files = file.file_files;      P.file_sub_files = file.file_files;

Legend:
Removed from v.1.65  
changed lines
  Added in v.1.66

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