Artifact b4a4751d5c76b9a59602b328614836e2c49f271dcf2d76475e33fbfe0d798278:

• File demos/http_get_file.tcl — part of check-in [ca1a846290] at 2025-01-02 18:05:37 on branch main — Tag as TLS 1.8 release (user: bohagan, size: 736) [annotate] [blame] [check-ins using]

#################################################
#
# Download file using HTTP package
#
#################################################

package require Tcl 8.6-
package require tls
package require http

set url "https://wiki.tcl-lang.org/sitemap.xml"
set protocol "http/1.1"
set filename [file tail $url]

# Register https protocol handler with http package
http::register https 443 [list ::tls::socket -autoservername 1 -require 1 -alpn [list [string tolower $protocol]]]

# Open output file
set ch [open $filename wb]

# Get webpage
set token [::http::geturl $url -blocksize 16384 -channel $ch]
if {[http::status $token] ne "ok"} {
    puts [format "Error %s" [http::status $token]]
}

# Cleanup
::http::cleanup $token
close $ch