Check-in [0cefa306d2]
Overview
Comment:Updated to complain if hash cannot be computed
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:0cefa306d2c94a8f9057d11cbcff8cdd8458ea8b
User & Date: rkeene on 2014-11-03 22:59:24
Other Links: manifest | tags
Context
2014-11-04
01:16
Added basic pure-Tcl sha1 fallback implementation check-in: 5c9ce56320 user: rkeene tags: trunk
2014-11-03
23:16
Started work on an internal sha1 implementation check-in: 5ebe069cbf user: rkeene tags: internal_sha1
22:59
Updated to complain if hash cannot be computed check-in: 0cefa306d2 user: rkeene tags: trunk
22:31
Updated to rely upon "sha1" package to compute hashes check-in: 6bae3dde7d user: rkeene tags: trunk
Changes

Modified appfsd.tcl from [6a56c0db7f] to [a0bff81028].

    44     44   			} else {
    45     45   				set ncode "900"
    46     46   			}
    47     47   
    48     48   			close $fd
    49     49   
    50     50   			if {$keyIsHash} {
    51         -				set hash "__UNABLE_TO_COMPUTE_HASH__"
    52         -				catch {
    53         -					set hash [string tolower [sha1::sha1 -hex -file $tmpfile]]
    54         -				}
           51  +				set hash [string tolower [sha1::sha1 -hex -file $tmpfile]]
    55     52   			} else {
    56     53   				set hash $key
    57     54   			}
    58     55   
    59     56   			if {$ncode == "200" && $hash == $key} {
    60     57   				file rename -force -- $tmpfile $file
    61     58   			} else {