AppFS
Check-in [0cefa306d2]
Login
HomeTimelineFilesBranchesTagsTicketsWiki
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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

︙︙
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61

			} else {
				set ncode "900"
			}

			close $fd

			if {$keyIsHash} {
				set hash "__UNABLE_TO_COMPUTE_HASH__"
				catch {
					set hash [string tolower [sha1::sha1 -hex -file $tmpfile]]
				}
			} else {
				set hash $key
			}

			if {$ncode == "200" && $hash == $key} {
				file rename -force -- $tmpfile $file
			} else {








<
<
|
<








44
45
46
47
48
49
50


51

52
53
54
55
56
57
58

			} else {
				set ncode "900"
			}

			close $fd

			if {$keyIsHash} {


				set hash [string tolower [sha1::sha1 -hex -file $tmpfile]]

			} else {
				set hash $key
			}

			if {$ncode == "200" && $hash == $key} {
				file rename -force -- $tmpfile $file
			} else {
︙︙