Parent Directory | Revision Log | Patch
revision 1.6 by spiralvoice, Fri Jul 22 14:32:12 2005 UTC | revision 1.7 by spiralvoice, Thu Jul 28 18:22:31 2005 UTC | |
---|---|---|
# | Line 251 let query_bitzi_ticket ticket = | Line 251 let query_bitzi_ticket ticket = |
251 | lprintf "********** Retrieve bitzi lookup by ed2k\n"; | lprintf "********** Retrieve bitzi lookup by ed2k\n"; |
252 | Http_client.wget_string | Http_client.wget_string |
253 | (make_request | (make_request |
254 | (Printf.sprintf "http://bitzi.com/lookup/urn:ed2k:%s" (Md4.to_string ed2k))) | (Printf.sprintf "http://bitzi.com/lookup/ed2k:%s" (Md4.to_string ed2k))) |
255 | (parse_bitzi_lookup ticket) progress | (parse_bitzi_lookup ticket) progress |
256 | | Md5Ext md5ext -> | | Md5Ext md5ext -> |
257 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |