From: Vince Darley <vincentdarley@sourceforge.net>
Date: Mon, 6 Jan 2003 16:05:35 +0000 (+0000)
Subject: ftp::ModTime addition
X-Git-Tag: vfs-1-2~20
X-Git-Url: https://privyetmir.co.uk/gitweb.cgi?a=commitdiff_plain;h=484af395d45e56a6f95d55b80e59b53d39caa445;p=tclvfs

ftp::ModTime addition
---

diff --git a/ChangeLog b/ChangeLog
index 9bb5d82..a5e2fcd 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2003-01-06  Vince Darley <vincentdarley@sourceforge.net>
+	* library/ftpvfs.tcl: allow 'file mtime' to set the modified
+	time of a file, if the ftp package supports it.
+	
 2002-12-24  Vince Darley <vincentdarley@sourceforge.net>
 	* library/ftpvfs.tcl: set the 'size' element in stat calls.
 	(Bug reported on comp.lang.tcl).
diff --git a/library/ftpvfs.tcl b/library/ftpvfs.tcl
index 3a629b7..80d55df 100644
--- a/library/ftpvfs.tcl
+++ b/library/ftpvfs.tcl
@@ -289,6 +289,9 @@ proc vfs::ftp::fileattributes {fd path args} {
 }
 
 proc vfs::ftp::utime {fd path actime mtime} {
-    error "Can't set utime"
+    # Will throw an error if ftp package is old and only
+    # handles 2 arguments.  But that is ok -- Tcl will give the
+    # user an appropriate error message.
+    ftp::ModTime $fd $path $mtime
 }