save-uploaded-file ( multipart -- )

Vocabulary

mime.multipart

Inputs

multipart

an object

Outputs

None

Definition

USING: accessors assocs kernel quoting ;

IN: mime.multipart

: save-uploaded-file ( multipart -- )
    dup filename>> empty-name?
    [ drop ] [
        [
            [ header>> ] [ filename>> ] [ temp-file>> ] tri
            <mime-file>
        ] [ content-disposition>> "name" of unquote ]
        [ mime-parts>> set-at ] tri
    ] if ;