REBOL [
    Title:   "Input via CGI"
    Author:  "Mike Yaunish"
    Email:   mike.yaunish@home.com
    File:    %input-cgi.r
    Date:    20-Jul-1999
    Purpose: "Get CGI input with either POST or GET"
    Note:    "If CGI input exceeds 15,000 bytes, increase the size of stdin"
    Category: [cgi util 3]
]

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