Diff

Differences From Artifact [aa538226b7]:

To Artifact [07f0ced01b]:


1
2
3

4
5
6
7
8
9
10
#! /usr/bin/env tclsh

package require http 2.5


namespace eval ::appfs {
	variable sites [list]
	variable cachedir "/tmp/appfs-cache"

	proc _hash_sep {hash {seps 4}} {
		for {set idx 0} {$idx < $seps} {incr idx} {


|
>







1
2
3
4
5
6
7
8
9
10
11
#! /usr/bin/env tclsh

package require http 2.7
package require sqlite3

namespace eval ::appfs {
	variable sites [list]
	variable cachedir "/tmp/appfs-cache"

	proc _hash_sep {hash {seps 4}} {
		for {set idx 0} {$idx < $seps} {incr idx} {