steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

visionect: get http-backend working properly.

master
John Benediktsson 2020-04-21 12:25:17 -07:00
parent e04a6e39f3
commit ecf9352a25
1 changed files with 43 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

54
extra/visionect/visionect.factor
View File

@ -1,9 +1,11 @@
! Copyright (C) 2020 John Benediktsson ! Copyright (C) 2020 John Benediktsson
! See http://factorcode.org/license.txt for BSD license ! See http://factorcode.org/license.txt for BSD license
USING: accessors assocs base64 calendar calendar.format USING: accessors assocs base64 calendar calendar.format
checksums.hmac checksums.sha combinators formatting http checksums.hmac checksums.sha combinators combinators.smart
http.client json.reader json.writer kernel math.parser formatting fry http http.client json.reader json.writer kernel
namespaces sequences ; locals make math.parser namespaces random sequences ;
IN: visionect IN: visionect
SYMBOL: visionect-base-url SYMBOL: visionect-base-url
@ -15,14 +17,20 @@ SYMBOL: visionect-api-secret
<PRIVATE <PRIVATE
: visionect-authorization ( verb date path -- auth ) : visionect-authorization ( request -- auth )
"%s\n\n\n%s\n%s" sprintf visionect-api-secret get sha-256 {
hmac-bytes >base64 visionect-api-key get ":" rot 3append ; [ method>> ]
[ "content-sha256" header ]
[ "content-type" header ]
[ "date" header ]
[ url>> path>> ]
} cleave>array "\n" join
visionect-api-secret get sha-256 hmac-bytes >base64
visionect-api-key get ":" rot 3append ;
: set-visionect-headers ( request -- request ) : set-visionect-headers ( request -- request )
now timestamp>http-string "Date" set-header now timestamp>http-string "date" set-header
dup [ method>> ] [ "Date" header ] [ url>> path>> ] tri dup visionect-authorization "authorization" set-header ;
visionect-authorization "Authorization" set-header ;
: visionect-request ( request -- data ) : visionect-request ( request -- data )
set-visionect-headers http-request nip ; set-visionect-headers http-request nip ;
@ -152,5 +160,29 @@ PRIVATE>
! ## BACKENDS ! ## BACKENDS
: http-backend ( png uuid -- ) <PRIVATE
"/backend/" prepend visionect-put drop ;
: choose-boundary ( data -- boundary )
f swap '[
drop 16 random-bytes bytes>hex-string
dup _ subseq?
] loop ;
PRIVATE>
:: http-backend ( png-data uuid -- )
png-data choose-boundary :> boundary
"multipart/form-data; boundary=\"" boundary "\"" 3append :> content-type
content-type <post-data>
[
"--" % boundary % "\n" %
"Content-Disposition: form-data; name=\"image\"; filename=\"image.png\"\n" %
"Content-Type: image/png\n" %
"\n" %
png-data % "\n" %
"--" % boundary % "--\n" %
] B{ } make >>data
"/backend/" uuid append visionect-url
<post-request>
content-type "content-type" set-header
set-visionect-headers http-request 2drop ;