@@ -691,16 +691,19 @@ The use of the variable tls::debug is not recommended. It may be removed from future releases.
+ +These examples use the default Unix platform SSL certificates. For standard +installations, -cadir and -cafile should not be needed. If your certificates +are in non-standard locations, update -cadir or use -cafile as needed.
This example uses the default Unix platform SSL certificates. For standard -installations, -cadir and -cafile should not be needed. Update -cadir or -replace with -cafile if your platform differs.
package require http
package require tls
set url "https://www.tcl.tk/"
@@ -750,13 +753,15 @@
This example uses the default Unix platform SSL certificates. For standard -installations, -cadir and -cafile should not be needed. Update -cadir or -replace with -cafile if your platform differs.
+These examples use the default Unix platform SSL certificates. For standard +installations, -cadir and -cafile should not be needed. If your certificates +are in non-standard locations, update -cadir or use -cafile as needed.
+ +Example #1: Get web page
package require http
package require tls
set url "https://www.tcl.tk/"
@@ -769,13 +774,33 @@
puts [format "Error %s" [http::status $token]]
}
# Get web page
set data [http::data $token]
-puts [string length $data]
+puts $data
+
+# Cleanup
+::http::cleanup $token
+
+
+Example #2: Download file
+
+
+package require http
+package require tls
+
+set url "https://wiki.tcl-lang.org/sitemap.xml"
+set filename [file tail $url]
+
+http::register https 443 [list ::tls::socket -autoservername true -require true -cadir /etc/ssl/certs]
+
+# Get file
+set ch [open $filename wb]
+set token [::http::geturl $url -blocksize 65536 -channel $ch]
# Cleanup
+close $ch
::http::cleanup $token
socket, fileevent, OpenSSL
+socket, fileevent, http, +OpenSSL
Copyright © 1999 Matt Newman. Copyright © 2004 Starfish Systems. +Copyright © 2023 Brian O'Hagan.