simon/ezcurl
1
0
Fork 0
mirror of https://github.com/c-cube/ezcurl.git synced 2025-12-05 19:00:34 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

make sure to setup PUT correctly

Browse source 
follow https://curl.se/libcurl/c/CURLOPT_UPLOAD.html and also set
the method to PUT.
This commit is contained in:
Simon Cruanes 2023-02-02 12:17:35 -05:00
parent 5ba64ee30a
commit f70f25d951
1 changed files with 15 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
src/core/Ezcurl_core.ml
View file

@ -296,9 +296,14 @@ module Make(IO : IO)
let n = f buf len in let n = f buf len in
Bytes.sub_string buf i n) Bytes.sub_string buf i n)
let content_size_ = function
| `String s -> Some (String.length s)
| `Write _ -> None
let http let http
?(tries=1) ?client ?(config=Config.default) ?range ?content ?(headers=[]) ~url ~meth () ?(tries=1) ?client ?(config=Config.default) ?range ?content ?(headers=[]) ~url ~meth ()
: _ result io = : _ result io =
let headers = ref headers in
let do_cleanup, self = match client with let do_cleanup, self = match client with
| None -> true, make() | None -> true, make()
| Some c -> | Some c ->
@ -309,7 +314,12 @@ module Make(IO : IO)
(* TODO: ability to make content a stream with a `read` function *) (* TODO: ability to make content a stream with a `read` function *)
opt_iter content opt_iter content
~f:(fun content -> ~f:(fun content ->
Curl.set_readfunction self (content_read_fun_ content)); Curl.set_readfunction self (content_read_fun_ content);
(* also set size if known *)
match content_size_ content with
| None -> headers := ("transfer-encoding", "chunked") :: !headers
| Some size -> Curl.set_infilesize self size
);
(* local state *) (* local state *)
let tries = max tries 1 in (* at least one attempt *) let tries = max tries 1 in (* at least one attempt *)
let body = Buffer.create 64 in let body = Buffer.create 64 in
@ -321,7 +331,9 @@ module Make(IO : IO)
Curl.set_post self true Curl.set_post self true
| POST l -> Curl.set_httppost self l; | POST l -> Curl.set_httppost self l;
| GET -> Curl.set_httpget self true; | GET -> Curl.set_httpget self true;
| PUT -> Curl.set_put self true; | PUT ->
Curl.set_customrequest self "PUT";
Curl.set_upload self true;
| DELETE -> Curl.set_customrequest self "DELETE"; | DELETE -> Curl.set_customrequest self "DELETE";
| HEAD -> Curl.set_customrequest self "HEAD" | HEAD -> Curl.set_customrequest self "HEAD"
| CONNECT -> Curl.set_customrequest self "CONNECT" | CONNECT -> Curl.set_customrequest self "CONNECT"
@ -329,7 +341,7 @@ module Make(IO : IO)
| TRACE -> Curl.set_customrequest self "TRACE" | TRACE -> Curl.set_customrequest self "TRACE"
| PATCH -> Curl.set_customrequest self "PATCH" | PATCH -> Curl.set_customrequest self "PATCH"
end; end;
_set_headers self headers; _set_headers self !headers;
Curl.set_headerfunction self Curl.set_headerfunction self
(fun s0 -> (fun s0 ->
let s = String.trim s0 in let s = String.trim s0 in