Artifact
c982eb77c4986a79f3b82dfc9f096b9c3f4d9f0b:
Attachment "diff" to
ticket [1006157fff]
added by
afaupell
2004-10-05 15:20:18.
Index: ftpd.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftpd/ftpd.tcl,v
retrieving revision 1.25
diff -u -r1.25 ftpd.tcl
--- ftpd.tcl 26 May 2004 04:24:29 -0000 1.25
+++ ftpd.tcl 5 Oct 2004 08:18:24 -0000
@@ -1822,17 +1822,14 @@
if {[string equal $tcl_platform(platform) "unix"]} {
set user [file attributes $f -owner]
set group [file attributes $f -group]
-
- puts $outchan [format "%s %3d %s %8s %11s %s %s" \
- [PermBits $f $stat(mode)] $stat(nlink) \
- $user $group $stat(size) \
- [FormDate $stat(mtime)] [file tail $f]]
} else {
- puts $outchan [format "%s %3d %11s %s %s" \
- [PermBits $f $stat(mode)] $stat(nlink) \
- $stat(size) [FormDate $stat(mtime)] \
- [file tail $f]]
+ set user owner
+ set group group
}
+ puts $outchan [format "%s %3d %s %8s %11s %s %s" \
+ [PermBits $f $stat(mode)] $stat(nlink) \
+ $user $group $stat(size) \
+ [FormDate $stat(mtime)] [file tail $f]]
}
}
default {
