View in B&W | License | Download script | History |
28-Mar 14:13 UTC
[0.062] 10.872k
[0.062] 10.872k
input-cgi.rREBOL [
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
]
] Notes
|