set-tclv ( type value uuid -- config )

Vocabulary

visionect

Inputs

type	an object
value	an object
uuid	an object

Outputs

config

an object

Definition

USING: accessors formatting http json kernel sequences
visionect.private ;

IN: visionect

: set-tclv ( type value uuid -- config )
    [
        "{\"Data\": [{\"Type\": %d, \"Control\": 1, \"Value\": \"%s\"}]}"
        sprintf B{ } like
        "application/json" <post-data> swap >>data
    ] dip "/api/cmd/Param/" prepend visionect-post "" like json>
    ;