you need to use double-quotes " " around values if there's a space in there.
and ioB won't accept quotes there i'd guess.
I think i remember changing ftp.tcl to accept quotes...
try this (add the bold block that isn't there in yours):
proc ::ftp::Quote {s args} {
upvar ::ftp::ftp$s ftp
if {[string last "\{" $args] != -1} {
set args [string range $args [expr [string last "{" $args]+1] [expr [string first "}" $args]-1]]
}
if { ![info exists ftp(State)] } {
DisplayMsg $s "Not connected!" error
return 0
}
...
|