Posted to tcl by Jack at Mon Jan 23 20:38:13 GMT 2023view pretty

package require http
package require tls

bind pub - "!post" send:post

http::register https 443 [list ::tls::socket -tls1 1]

proc send:post { nick uhost hand chan text } {

#I need post the "text" value

set value $text

dict set params nick value
set urlBase "https://example.com/"
set req [::http::geturl $urlBase -query [http::formatQuery {*}$params]]
set rec [::http::data $req]

putserv "PRIVMSG #admin Debug: $params - $rec"

}