Merge pull request #715 from ocsigen/fixupload

[Eliom_request_info] Restore functions to access uploaded file info

opam

@@ -1,6 +1,6 @@
 opam-version: "2.0"
 name: "eliom"
-version: "8.7.0"
+version: "8.8.0"
 maintainer: "dev@ocsigen.org"
 authors: "dev@ocsigen.org"
 synopsis: "Client/server Web framework"

src/lib/eliom_request_info.server.ml

@@ -331,6 +331,9 @@ let get_ri () =
   get_ri_sp sp
 
 let get_tmp_filename fi = fi.Ocsigen_extensions.tmp_filename
+let get_filesize fi = fi.Ocsigen_extensions.filesize
+let get_original_filename fi = fi.Ocsigen_extensions.raw_original_filename
+let get_file_content_type fi = fi.file_content_type
 
 let get_sitedata () =
   find_sitedata "get_sitedata"

src/lib/eliom_request_info.server.mli

@@ -127,6 +127,18 @@ val get_previous_extension_error_code : unit -> int
 (** returns the filename used by Ocsigen for the uploaded file. *)
 val get_tmp_filename : Ocsigen_extensions.file_info -> string
 
+(** returns the size of the uploaded file. *)
+val get_filesize : Ocsigen_extensions.file_info -> int64
+
+(** returns the name the file had on the client when it has been sent. *)
+val get_original_filename : Ocsigen_extensions.file_info -> string
+
+(** returns the content type sent by the browser with the file
+    (if any). *)
+val get_file_content_type :
+  Ocsigen_extensions.file_info -> ((string * string) * (string * string) list) option
+
+
 (** returns the root of the site. *)
 val get_site_dir : unit -> Eliom_lib.Url.path