http200Aliases.tcl

   1 package require TclCurl
   2
   3 curl::transfer -url "127.0.0.1" -verbose 1 -nobody 1 -header 1     \
   4         -http200aliases [list "yummy/4.5 200 OK" "great/1.3 350 WRONG"]
   5
   6
   7
   8
   9
  10
  11
  12