Diff

Differences From Artifact [86cb2b92c8]:

To Artifact [1a0526f9cf]:


     1      1   #! /usr/bin/env tclsh
     2      2   
     3      3   package require http 2.7
     4      4   package require sqlite3
     5         -
     6         -if {[catch {
     7         -	package require sha1
     8         -}]} {
     9         -	@@SHA1.TCL@@
    10         -	package require sha1
    11         -}
            5  +package require sha1
    12      6   
    13      7   namespace eval ::appfs {
    14      8   	variable cachedir "/tmp/appfs-cache"
    15      9   	variable ttl 3600
    16     10   	variable nttl 60
    17     11   
    18     12   	proc _hash_sep {hash {seps 4}} {