--- /dev/null
+# 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