Check-in [7bb4db9baa]
Overview
Comment:Fixed typo
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 7bb4db9baad4d288b589a2947d779d7a1b647f8b
User & Date: rkeene on 2014-09-07 10:39:08
Other Links: manifest | tags
Context
2014-09-07
10:44
Working on making the Tcl result usable by C check-in: 9b31b33a93 user: rkeene tags: trunk
10:39
Fixed typo check-in: 7bb4db9baa user: rkeene tags: trunk
10:38
Updated to use Tcl to do all the heavy lifting check-in: 1ef1b92a15 user: rkeene tags: trunk
Changes

Modified appfs.tcl from [b32246b25e] to [1f2b586ac3].

18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
	proc _cachefile {url key {keyIsHash 1}} {
		if {$keyIsHash} {
			set key [_hash_sep $key]
		}

		set file [file join $::appfs::cachedir $key]

		file mkdir -- [file dirname $file]

		if {![file exists $file]} {
			set tmpfile "${file}.new"

			set fd [open $tmpfile "w"]

			set token [::http::geturl $url -channel $fd]







|







18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
	proc _cachefile {url key {keyIsHash 1}} {
		if {$keyIsHash} {
			set key [_hash_sep $key]
		}

		set file [file join $::appfs::cachedir $key]

		file mkdir [file dirname $file]

		if {![file exists $file]} {
			set tmpfile "${file}.new"

			set fd [open $tmpfile "w"]

			set token [::http::geturl $url -channel $fd]