Overview
| Comment: | Updated to lowercase permissions read from the database, for security |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0ab26b4975759d347d56d1bf7b36e7c0 |
| User & Date: | rkeene on 2015-03-20 01:46:45 |
| Other Links: | manifest | tags |
Context
|
2015-03-20
| ||
| 01:50 | Updated to set umask on startup check-in: 01c5bfc689 user: rkeene tags: trunk | |
| 01:46 | Updated to lowercase permissions read from the database, for security check-in: 0ab26b4975 user: rkeene tags: trunk | |
|
2015-03-19
| ||
| 16:09 | Allow administrators to provide additional/replaced permissions for files, fixed suidRoot setting check-in: e9fcc6d8f5 user: rkeene tags: trunk | |
Changes
Modified appfsd.tcl from [ca14ca67ab] to [9ba44d8408].
| ︙ | ︙ | |||
805 806 807 808 809 810 811 812 813 814 815 816 817 818 |
array set retval [list type directory]
}
::appfs::db eval {SELECT type, time, source, size, perms FROM files WHERE package_sha1 = $pathinfo(package_sha1) AND file_directory = $directory AND file_name = $file;} retval {}
# Allow an administrator to supply additional permissions to remote files
if {[info exists retval(perms)]} {
set retval(perms) [::appfs::user::change_perms $path $retval(perms)]
}
if {[info exists retval(type)] && $retval(type) == "directory"} {
set retval(childcount) [llength [getchildren $path]]
}
| > > > > | 805 806 807 808 809 810 811 812 813 814 815 816 817 818 819 820 821 822 |
array set retval [list type directory]
}
::appfs::db eval {SELECT type, time, source, size, perms FROM files WHERE package_sha1 = $pathinfo(package_sha1) AND file_directory = $directory AND file_name = $file;} retval {}
# Allow an administrator to supply additional permissions to remote files
if {[info exists retval(perms)]} {
# Lower case this in case an upper-cased value was put in
# the database before we started lowercasing them
set retval(perms) [string tolower $retval(perms)]
set retval(perms) [::appfs::user::change_perms $path $retval(perms)]
}
if {[info exists retval(type)] && $retval(type) == "directory"} {
set retval(childcount) [llength [getchildren $path]]
}
|
| ︙ | ︙ |