[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTInterac
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/networks/bittorrent/bTInteractive.ml |
Date: |
Mon, 28 Nov 2005 09:30:44 -0500 |
Index: mldonkey/src/networks/bittorrent/bTInteractive.ml
diff -u mldonkey/src/networks/bittorrent/bTInteractive.ml:1.65
mldonkey/src/networks/bittorrent/bTInteractive.ml:1.66
--- mldonkey/src/networks/bittorrent/bTInteractive.ml:1.65 Sat Nov 12
22:53:51 2005
+++ mldonkey/src/networks/bittorrent/bTInteractive.ml Mon Nov 28 14:30:42 2005
@@ -246,16 +246,17 @@
("Tracker key", "sr br", "Tracker key");
("", "sr", Printf.sprintf "%s" t.tracker_key) ]
end;
- Printf.bprintf buf "\\</tr\\>\\<tr class=\\\"dl-%d\\\"\\>"
(html_mods_cntr ());
- html_mods_td buf [
- ("Files:", "sr br", "Files:");
- ("", "sr", "") ];
+
+ let cntr = ref 0 in
List.iter (fun (filename, size) ->
Printf.bprintf buf "\\</tr\\>\\<tr class=\\\"dl-%d\\\"\\>"
(html_mods_cntr ());
+ let fs = Printf.sprintf "File %d" !cntr in
html_mods_td buf [
- ("", "sr br", "");
- ("", "sr", (Printf.sprintf "%s (%Ld bytes)" filename size)) ])
- file.file_files
+ (fs, "sr br", fs);
+ ("", "sr", (Printf.sprintf "%s (%Ld bytes)" filename size))
+ ];
+ incr cntr;
+ ) file.file_files
let op_file_print_sources_html file buf =
@@ -403,7 +404,7 @@
P.file_format = FormatNotComputed 0;
P.file_chunks_age = last_seen;
P.file_age = file_age file;
- P.file_last_seen = BasicSocket.last_time ();
+ P.file_last_seen = file.file_file.impl_file_last_seen;
P.file_priority = file_priority (as_file file);
P.file_uids = [Uid.create (BTUrl file.file_id)];
P.file_sub_files = file.file_files;