Script Library: 1218 scripts
 

input-cgi.r

REBOL [ Title: "Input via CGI" Date: 20-Jul-1999 File: %input-cgi.r Author: "Mike Yaunish" Purpose: "Get CGI input with either POST or GET" Email: %mike--yaunish--home--com Note: {If CGI input exceeds 15,000 bytes, increase the size of stdin} library: [ level: 'intermediate platform: none type: 'tool domain: 'cgi tested-under: none support: none license: none see-also: none ] ] input-cgi: func [/stdin] [ stdin: make string! 15000 either system/options/cgi/request-method = "POST" [ read-io system/ports/input stdin 15000 return stdin ][ system/options/cgi/query-string ] ]
halt ;; to terminate script if DO'ne from webpage
Notes
  • email address(es) have been munged to protect them from spam harvesters. If you are a Library member, you can log on and view this script without the munging.
  • (mike:yaunish:home:com)