dispatch-by-header ( header -- ? )

Vocabulary

fastcgi

Inputs

header

an object

Outputs

?

an object

Definition

USING: accessors combinators io kernel math prettyprint
sequences strings ;

IN: fastcgi

: dispatch-by-header ( header -- ? )
    dup type>> {
        { FCGI_BEGIN_REQUEST [ process-begin-request t ] }
        { FCGI_PARAMS [ process-params t ] }
        {
            FCGI_STDIN
            [
                get-content-data dup append-stdin-data
                length 0 >
            ]
        }
        {
            FCGI_DATA
            [
                [ "FCGI_DATA ------------------\n" print ]
                debug-print get-content-data
                [ >string . ] debug-print f
            ]
        }
        [
            [ "unkown packet type" print ] debug-print drop
            [ . ] debug-print f
        ]
    } case ;