process-header ( multipart -- multipart )

Vocabulary

mime.multipart

Inputs

multipart

an object

Outputs

multipart

an object

Definition

USING: accessors combinators http kernel splitting ;

IN: mime.multipart

: process-header ( multipart -- multipart )
    dup "content-disposition" header ";" split1 swap {
        {
            "form-data"
            [
                parse-content-disposition-form-data
                >>content-disposition parse-form-data
            ]
        }
        [ no-content-disposition ]
    } case ;