[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Mldonkey-commits] Changes to mldonkey/src/gtk2/gui/guiHtml.ml
From: |
mldonkey-commits |
Subject: |
[Mldonkey-commits] Changes to mldonkey/src/gtk2/gui/guiHtml.ml |
Date: |
Sun, 13 Nov 2005 12:42:10 -0500 |
Index: mldonkey/src/gtk2/gui/guiHtml.ml
diff -u mldonkey/src/gtk2/gui/guiHtml.ml:1.1
mldonkey/src/gtk2/gui/guiHtml.ml:1.2
--- mldonkey/src/gtk2/gui/guiHtml.ml:1.1 Mon Oct 31 18:34:02 2005
+++ mldonkey/src/gtk2/gui/guiHtml.ml Sun Nov 13 17:42:09 2005
@@ -130,7 +130,8 @@
try
(try Sys.remove filename with _ -> lprintf_nl2 "cannot
remove file %s" filename);
File.from_string filename ___s;
- stats.razorback_file_history <- filename
+ stats.razorback_file_history <- filename;
+ stats.razorback_file_last_time <-
BasicSocket.current_time ();
with _ -> (lprintf_nl2 "failed in H.wget_string")) (fun
n m -> lprintf_nl2 "progress: %d / %d" n m)
end
) sl;
@@ -191,20 +192,35 @@
in
iter dl
-let get_razorback2_stats file =
+let get_razorback2_stats file = ()
+(*
try
let md4 = uids_to_md4 file.g_file_uids in
- let stats = {
- razorback_file_history = "";
- razorback_file_rating = "";
- razorback_file_avalaibility = 0;
- razorback_file_completed = 0;
- } in
- file.g_file_razorback_stats <- Some stats;
- let referer = "http://stats.razorback2.com/" in
- let url = Printf.sprintf "%sed2khistory?ed2k=%s" referer md4 in
- get url (parse_razorback_stats stats md4 referer)
+ let stats =
+ match file.g_file_razorback_stats with
+ None ->
+ begin
+ let s ={
+ razorback_file_history = "";
+ razorback_file_rating = "";
+ razorback_file_avalaibility = 0;
+ razorback_file_completed = 0;
+ razorback_file_last_time = 0.;
+ } in
+ file.g_file_razorback_stats <- Some s;
+ s
+ end
+ | Some s -> s
+ in
+ let last_time = BasicSocket.current_time () -.
stats.razorback_file_last_time in
+ if last_time > 3600000. (* 60 min *)
+ then begin
+ let referer = "http://stats.razorback2.com/" in
+ let url = Printf.sprintf "%sed2khistory?ed2k=%s" referer md4 in
+ get url (parse_razorback_stats stats md4 referer)
+ end
with _ -> ()
+*)
(*
Element: !
- [Mldonkey-commits] Changes to mldonkey/src/gtk2/gui/guiHtml.ml,
mldonkey-commits <=