visionect-authorization ( request -- auth )

Vocabulary

visionect.private

Inputs

request

an object

Outputs

auth

an object

Definition

USING: accessors base64 checksums.hmac checksums.sha
combinators.smart http kernel namespaces sequences splitting
visionect ;

IN: visionect.private

: visionect-authorization ( request -- auth )
    {
        [ method>> ]
        [ "content-sha256" header ]
        [ "content-type" header ]
        [ "date" header ]
        [ url>> path>> ]
    } cleave>array
    join-lines visionect-api-secret get sha-256 hmac-bytes
    >base64 visionect-api-key get ":" rot 3append ;