(* $Id: cgi_mt.mtml,v 1.1 2004/06/30 22:28:12 stolpmann Exp $ *)

(* Initialize multi-threading mode for the legacy Cgi module: *)

let cgi_mutex = Mutex.create();;
Cgi.init_mt
  (fun () -> Mutex.lock cgi_mutex)
  (fun () -> Mutex.unlock cgi_mutex);