[REBOL] Re: POST
From: termin::terminal::sky::pl at: 27-Jun-2003 10:36
> On Thu, 26 Jun 2003 10:57:10 -0500
> "Harbaugh, John" <[John--Harbaugh--capmetro--org]> wrote:
> >
> >Can someone send me a form that works, a simple form
> >please.
> >
> >The ones that are posted do not work correctly.
>
> Hi John,
>
> See http://www.rebol.com/docs/cgi2.html#section-4.2
>
> --
> Graham Chiu
In fact script in this tutorial doesn't work with - for example - PWS.
Use this - which reads exact size of data (sorry - but i don't remember the
author).
input-cgi: func [/stdin] [
stdin: make string! 15000
either system/options/cgi/request-method = "POST" [
use [Length] [
Query: make string!
Length: 2 + to-integer system/options/cgi/content-length
read-io system/ports/input Query Length
Query
]
][
system/options/cgi/query-string
]
]
Aleksander K.