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