114 |
then !s |
then !s |
115 |
else raise Not_found |
else raise Not_found |
116 |
|
|
117 |
let parse_razorback_stats stats md4 referer progress dl = |
let parse_razorback_stats stats md4 referer on_png_completed progress dl = |
118 |
let progress_desc = Printf.sprintf "http://stats.razorback2.com :: %s" !M.dT_lb_razorback2_stats_get_image in |
let progress_desc = Printf.sprintf "http://stats.razorback2.com :: %s" !M.dT_lb_razorback2_stats_get_image in |
119 |
let rec iter _dl = |
let rec iter _dl = |
120 |
List.iter (fun d -> |
List.iter (fun d -> |
134 |
(try Sys.remove filename with _ -> lprintf_nl2 "cannot remove file %s" filename); |
(try Sys.remove filename with _ -> lprintf_nl2 "cannot remove file %s" filename); |
135 |
File.from_string filename ___s; |
File.from_string filename ___s; |
136 |
stats.razorback_file_history <- filename; |
stats.razorback_file_history <- filename; |
137 |
|
on_png_completed (); |
138 |
with _ -> (lprintf_nl2 "failed in H.wget_string")) (fun n m -> progress progress_desc n m) |
with _ -> (lprintf_nl2 "failed in H.wget_string")) (fun n m -> progress progress_desc n m) |
139 |
end |
end |
140 |
) sl; |
) sl; |
195 |
in |
in |
196 |
iter dl |
iter dl |
197 |
|
|
198 |
let get_razorback2_stats file progress1 progress2 = |
let get_razorback2_stats file progress_html on_png_completed progress_png = |
199 |
try |
try |
200 |
let md4 = uids_to_md4 file.g_file_uids in |
let md4 = uids_to_md4 file.g_file_uids in |
201 |
let stats = |
let stats = |
215 |
in |
in |
216 |
let referer = "http://stats.razorback2.com/" in |
let referer = "http://stats.razorback2.com/" in |
217 |
let url = Printf.sprintf "%sed2khistory?ed2k=%s" referer md4 in |
let url = Printf.sprintf "%sed2khistory?ed2k=%s" referer md4 in |
218 |
get url (parse_razorback_stats stats md4 referer (progress1 md4)) (progress2 md4) |
get url (parse_razorback_stats stats md4 referer on_png_completed (progress_html md4)) (progress_png md4) |
219 |
with _ -> () |
with _ -> () |
220 |
|
|
221 |
(* |
(* |