#####################################################
# Proc - Get URL
#####################################################
proc getUrl {url proxyHost proxyport userid password receiveFile } {
package require TclCurl
puts "\n get url $url\n"
puts "proxyhost = $proxyHost "
puts "proxyport = $proxyport "
set curlHandle [ ::curl::init ]
$curlHandle configure -url $url \
-userpwd $userid:$password \
-verbose 1 \
-proxy $proxyHost \
-proxyport $proxyport \
-proxytype http \
-errorbuffer errorBuffer \
-file $receiveFile \
-failonerror 1 \
-followlocation 1
# -verbose 1 \
if { [ catch { $curlHandle perform } r ] == 0 } {
set continue true
} else {
$curlHandle cleanup
return -code error "$r $errorBuffer"
}
set totalTime [ $curlHandle getinfo totaltime ]
set connectTime [ $curlHandle getinfo connecttime ]
set sizeDownload [ $curlHandle getinfo sizedownload ]
set speedDownoad [ $curlHandle getinfo speeddownload ]
puts " totalTime = $totalTime "
puts " connectTime = $connectTime "
puts " sizeDownload = $sizeDownload "
puts " speedDownoad = $speedDownoad "
set details [ list $totalTime $connectTime $sizeDownload $speedDownoad ]
$curlHandle cleanup
return [ list $r $details ]
}
