helm/DEVEL/pxp/netstring/tests/test_encoding.cgi

   1 #! /bin/sh
   2 # (*
   3 exec /opt/ocaml-2.04/bin/ocamlfattop "$0" "$@"
   4 *) directory ".";;
   5
   6 #directory "..";;
   7 #load "netstring.cma";;
   8
   9 Cgi.header "";
  10 Cgi.parse_arguments
  11   { Cgi.default_config with
  12       Cgi.how_to_process_arguments = (fun _ -> Cgi.File)
  13   };
  14 let params = Cgi.arguments() in
  15 print_string "<html><body>\n";
  16 print_string "<h1>Parameters:</h1>\n";
  17 print_string "<ul>\n";
  18 List.iter
  19   (fun (n,a) ->
  20      print_string "<li>";
  21      print_string n;
  22      print_string ":";
  23      print_string (Cgi.arg_mimetype a);
  24      print_string "=";
  25      (match Cgi.arg_filename a with
  26           None -> ()
  27         | Some fn -> print_string ("[filename=" ^ fn ^ "]")
  28      );
  29      print_string (Cgi.arg_value a);
  30      print_string "</li>\n";
  31
  32   )
  33   params;
  34
  35 Cgi.cleanup();
  36
  37 print_string "</ul>\n";
  38
  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";
  44
  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";
  50
  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";
  57
  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";
  64
  65
  66
  67 print_string "</body></html>\n";
  68
  69 flush stdout
  70 ;;
  71
  72