webdav

diff --git a/library/webdavvfs.tcl b/library/webdavvfs.tcl
index 303c8b17de50dce70df59e486766bad156fdc03d..8066ddab582b2b5865ac02b1d6d6a76467dfc13a 100644 (file)
--- 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