Check-in [0ab26b4975]
Overview
SHA1:0ab26b4975759d347d56d1bf7b36e7c08fcb44d8
Date: 2015-03-20 01:46:45
User: rkeene
Comment:Updated to lowercase permissions read from the database, for security
Timelines: family | ancestors | descendants | both | trunk
Downloads: Tarball | ZIP archive
Other Links: files | file ages | folders | manifest
Tags And Properties
Context
2015-03-20
01:50
[01c5bfc689] Updated to set umask on startup (user: rkeene, tags: trunk)
01:46
[0ab26b4975] Updated to lowercase permissions read from the database, for security (user: rkeene, tags: trunk)
2015-03-19
16:09
[e9fcc6d8f5] Allow administrators to provide additional/replaced permissions for files, fixed suidRoot setting (user: rkeene, tags: trunk)
Changes

Modified appfsd.tcl from [ca14ca67ab] to [9ba44d8408].

   805    805   							array set retval [list type directory]
   806    806   						}
   807    807   
   808    808   						::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 {}
   809    809   
   810    810   						# Allow an administrator to supply additional permissions to remote files
   811    811   						if {[info exists retval(perms)]} {
          812  +							# Lower case this in case an upper-cased value was put in
          813  +							# the database before we started lowercasing them
          814  +							set retval(perms) [string tolower $retval(perms)]
          815  +
   812    816   							set retval(perms) [::appfs::user::change_perms $path $retval(perms)]
   813    817   						}
   814    818   
   815    819   						if {[info exists retval(type)] && $retval(type) == "directory"} {
   816    820   							set retval(childcount) [llength [getchildren $path]]
   817    821   						}
   818    822