@@ -1,10 +1,16 @@ #! /usr/bin/env tclsh package require http 2.7 package require sqlite3 -package require sha1 + +if {[catch { + package require sha1 +}]} { + @@SHA1.TCL@@ + package require sha1 +} namespace eval ::appfs { variable cachedir "/tmp/appfs-cache" variable ttl 3600 variable nttl 60