Posted to tcl by Napier at Thu Oct 16 04:10:26 GMT 2014view raw

  1. package require http
  2. package require tls
  3. ::http::register https 443 tls::socket
  4. set params "message=hi&user=u8TDFhR5nKU3G4McE3mcNWdLwWHQtf&token=avyNpxQvVBWr6sfNAuCpRUtfuLyKmx"
  5. set token [http::geturl https://api.pushover.net/1/messages.json -query $params -headers "Content-Type application/x-www-form-urlencoded"]