http-backend ( png-data uuid -- )

Vocabulary

visionect

Inputs

png-data	an object
uuid	an object

Outputs

None

Definition

USING: accessors http kernel make sequences visionect.private ;

IN: visionect

:: http-backend ( png-data uuid -- )
    png-data choose-boundary :> boundary
    "multipart/form-data; boundary=\"" boundary "\"" 3append
    :> content-type content-type <post-data> [
        "--" % boundary % "\r\n" %
        "Content-Disposition: form-data; name=\"image\"; filename=\"image..."
        % "Content-Type: image/png\r\n" % "\r\n" % png-data %
        "\r\n" % "--" % boundary % "--\r\n" %
    ] B{ } make >>data "/backend/" uuid append visionect-post
    drop ;