Parent Directory | Revision Log | Patch
revision 1.15 by spiralvoice, Thu Jul 14 14:05:25 2005 UTC | revision 1.16 by spiralvoice, Fri Jul 22 10:58:55 2005 UTC | |
---|---|---|
# | Line 57 let mldonkey_wget url f = | Line 57 let mldonkey_wget url f = |
57 | H.wget r f | H.wget r f |
58 | ||
59 | let load_url kind url = | let load_url kind url = |
60 | lprintf_nl "CommonWeb: QUERY URL %s" url; | lprintf_nl "CommonWeb: Loading %s" url; |
61 | let f = | let f = |
62 | try | try |
63 | (List.assoc kind !file_kinds) url | (List.assoc kind !file_kinds) url |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |