From 08ff982be0cba2b34948da17211106afa3d03795 Mon Sep 17 00:00:00 2001
From: Vince Darley <vincentdarley@sourceforge.net>
Date: Tue, 14 May 2002 08:51:35 +0000
Subject: [PATCH] webdav

---
 library/webdavvfs.tcl | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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
-- 
2.23.0