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