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

webdav
---

diff --git a/library/webdavvfs.tcl b/library/webdavvfs.tcl
index 303c8b1..8066dda 100644
--- a/library/webdavvfs.tcl
+++ b/library/webdavvfs.tcl
@@ -5,6 +5,7 @@ package require http
 package require base64
 
 # This works for very basic operations (cd, open, file stat, but not 'glob').
+# It has been put together, so far, largely by trial and error!
 
 namespace eval vfs::webdav {}
 
@@ -82,10 +83,9 @@ proc vfs::webdav::stat {dirurl extraHeadersList name} {
 	return $res
     }
     
-    ::vfs::log [list ::http::geturl $dirurl$name -headers $extraHeadersList]
     set token [::http::geturl $dirurl$name -headers $extraHeadersList]
-    ::vfs::log $token
     upvar #0 $token state
+
     if {![regexp " (OK|Moved Permanently)$" $state(http)]} {
 	::vfs::log "No good: $state(http)"
 	::http::cleanup $token