]> git.sven.stormbind.net Git - sven/tclcurl.git/blob - tests/https.tcl
Add d/pattches/bts719441.patch - thanks to Christian Werner! (Closes: #719441.patch)
[sven/tclcurl.git] / 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'"