Commit 6473d6b1 authored by Idir Lankri's avatar Idir Lankri

Cgi: Add a function to retrieve the query string

parent 0166d3c4
......@@ -90,5 +90,10 @@ value create_env s =
value get key alist default =
try List.assoc key alist with [ Not_found -> default ]
;
value query_string () =
try Sys.getenv "QUERY_STRING" with [
Not_found -> assert False (* By RFC 3875 section 4.1.7 *)
]
;
(*i end; i*)
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment