ftp::ModTime addition

diff --git a/ChangeLog b/ChangeLog
index 9bb5d8209bcfb026ac0a05bbbfea36419a6a7616..a5e2fcda1b827ddbfc37434dc171788cbc24c237 100644 (file)
--- 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 3a629b7417098903ae0f742c8b056387554ac66b..80d55df1ba95567345ec98104de07ed57c92249c 100644 (file)
--- 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
 }