[hv]
When running in a shared environment, I often need to determine if a file belongs to me or not. Here is how I do it, if you know a different way, please contribute.



======
package require Tclx

#
# Does this file belong to me?
#
proc fileIsMine {fileName} {
    if {![file exists $fileName]} { return 0 }
    
    file stat $fileName stat
    if {$stat(uid) == [id userid]} {
        return 1
    } else {
        return 0
    }
}

#
# Rough test
#
set allFiles [glob -nocomplain /tmp/*]
set myUid [id userid]

foreach f $allFiles {
    file stat $f filestat
    if {[fileIsMine $f]} {
        puts "mine     - $f"
    } else {
        puts "not mine - $f"
    }
}
======