tests/https.tcl

   1 package require TclCurl
   2
   3 if {$tcl_platform(platform)=="windows"} {
   4     set certFile [file join $env(windir) curl-ca-bundle.crt]
   5 } else {
   6     set certFile /usr/local/share/curl/curl-ca-bundle.crt
   7 }
   8
   9 ::curl::transfer -url https://www.paypal.com/ -cainfo $certFile \
  10         -file paypal.html
  11
  12
  13 puts "https://www.paypal.com/ saved in 'paypal.html'"