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: | 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
|