parse-post ( -- assoc )

Vocabulary

cgi.private

Inputs

None

Outputs

assoc

an object

Definition

USING: combinators environment kernel ;

IN: cgi.private

: parse-post ( -- assoc )
    "CONTENT_TYPE" os-env "" or content-type {
        { "multipart/form-data" [ multipart ] }
        { "application/x-www-form-urlencoded" [ urlencoded ] }
        [ drop parse-get ]
    } case nip ;