serve-cgi ( name -- response )

Vocabulary

http.server.cgi

Inputs

name

an object

Outputs

response

an object

Definition

USING: accessors http http.server io io.backend io.encodings
io.encodings.binary io.launcher io.streams.duplex kernel
namespaces ;

IN: http.server.cgi

: serve-cgi ( name -- response )
    <raw-response> 200 >>code "CGI output follows" >>message
    swap [ [ binary encode-output output-stream get ] ] dip [
        normalize-path <cgi-process> binary <process-stream> [
            post-request?
            [ request get post-data>> data>> write flush ] when
            [ stream-write ] curry each-block
        ] with-stream
    ] curry compose >>body ;