3 exec /opt/ocaml-2.04/bin/ocamlfattop "$0" "$@"
7 #load "netstring.cma";;
11 { Cgi.default_config with
12 Cgi.how_to_process_arguments = (fun _ -> Cgi.File)
14 let params = Cgi.arguments() in
15 print_string "<html><body>\n";
16 print_string "<h1>Parameters:</h1>\n";
17 print_string "<ul>\n";
23 print_string (Cgi.arg_mimetype a);
25 (match Cgi.arg_filename a with
27 | Some fn -> print_string ("[filename=" ^ fn ^ "]")
29 print_string (Cgi.arg_value a);
30 print_string "</li>\n";
37 print_string "</ul>\n";
39 print_string "<h1>GET URL-encoded form</h1>\n";
40 print_string "<form action=\"test_encoding.cgi\" method=GET>\n";
41 print_string "<input type=text name=line>\n";
42 print_string "<input type=submit name=submit value=\"Submit\">\n";
43 print_string "</form>\n";
45 print_string "<h1>POST URL-encoded form</h1>\n";
46 print_string "<form action=\"test_encoding.cgi\" method=POST>\n";
47 print_string "<input type=text name=line>\n";
48 print_string "<input type=submit name=submit value=\"Submit\">\n";
49 print_string "</form>\n";
51 print_string "<h1>POST FORM-encoded form</h1>\n";
52 print_string "<form action=\"test_encoding.cgi\" method=POST enctype=\"multipart/form-data\">\n";
53 print_string "<input type=text name=line>\n";
54 print_string "<input type=text name=\"sträange\">\n";
55 print_string "<input type=submit name=submit value=\"Submit\">\n";
56 print_string "</form>\n";
58 print_string "<h1>File upload</h1>\n";
59 print_string "<form action=\"test_encoding.cgi\" method=POST enctype=\"multipart/form-data\">\n";
60 print_string "<input type=text name=line>\n";
61 print_string "<input type=file name=file>\n";
62 print_string "<input type=submit name=submit value=\"Submit\">\n";
63 print_string "</form>\n";
67 print_string "</body></html>\n";