ftp::Open -output example

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

package require ftp
proc test {s msg state} {
puts "s=$s"
puts "msg=$msg"
puts "state=$state"
}
set ftp::DEBUG 1
::ftp::Open 127.0.0.1 huli xxx -mode passive -output test