*)
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
Hashtbl.find params_tbl name
with Not_found ->
raise (Param_not_found name)
- method param_all name = List.rev (Hashtbl.find_all params_tbl 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