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