REBOL [
    Title:   "Cgi-input"
    Author:  "Mike Yaunish"
    Email:   mike.yaunish@home.com
    File:    %cgi-input.r
    Date:    20-Jul-1999
    Purpose: "Get CGI inut with either POST or GET"
]
cgi-input: 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
    ]
]