1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#! /usr/bin/env tclsh
package require http 2.7
package require sqlite3
if {[catch {
package require sha1
}]} {
@@SHA1.TCL@@
package require sha1
}
|
<
<
|
<
<
<
<
|
1
2
3
4
5
6
7
8
9
10
11
12
|
#! /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}} {
|