Changeset 38147

Timestamp:

07/08/2008 14:01:25 (4 years ago)

Author:

pmagrath@…

Message:

Re-wrote chown proc to use fs-traverse (suggested by Eridius. Thanks!)

Files:

• branches/gsoc08-privileges/base/src/port1.0/portutil.tcl (modified) (1 diff)

branches/gsoc08-privileges/base/src/port1.0/portutil.tcl

@@ -2274 +2274 @@
         
     if {[file isdirectory $path]} {
-                foreach g [glob [file join $path *]] {
-                        chown $g $user
+                fs-traverse myfile ${path} {
+                        file attributes $myfile -owner [name_to_uid "$user"]
                 }
     }
-}
-
+    
+}
+