Posted to tcl by Napier at Thu Oct 16 04:10:26 GMT 2014view raw
- package require http
- package require tls
- ::http::register https 443 tls::socket
- set params "message=hi&user=u8TDFhR5nKU3G4McE3mcNWdLwWHQtf&token=avyNpxQvVBWr6sfNAuCpRUtfuLyKmx"
- set token [http::geturl https://api.pushover.net/1/messages.json -query $params -headers "Content-Type application/x-www-form-urlencoded"]