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"]