Overview
| Comment: | Updated to rely upon "sha1" package to compute hashes |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 6bae3dde7dbd1b79d502deb6a4c3eba6b068aec2 |
| User & Date: | rkeene on 2014-11-03 22:31:54 |
| Other Links: | manifest | tags |
Context
|
2014-11-03
| ||
| 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 | |
| 19:07 | Updated to not crash upon Tcl initialization failure check-in: 85c5ea8446 user: rkeene tags: trunk | |
Changes
Modified appfsd.tcl from [2fbc0cdff7] to [6a56c0db7f].
1
2
3
4
5
6
7
8
9
10
11
..
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
#! /usr/bin/env tclsh
package require http 2.7
package require sqlite3
namespace eval ::appfs {
variable cachedir "/tmp/appfs-cache"
variable ttl 3600
variable nttl 60
proc _hash_sep {hash {seps 4}} {
................................................................................
} else {
set ncode "900"
}
close $fd
if {$keyIsHash} {
catch {
set hash [string tolower [exec openssl sha1 $tmpfile]]
regsub {.*= *} $hash {} hash
}
} else {
set hash $key
}
if {$ncode == "200" && $hash == $key} {
file rename -force -- $tmpfile $file
|
>
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
..
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
|
#! /usr/bin/env tclsh package require http 2.7 package require sqlite3 package require sha1 namespace eval ::appfs { variable cachedir "/tmp/appfs-cache" variable ttl 3600 variable nttl 60 proc _hash_sep {hash {seps 4}} { ................................................................................ } 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 |