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