Check-in [2460a1ddab]
Overview
Comment:Started work on completely supporting multiple hashing algorithms
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | complete-multihash
Files: files | file ages | folders
SHA1:2460a1ddab6f0feb7b713c7117807fd543cc6483
User & Date: rkeene on 2017-01-19 17:49:06
Other Links: manifest | tags
Context
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
Changes

Modified appfsd.tcl from [985d2df621] to [bd58d61afc].

40
41
42
43
44
45
46
47
48
49
50
51
52


53
54
55
56
57
58
59
60

	# 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} {
		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)
		}

		return $perms
	}

	# User-replacable function to fetch a remote file
	proc download_file {url {outputChannel ""}} {







|




|
>
>
|







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