- method param ?meth name =
- (match (meth: meth option) with
- | None ->
- (try
- Hashtbl.find params_tbl name
- with Not_found -> raise (Param_not_found name))
- | Some `GET -> List.assoc name query_get_params
- | Some `POST -> List.assoc name query_post_params)
+ method param ?(meth: meth option) ?(default: string option) name =
+ try
+ (match meth with
+ | None -> Hashtbl.find params_tbl name
+ | Some `GET -> List.assoc name query_get_params
+ | Some `POST -> List.assoc name query_post_params)
+ with Not_found ->
+ (match default with
+ | None -> raise (Param_not_found name)
+ | Some value -> value)