request.ml

   1
   2 open Printf
   3 open Netcgi
   4
   5 let main (cgi:cgi) =
   6   let env = cgi#environment in
   7   let cgi_arg name = try Some (cgi#argument name)#value with _ -> None in
   8   let outs = cgi#out_channel#output_string in
   9   let out fmt = ksprintf outs fmt in
  10
  11   let dump_cgi () =
  12     out "cgi_properties\n";
  13     List.iter (fun (k,v) -> out "%s = %s\n" k v) env#cgi_properties;
  14     out "input_header_fields\n";
  15     List.iter (fun (k,v) -> out "%s = %s\n" k v) env#input_header_fields;
  16     out "cgi_arguments\n";
  17     List.iter (fun x -> out "%s = %s\n" x#name x#value) cgi#arguments
  18   in
  19
  20   cgi#set_header ~cache:`No_cache ~content_type:"text/plain" ();
  21   dump_cgi ();
  22
  23   ()
  24
  25 let main (cgi:cgi) =
  26   try
  27     main cgi;
  28     cgi#out_channel#commit_work ();
  29   with
  30     _ -> cgi#out_channel#rollback_work ()
  31