/[mldonkey]/mldonkey/src/gtk2/gui/guiHtml.ml
ViewVC logotype

Diff of /mldonkey/src/gtk2/gui/guiHtml.ml

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

revision 1.3 by spiralvoice, Mon Nov 14 18:25:44 2005 UTC revision 1.4 by spiralvoice, Wed Nov 16 10:18:52 2005 UTC
# Line 114  let uids_to_md4 uids = Line 114  let uids_to_md4 uids =
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 ->
# Line 134  let parse_razorback_stats stats md4 refe Line 134  let parse_razorback_stats stats md4 refe
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;
# Line 194  let parse_razorback_stats stats md4 refe Line 195  let parse_razorback_stats stats md4 refe
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 =
# Line 214  let get_razorback2_stats file progress1 Line 215  let get_razorback2_stats file progress1
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  (*  (*

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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