1 package require TclCurl
3 curl::transfer -url "127.0.0.1" -filetime 1 \
4 -infoeffectiveurl effectiveUrl -inforesponsecode httpCode \
5 -infofiletime fileTime -infototaltime totalTime \
6 -infonamelookuptime nameLookUpTime \
7 -infoconnecttime connectTime -infopretransfertime preTime \
8 -infostarttransfertime startTransferTime \
9 -infosizeupload sizeUpload -infosizedownload sizeDownload \
10 -infospeeddownload speedDownload -infospeedupload speedUpload \
11 -infoheadersize headerSize -inforequestsize requestSize \
12 -infosslverifyresult sslVerifyResult \
13 -infocontentlengthupload contentLengthUpload \
14 -infocontentlengthdownload contentLengthDownload \
15 -infocontenttype contentType \
16 -inforedirecttime redirectTime \
17 -inforedirectcount redirectCount
20 puts "Url: $effectiveUrl"
21 puts "Response code: $httpCode"
22 puts "Filetime: $fileTime - [clock format $fileTime]"
23 puts "Total time: $totalTime"
24 puts "Name lookup time: $nameLookUpTime"
25 puts "Name connect time: $connectTime"
26 puts "Name pretransfer time: $preTime"
27 puts "Name start transfer time: $startTransferTime"
28 puts "Name size upload: $sizeUpload"
29 puts "Name size download: $sizeDownload"
30 puts "Name speed download: $speedDownload"
31 puts "Name speed upload: $speedUpload"
32 puts "Name header size: $headerSize"
33 puts "Name request size: $requestSize"
34 puts "Name ssl verifyresult: $sslVerifyResult"
35 puts "Name length download: $contentLengthDownload"
36 puts "Name length upload: $contentLengthUpload"
37 puts "Content-Type: $contentType"
38 puts "Redirect time: $redirectTime"
39 puts "Redirect count: $redirectCount"