48 lines
1.9 KiB
Tcl
48 lines
1.9 KiB
Tcl
|
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"
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|