Changes On Branch 2460a1ddab6f0feb

Changes In Branch complete-multihash Through [2460a1ddab] Excluding Merge-Ins

This is equivalent to a diff from 3864351ad4 to 2460a1ddab

2017-02-06
15:57
Added support for a Tcl "exec" target to be compiled in check-in: 3d73fc5750 user: rkeene tags: trunk
2017-01-20
17:19
More work towards actually doing multiple hashing algorithms Leaf check-in: bfaf95df49 user: rkeene tags: complete-multihash
2017-01-19
17:49
Started work on completely supporting multiple hashing algorithms check-in: 2460a1ddab user: rkeene tags: complete-multihash
2016-07-10
19:26
Added support for allowing the user to completely control how downloads are performed as well as configure the default method check-in: 3864351ad4 user: rkeene tags: trunk
19:05
Fixed typo in debug message check-in: 936a791a4a user: rkeene tags: trunk

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 ""}} {