From: Vince Darley <vincentdarley@sourceforge.net>
Date: Wed, 5 Sep 2001 14:13:00 +0000 (+0000)
Subject: ftp handles spaces and links
X-Git-Tag: vfs-1-2~117
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=0da0a6e31669c639a8ad85d3b6b156bfadbffa52;p=tclvfs

ftp handles spaces and links
---

diff --git a/library/ftpvfs.tcl b/library/ftpvfs.tcl
index 1d6104d..f4730df 100644
--- a/library/ftpvfs.tcl
+++ b/library/ftpvfs.tcl
@@ -88,7 +88,7 @@ proc vfs::ftp::stat {fd name} {
 proc vfs::ftp::access {fd name mode} {
     ::vfs::log "ftp-access $name $mode"
     if {$name == ""} { return 1 }
-    set info [vfs::ftp::_findFtpInfo $fd $name]
+    set info [_findFtpInfo $fd $name]
     if {[string length $info]} {
 	return 1
     } else {
@@ -162,16 +162,34 @@ proc vfs::ftp::_findFtpInfo {fd name} {
     ::vfs::log "findFtpInfo $fd $name"
     set ftpList [ftp::List $fd [file dirname $name]]
     foreach p $ftpList {
-	regsub -all "\[ \t\]+" $p " " p
-	set items [split $p " "]
-	set pname [lindex $items end]
+	foreach {pname perms} [_parseListLine $p] {}
 	if {$pname == [file tail $name]} {
-	    return $items
+	    return [list $perms]
 	}
     }
     return ""
 }
 
+# Currently returns a list of name and permissions
+proc vfs::ftp::_parseListLine {line} {
+    # Check for filenames with spaces
+    if {[regexp {([^ ]|[^0-9] )+$} $line name]} {
+	# Check for links
+	if {[set idx [string first " -> " $name]] != -1} {
+	    incr idx -1
+	    set name [string range $name 0 $idx]
+	}
+    }
+    regsub -all "\[ \t\]+" $line " " line
+    set items [split $line " "]
+    
+    if {![info exists name]} {set name [lindex $items end]}
+    
+    set perms [lindex $items 0]
+    
+    return [list $name $perms]
+}
+
 proc vfs::ftp::matchindirectory {fd path actualpath pattern type} {
     ::vfs::log "matchindirectory $path $pattern $type"
     set ftpList [ftp::List $fd $path]
@@ -179,10 +197,7 @@ proc vfs::ftp::matchindirectory {fd path actualpath pattern type} {
     set res [list]
 
     foreach p $ftpList {
-	regsub -all "\[ \t\]+" $p " " p
-	set items [split $p " "]
-	set name [lindex $items end]
-	set perms [lindex $items 0]
+	foreach {name perms} [_parseListLine $p] {}
 	if {[::vfs::matchDirectories $type]} {
 	    if {[string index $perms 0] == "d"} {
 		lappend res "$actualpath$name"