open Http_common;;
open Http_types;;
-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
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