17 lines
537 B
Tcl
Executable File
17 lines
537 B
Tcl
Executable File
# Contributed by Jos Decoster
|
|
|
|
set curlHandle [curl::init]
|
|
|
|
$curlHandle configure \
|
|
-verbose 1 -failonerror 1 -errorbuffer ::errorBuffer \
|
|
-url $::url -file $::file \
|
|
-proxy $::proxy_host -proxyport $::proxy_port \
|
|
-proxyauth ntlm \
|
|
-proxyuserpwd $::proxy_user:$::proxy_password
|
|
|
|
if { [catch {$curlHandle perform} r] } {
|
|
return -code error "$r $::errorBuffer"
|
|
}
|
|
|
|
$curlHandle cleanup
|