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 ] ]