From 427f22a688de2b9138097d878c367120fbde33ac Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Wed, 5 Sep 2001 15:52:56 +0000 Subject: [PATCH] http vfs --- library/httpvfs.tcl | 25 +------------------------ 1 file changed, 1 insertion(+), 24 deletions(-) diff --git a/library/httpvfs.tcl b/library/httpvfs.tcl index eab240d..f2869a8 100644 --- a/library/httpvfs.tcl +++ b/library/httpvfs.tcl @@ -2,10 +2,7 @@ package require vfs 1.0 package require http -# THIS DOES NOT WORK! - -# It's currently a copy of ftpvfs.tcl where there has basically been -# a global replacement of 'ftp' by 'http'. +# This works for basic operations, but has not been very debugged. namespace eval vfs::http {} @@ -121,28 +118,8 @@ proc vfs::http::open {dirurl name mode permissions} { proc vfs::http::matchindirectory {dirurl path actualpath pattern type} { ::vfs::log "matchindirectory $path $pattern $type" - set httpList [http::List $dirurl $path] - ::vfs::log "httpList: $httpList" set res [list] - foreach p $httpList { - regsub -all "\[ \t\]+" $p " " p - set items [split $p " "] - set name [lindex $items end] - set perms [lindex $items 0] - if {[::vfs::matchDirectories $type]} { - if {[string index $perms 0] == "d"} { - lappend res "$actualpath$name" - } - } - if {[::vfs::matchFiles $type]} { - if {[string index $perms 0] != "d"} { - lappend res "$actualpath$name" - } - } - - } - return $res } -- 2.23.0