40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
-
+
-
-
+
+
+
+
|
# User-replaceable function get the home directory of the current user
proc get_homedir {} {
return [::appfsd::get_homedir]
}
# User-replacable function to update permissions
proc change_perms {file sha1 perms} {
proc change_perms {file hash perms {hashMethod "sha1"}} {
if {[info exists ::appfs::user::add_perms($file)]} {
append perms $::appfs::user::add_perms($file)
}
if {[info exists ::appfs::user::add_perms($sha1)]} {
append perms $::appfs::user::add_perms($sha1)
if {[info exists ::appfs::user::add_perms([list $hashMethod $hash])]} {
append perms $::appfs::user::add_perms([list $hashMethod $hash])
} elseif {$hashMethod eq "sha1" && [info exists ::appfs::user::add_perms($hash)]} {
append perms $::appfs::user::add_perms($hash)
}
return $perms
}
# User-replacable function to fetch a remote file
proc download_file {url {outputChannel ""}} {
|