examples/form.cgi

   1 #!/usr/bin/newlisp
   2 #
   3 # Demo of CGI 1.1 interface
   4 #
   5 # version 1.1
   6 #
   7 # get form data from CGI STDIN parse and
   8 # write back to the client browser
   9 #
  10 #
  11 #
  12
  13
  14 (print "Content-type: text/html\r\n\r\n")
  15 (println "<h3>Post or Get Variables</h3>\n")
  16
  17 (set 'input (read-line))
  18 (if (not input) (set 'input (env "QUERY_STRING")))
  19 (if input (begin
  20     (set 'vars (parse input "&"))
  21     (dolist (elmnt vars)
  22         (replace "+" elmnt " ")
  23         (println elmnt"<br>"))
  24     (println "<p>")))
  25
  26 #
  27 # command line arguments
  28 (print "<h3>Command line</h3>\n" (main-args) "<p>\n")
  29
  30 #
  31 # print environment variables
  32 (println "<h3>Environment Variables</h3>")
  33 (dolist (e (env)) (print e "<br>"))
  34 (println "<br>")
  35 (println "CGI by newLISP v." (sys-info -2))
  36 (exit)