X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FDEVEL%2Fpxp%2Fnetstring%2Ftests%2Ftest_encoding.cgi;fp=helm%2FDEVEL%2Fpxp%2Fnetstring%2Ftests%2Ftest_encoding.cgi;h=2402cdadfbc9a79251c0622e7333fee639ecc79b;hb=c03d2c1fdab8d228cb88aaba5ca0f556318bebc5;hp=0000000000000000000000000000000000000000;hpb=758057e85325f94cd88583feb1fdf6b038e35055;p=helm.git
diff --git a/helm/DEVEL/pxp/netstring/tests/test_encoding.cgi b/helm/DEVEL/pxp/netstring/tests/test_encoding.cgi
new file mode 100755
index 000000000..2402cdadf
--- /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 "\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
+;;
+
+