From 484af395d45e56a6f95d55b80e59b53d39caa445 Mon Sep 17 00:00:00 2001 From: Vince Darley Date: Mon, 6 Jan 2003 16:05:35 +0000 Subject: [PATCH] ftp::ModTime addition --- ChangeLog | 4 ++++ library/ftpvfs.tcl | 5 ++++- 2 files changed, 8 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 9bb5d82..a5e2fcd 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,7 @@ +2003-01-06 Vince Darley + * 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 * 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 } -- 2.23.0