TclApps Library Source Code
View Ticket
Not logged in
Bounty program for improvements to Tcl and certain Tcl packages.
Ticket UUID: 991452
Title: ftp::Quote should join arguments
Type: Bug Version: None
Submitter: nobody Created on: 2004-07-15 09:18:59
Subsystem: ftp Assigned To: gwlester
Priority: 5 Medium Severity:
Status: Deleted Last Modified: 2013-07-04 18:04:12
Resolution: Not Applicable Here Closed By:
    Closed on:
Description:
in ::ftp::Quote arguments are simply reached to the server,
but this is a tcl list. If list values contain spaces
or special
characters, tcl wraps list elements in braces and these get
handed over to the ftp-server.

I suggest the following mini-patch, which joins the
args by spaces:

--- ftp.tcl.orig        Thu Jul 15 10:42:53 2004
+++ ftp.tcl     Thu Jul 15 10:38:18 2004
@@ -2201,7 +2201,7 @@
         return 0
     }
 
-    set ftp(Cmd) $args
+    set ftp(Cmd) [join $args " "]
     set ftp(Quote) {}
 
     set ftp(State) quote