Initial revision

[helm.git] / helm / DEVEL / pxp / netstring / tests / test_encoding.cgi
diff --git a/helm/DEVEL/pxp/netstring/tests/test_encoding.cgi b/helm/DEVEL/pxp/netstring/tests/test_encoding.cgi

new file mode 100755 (executable)

index 0000000..2402cda
--- /dev/null
+++ b/helm/DEVEL/pxp/netstring/tests/test_encoding.cgi
@@ -0,0 +1,72 @@
+#! /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 "<html><body>\n";
+print_string "<h1>Parameters:</h1>\n";
+print_string "<ul>\n";
+List.iter
+  (fun (n,a) ->
+     print_string "<li>";
+     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 "</li>\n";
+
+  )
+  params;
+
+Cgi.cleanup();
+
+print_string "</ul>\n";
+
+print_string "<h1>GET URL-encoded form</h1>\n";
+print_string "<form action=\"test_encoding.cgi\" method=GET>\n";
+print_string "<input type=text name=line>\n";
+print_string "<input type=submit name=submit value=\"Submit\">\n";
+print_string "</form>\n";
+
+print_string "<h1>POST URL-encoded form</h1>\n";
+print_string "<form action=\"test_encoding.cgi\" method=POST>\n";
+print_string "<input type=text name=line>\n";
+print_string "<input type=submit name=submit value=\"Submit\">\n";
+print_string "</form>\n";
+
+print_string "<h1>POST FORM-encoded form</h1>\n";
+print_string "<form action=\"test_encoding.cgi\" method=POST enctype=\"multipart/form-data\">\n";
+print_string "<input type=text name=line>\n";
+print_string "<input type=text name=\"sträange\">\n";
+print_string "<input type=submit name=submit value=\"Submit\">\n";
+print_string "</form>\n";
+
+print_string "<h1>File upload</h1>\n";
+print_string "<form action=\"test_encoding.cgi\" method=POST enctype=\"multipart/form-data\">\n";
+print_string "<input type=text name=line>\n";
+print_string "<input type=file name=file>\n";
+print_string "<input type=submit name=submit value=\"Submit\">\n";
+print_string "</form>\n";
+
+
+
+print_string "</body></html>\n";
+
+flush stdout
+;;
+
+