when making 'dist' remove old spurious dist directories

[helm.git] / helm / DEVEL / ocaml-http / http_request.ml

diff --git a/helm/DEVEL/ocaml-http/http_request.ml b/helm/DEVEL/ocaml-http/http_request.ml
index 91bc98a67ac5138fe8a001671037b0e8c9bb4449..c135c95b31059294582dd98161fcfde6e5525f31 100644 (file)
--- a/helm/DEVEL/ocaml-http/http_request.ml
+++ b/helm/DEVEL/ocaml-http/http_request.ml
@@ -20,10 +20,10 @@
 *)
 
 open Http_common;;
+open Http_types;;
 
-exception Param_not_found of string
-
-class request ~path ~params =
+class request ~path ~params ~clisockaddr =
+  let (addr, port) = Http_misc.explode_sockaddr clisockaddr in
   object (self)
     val params_tbl =
       let tbl = Hashtbl.create (List.length params) in
@@ -39,6 +39,10 @@ class request ~path ~params =
         Hashtbl.find params_tbl name
       with Not_found ->
         raise (Param_not_found name)
+    method paramAll name = List.rev (Hashtbl.find_all params_tbl name)
     method params = params
+    method clientSockaddr = clisockaddr
+    method clientAddr = addr
+    method clientPort = port
   end