Posted to tcl by jdc at Fri Apr 20 10:01:39 GMT 2012view raw

  1. package require ftp
  2.  
  3. proc test {s msg state} {
  4. puts "s=$s"
  5. puts "msg=$msg"
  6. puts "state=$state"
  7. }
  8.  
  9. set ftp::DEBUG 1
  10. ::ftp::Open 127.0.0.1 huli xxx -mode passive -output test