Check-in [f2d710b7dc]
Overview
Comment:Updated to create directory to store local file
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | tcl-ops
Files: files | file ages | folders
SHA1: f2d710b7dce127ebd0c07d3ab7749652b4da33c4
User & Date: rkeene on 2014-11-09 02:13:17
Other Links: branch diff | manifest | tags
Context
2014-11-09
02:14
Updated to rethrow error from local-ify file check-in: 7c53fff896 user: rkeene tags: tcl-ops
02:13
Updated to create directory to store local file check-in: f2d710b7dc user: rkeene tags: tcl-ops
02:09
Updated to create a Tcl interpreter at startup before starting FUSE loop to catch Tcl errors early check-in: 3c90001701 user: rkeene tags: tcl-ops
Changes

Modified appfsd.tcl from [6f6d010e1e] to [7f053ee293].

606
607
608
609
610
611
612

613
614
615
616
617
618
619

		set localcachefile [download $pathinfo(hostname) $pkgpathinfo(file_sha1)]

		if {$mode == "write"} {
			set tmplocalpath "${localpath}.[expr rand()][clock clicks]"

			catch {

				file copy -force -- $localcachefile $tmplocalpath

				if {$pkgpathinfo(perms) == "x"} {
					file attributes $tmplocalpath -permissions +x
				}

				file rename -force -- $tmplocalpath $localpath







>







606
607
608
609
610
611
612
613
614
615
616
617
618
619
620

		set localcachefile [download $pathinfo(hostname) $pkgpathinfo(file_sha1)]

		if {$mode == "write"} {
			set tmplocalpath "${localpath}.[expr rand()][clock clicks]"

			catch {
				file mkdir [file dirname $localpath]
				file copy -force -- $localcachefile $tmplocalpath

				if {$pkgpathinfo(perms) == "x"} {
					file attributes $tmplocalpath -permissions +x
				}

				file rename -force -- $tmplocalpath $localpath