#! /bin/sh
# (*
exec /opt/ocaml-2.04/bin/ocamlfattop "$0" "$@"
*) directory ".";;
#directory "..";;
#load "netstring.cma";;
Cgi.header "";
Cgi.parse_arguments
{ Cgi.default_config with
Cgi.how_to_process_arguments = (fun _ -> Cgi.File)
};
let params = Cgi.arguments() in
print_string "\n";
print_string "Parameters:
\n";
print_string "\n";
List.iter
(fun (n,a) ->
print_string "- ";
print_string n;
print_string ":";
print_string (Cgi.arg_mimetype a);
print_string "=";
(match Cgi.arg_filename a with
None -> ()
| Some fn -> print_string ("[filename=" ^ fn ^ "]")
);
print_string (Cgi.arg_value a);
print_string "
\n";
)
params;
Cgi.cleanup();
print_string "
\n";
print_string "GET URL-encoded form
\n";
print_string "\n";
print_string "POST URL-encoded form
\n";
print_string "\n";
print_string "POST FORM-encoded form
\n";
print_string "\n";
print_string "File upload
\n";
print_string "\n";
print_string "\n";
flush stdout
;;