let get_html_arg cgi (key:string) = try let item = List.assoc key (cgi # arguments) in item # value with Not_found -> ""