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

visionect: fix get-tclv and set-tclv.

master
John Benediktsson 2020-04-21 12:33:55 -07:00
parent ecf9352a25
commit eef4e17727
1 changed files with 14 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
extra/visionect/visionect.factor
View File

@ -48,7 +48,9 @@ SYMBOL: visionect-api-secret
visionect-url <delete-request> visionect-request ; visionect-url <delete-request> visionect-request ;
: visionect-post ( post-data path -- data ) : visionect-post ( post-data path -- data )
visionect-url <post-request> visionect-request ; visionect-url <post-request>
dup post-data>> content-type>> "content-type" set-header
visionect-request ;
PRIVATE> PRIVATE>
@ -72,15 +74,17 @@ PRIVATE>
: tclv-list ( uuid -- tclv ) : tclv-list ( uuid -- tclv )
"/api/devicetclv/" prepend visionect-get "" like json> ; "/api/devicetclv/" prepend visionect-get "" like json> ;
: get-tclv ( uuid type -- config ) : get-tclv ( type uuid -- config )
[ "/api/cmd/Param/" prepend ] dip [
"{\"Data\": [{\"Type\": %d, \"Control\": 0, \"Value\": \"\"}]}" "{\"Data\": [{\"Type\": %d, \"Control\": 0, \"Value\": \"\"}]}"
sprintf swap visionect-post "" like json> ; sprintf B{ } like "application/json" <post-data> swap >>data
] dip "/api/cmd/Param/" prepend visionect-post "" like json> ;
: set-tclv ( uuid type value -- config ) : set-tclv ( type value uuid -- config )
[ "/api/cmd/Param/" prepend ] 2dip [
"{\"Data\": [{\"Type\": %d, \"Control\": 1, \"Value\": \"%s\"}]}" "{\"Data\": [{\"Type\": %d, \"Control\": 1, \"Value\": \"%s\"}]}"
sprintf swap visionect-post "" like json> ; sprintf B{ } like "application/json" <post-data> swap >>data
] dip "/api/cmd/Param/" prepend visionect-post "" like json> ;
: reboot-device ( uuid -- ) : reboot-device ( uuid -- )
f swap "/api/device/" "/reboot" surround visionect-post drop ; f swap "/api/device/" "/reboot" surround visionect-post drop ;
@ -182,7 +186,4 @@ PRIVATE>
png-data % "\n" % png-data % "\n" %
"--" % boundary % "--\n" % "--" % boundary % "--\n" %
] B{ } make >>data ] B{ } make >>data
"/backend/" uuid append visionect-url "/backend/" uuid append visionect-post drop ;
<post-request>
content-type "content-type" set-header
set-visionect-headers http-request 2drop ;