From: Vince Darley <vincentdarley@sourceforge.net>
Date: Tue, 14 May 2002 09:20:24 +0000 (+0000)
Subject: webdav
X-Git-Tag: vfs-1-2~44
X-Git-Url: http://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=3fd9ac41f411c36c7d2d9edd113e18c1daeeedf5;p=tclvfs

webdav
---

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.