add custom method variant for extended HTTP methods

close #26

src/core/ezcurl_core.ml

@@ -203,6 +203,7 @@ type meth =
   | OPTIONS
   | TRACE
   | PATCH
+  | HTTP_CUSTOM of string
 
 let string_of_meth = function
   | GET -> "GET"
@@ -214,6 +215,7 @@ let string_of_meth = function
   | OPTIONS -> "OPTIONS"
   | TRACE -> "TRACE"
   | PATCH -> "PATCH"
+  | HTTP_CUSTOM s -> s
 
 let pp_meth out m = Format.pp_print_string out (string_of_meth m)
 
@@ -399,7 +401,9 @@ module Make (IO : IO) : S with type 'a io = 'a IO.t = struct
     let do_cleanup, self =
       match client with
       | None -> true, make ()
-      | Some c -> false, c
+      | Some c ->
+        Curl.reset c.curl;
+        false, c
     in
     _apply_config self config;
     opt_iter range ~f:(fun s -> Curl.set_range self.curl s);
@@ -440,7 +444,10 @@ module Make (IO : IO) : S with type 'a io = 'a IO.t = struct
     | HEAD -> Curl.set_customrequest self.curl "HEAD"
     | CONNECT -> Curl.set_customrequest self.curl "CONNECT"
     | OPTIONS -> Curl.set_customrequest self.curl "OPTIONS"
-    | TRACE -> Curl.set_customrequest self.curl "TRACE");
+    | TRACE -> Curl.set_customrequest self.curl "TRACE"
+    | HTTP_CUSTOM s ->
+      Curl.set_customrequest self.curl s;
+      if content <> None then Curl.set_upload self.curl true);
 
     _set_headers self !headers;
     Curl.set_headerfunction self.curl (fun s0 ->

src/core/ezcurl_core.mli

@@ -114,6 +114,7 @@ type meth =
   | OPTIONS
   | TRACE
   | PATCH
+  | HTTP_CUSTOM of string  (** Custom HTTP method (e.g., for WebDAV) *)
 
 val pp_meth : Format.formatter -> meth -> unit
 val string_of_meth : meth -> string