From 3fd9ac41f411c36c7d2d9edd113e18c1daeeedf5 Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Tue, 14 May 2002 09:20:24 +0000 Subject: [PATCH] webdav --- library/webdavvfs.tcl | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/library/webdavvfs.tcl b/library/webdavvfs.tcl index 8066dda..656589a 100644 --- a/library/webdavvfs.tcl +++ b/library/webdavvfs.tcl @@ -83,6 +83,9 @@ proc vfs::webdav::stat {dirurl extraHeadersList name} { return $res } + # This is a bit of a hack. We really want to do a 'PROPFIND' + # request with depth 0, I believe. I don't think Tcl's http + # package supports that. set token [::http::geturl $dirurl$name -headers $extraHeadersList] upvar #0 $token state @@ -168,6 +171,8 @@ proc vfs::webdav::matchindirectory {dirurl extraHeadersList path actualpath patt ::vfs::log "matchindirectory $path $pattern $type" set res [list] + puts stderr "The 'PROPFIND' method not implemented. Please help!" + if {[string length $pattern]} { # need to match all files in a given remote http site. -- 2.23.0