b2-upload-file* ( post-data headers bucket-name -- json )

Vocabulary

backblaze

Inputs

post-data	an object
headers	an object
bucket-name	an object

Outputs

json

an object

Definition

USING: accessors assocs assocs.extras http http.json kernel
sequences urls ;

IN: backblaze

: b2-upload-file* ( post-data headers bucket-name -- json )
    [
        "/b2api/v2/b2_upload_file" authorized-account-api-url
        prepend <post-request-with-headers> b2-add-auth-header
    ] dip get-bucket-by-name "bucketId" extract-key-value
    b2-get-upload-url
    [ "uploadUrl" of >url >>url ]
    [ "authorizationToken" of "Authorization" set-header ] bi
    dup header>> "Connection" delete-of drop
    http-request-json nip ;