get-tclv ( type uuid -- config )

Vocabulary

visionect

Inputs

type	an object
uuid	an object

Outputs

config

an object

Definition

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

IN: visionect

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