signature ( s3-request -- string )

Vocabulary

s3.private

Inputs

s3-request

an object

Outputs

string

an object

Definition

USING: accessors calendar.format combinators kernel make
sequences ;

IN: s3.private

: signature ( s3-request -- string )
    [
        {
            [ method>> % "\n" % "\n" % ]
            [ mime-type>> % "\n" % ]
            [ date>> timestamp>rfc822 % "\n" % ]
            [ headers>> [ hashtable>headers [ % ] each ] when* ]
            [ bucket>> [ "/" % % ] when* ]
            [ path>> % ]
        } cleave
    ] "" make ;