tests/cookieFile.tcl

   1 package require TclCurl
   2
   3 if {![file exists /home/andres/.getleft/cookies]} {
   4     puts "The given cookie file doesn't exist"
   5 }
   6
   7 curl::transfer -url 127.0.0.1 \
   8         -cookiefile "/home/andres/.getleft/cookies" -verbose 1
   9
  10
  11
  12
  13