Check-in [0ab26b4975]
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: 0ab26b4975759d347d56d1bf7b36e7c08fcb44d8
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]]
						}