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