Check-in [b075183fad]
Overview
Comment:Set default negative ttl to the same as the positive ttl
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: b075183fad7516123a7dc011a53f8469cb3b66ca
User & Date: rkeene on 2017-12-15 05:31:00
Other Links: manifest | tags
Context
2017-12-15
05:31
Updated to support a "-lib" option to the "install" command of "appfs-cache" check-in: a664b039b7 user: rkeene tags: trunk
05:31
Set default negative ttl to the same as the positive ttl check-in: b075183fad user: rkeene tags: trunk
2017-10-30
18:03
Added an "install" command for setting up symlinks to binaries check-in: 8998f05e2e user: rkeene tags: trunk
Changes

Modified appfsd.tcl from [985d2df621] to [ced6c30241].

103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
		return -code error "Unable to download"
	}
}

namespace eval ::appfs {
	variable cachedir "/tmp/appfs-cache"
	variable ttl 3600
	variable nttl 60
	variable trusted_cas [list]
	variable platform [::platform::generic]

	proc _hash_sep {hash {seps 4}} {
		for {set idx 0} {$idx < $seps} {incr idx} {
			append retval "[string range $hash [expr {$idx * 2}] [expr {($idx * 2) + 1}]]/"
		}







|







103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
		return -code error "Unable to download"
	}
}

namespace eval ::appfs {
	variable cachedir "/tmp/appfs-cache"
	variable ttl 3600
	variable nttl 3600
	variable trusted_cas [list]
	variable platform [::platform::generic]

	proc _hash_sep {hash {seps 4}} {
		for {set idx 0} {$idx < $seps} {incr idx} {
			append retval "[string range $hash [expr {$idx * 2}] [expr {($idx * 2) + 1}]]/"
		}