14 lines
346 B
Tcl
14 lines
346 B
Tcl
|
package require TclCurl
|
||
|
|
|
||
|
|
if {$tcl_platform(platform)=="windows"} {
|
||
|
|
set certFile [file join $env(windir) curl-ca-bundle.crt]
|
||
|
|
} else {
|
||
|
|
set certFile /usr/local/share/curl/curl-ca-bundle.crt
|
||
|
|
}
|
||
|
|
|
||
|
|
::curl::transfer -url https://www.paypal.com/ -cainfo $certFile \
|
||
|
|
-file paypal.html
|
||
|
|
|
||
|
|
|
||
|
|
puts "https://www.paypal.com/ saved in 'paypal.html'"
|