tests/ntlm.tcl

   1 # Contributed by Jos Decoster
   2
   3 set curlHandle [curl::init]
   4
   5 $curlHandle configure                                        \
   6         -verbose 1 -failonerror 1 -errorbuffer ::errorBuffer \
   7         -url $::url -file $::file                            \
   8         -proxy $::proxy_host -proxyport $::proxy_port        \
   9         -proxyauth ntlm                                      \
  10         -proxyuserpwd $::proxy_user:$::proxy_password
  11
  12 if { [catch {$curlHandle perform} r] } {
  13     return -code error "$r $::errorBuffer"
  14 }
  15
  16 $curlHandle cleanup