Posted to tcl by Napier at Thu Oct 16 04:10:26 GMT 2014view pretty
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"]