Differences From Artifact [6f6d010e1e]:
- File appfsd.tcl — part of check-in [d836b9fc43] at 2014-11-07 13:19:35 on branch tcl-ops — Added more reliable write support (user: rkeene, size: 16567) [annotate] [blame] [check-ins using]
To Artifact [7f053ee293]:
- File appfsd.tcl — part of check-in [f2d710b7dc] at 2014-11-09 02:13:17 on branch tcl-ops — Updated to create directory to store local file (user: rkeene, size: 16608) [annotate] [blame] [check-ins using]
| ︙ | |||
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
|
| ︙ |