Posted to tcl by Napier at Fri Feb 12 04:52:33 GMT 2016view raw
- package require http
- package require tls
- ::tls::init -tls1 true -ssl3 false -ssl2 false
- ::http::register https 443 tls::socket
- set json {{"authToken":"eyJ0eXAiOiJKV1QiLCJhbGciOiJIUzI1NiJ9.eyJpZGVudGl0eUlEIjoidXMtZWFzdC0xOmM0MDE3M2IxLTljODMtNGVkYy1hZWZlLTM1YTY5MzU2ZjM5NSIsInN5c3RlbUlEIjoiMDA6MUY6Qjg6MTI6MDU6MzEiLCJ0b2tlbkV4cGlyZXMiOjE0NTU4NDM0ODkxMDV9.20J4BOAx2a7Jdw_gA1MNhal36b7Ig02w2hvcdKLsUjY","localTimestamp":1455253722878,"message":"Hello From URC","category":"Hello, Dash","type":"success","from":"System Monitor"}}
- try {
- set token [::http::geturl "https://gateway.dashos.net/v1/system/log" \
- -method POST \
- -query $json
- ]
- } on error {result options} {
- puts "\n\nError!\n---\n$result\n$options\n----\n\n"
- }