481
482
483
484
485
486
487
488
489
490
491
492
493
494
|
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
|
+
+
|
switch -- $pathinfo(_type) {
"toplevel" - "sites" - "packages" - "os-cpu" - "versions" {
set retval(type) directory
set retval(childcount) 2;
}
"files" {
set retval(packaged) 1
set localpath [_localpath $pathinfo(package) $pathinfo(hostname) $pathinfo(file)]
if {[file exists $localpath]} {
catch {
file lstat $localpath localpathinfo
set retval(time) $localpathinfo(mtime)
switch -- $localpathinfo(type) {
|