382 |
lprintf_nl () "Empty content for url %s" |
lprintf_nl () "Empty content for url %s" |
383 |
(Url.to_string r.req_url); |
(Url.to_string r.req_url); |
384 |
end; |
end; |
385 |
let filename = Filename.temp_file "http_" ".tmp" in |
let ext = (String.lowercase (Filename2.extension r.req_url.Url.short_file)) in |
386 |
|
let filename = Filename.temp_file "http_" (if ext = "" then ".tmp" else ext) in |
387 |
let oc = open_out_bin filename in |
let oc = open_out_bin filename in |
388 |
output_string oc s; |
output_string oc s; |
389 |
close_out oc; |
close_out oc; |