tests/pop3.tcl

   1 package require TclCurl
   2
   3 set curlHandle [curl::init]
   4
   5 # This just checks the server for messages, if you want to download them
   6 # you need: -url "pop3://pop3.telefonica.net:110/1",  -url "pop3://pop3.telefonica.net:110/2", etc
   7
   8 $curlHandle configure -url "pop3://pop3.telefonica.net:110"
   9
  10 $curlHandle configure -username "fandom\$telefonica.net"
  11 $curlHandle configure -password "XXXXXXXX"
  12
  13 $curlHandle configure -bodyvar recieved
  14
  15 $curlHandle configure -verbose 1
  16
  17 $curlHandle perform
  18
  19 $curlHandle cleanup
  20
  21 puts "Recieved:"
  22 puts \n$recieved\n\n
  23
  24
  25
  26