     visionect-url <delete-request> visionect-request ;
 
 : 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>
 

        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 ;

: tclv-list ( uuid -- tclv )
    "/api/devicetclv/" prepend visionect-get "" like json> ;

: 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> ;

: 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> ;

: reboot-device ( uuid -- )
    f swap "/api/device/" "/reboot" surround visionect-post drop ;
