tests/transfer.tcl

   1 package require TclCurl
   2
   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
  18
  19
  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"
  40
  41
  42
  43
  44
  45
  46
  47