Check-in [eb52173aaa]
Overview
Comment:Corrected issue where package name was not considered when looking up package
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: eb52173aaa3bc63191786b2161670d0800132b5b
User & Date: rkeene on 2014-11-12 08:36:04
Other Links: manifest | tags
Context
2014-11-12
15:23
Updated to fetch/update host index before fetching manifest check-in: d6262bea99 user: rkeene tags: trunk
08:36
Corrected issue where package name was not considered when looking up package check-in: eb52173aaa user: rkeene tags: trunk
05:54
Updated to call Tcl_Preserve/Tcl_Release as appropriate check-in: d9f1a05711 user: rkeene tags: trunk
Changes

Modified appfsd.tcl from [d81f339499] to [5efeea4271].

449
450
451
452
453
454
455
456

457
458
459
460
461
462
463
449
450
451
452
453
454
455

456
457
458
459
460
461
462
463







-
+







						set retval(_type) os-cpu

						if {$pathlen > 3} {
							set retval(version) [lindex $path 3]
							set retval(_children) files
							set retval(_type) versions

							set retval(package_sha1) [::appfs::db onecolumn {SELECT sha1 FROM packages WHERE hostname = $retval(hostname) AND os = $retval(os) AND cpuArch = $retval(cpu) AND version = $retval(version);}]
							set retval(package_sha1) [::appfs::db onecolumn {SELECT sha1 FROM packages WHERE hostname = $retval(hostname) AND package = $retval(package) AND os = $retval(os) AND cpuArch = $retval(cpu) AND version = $retval(version);}]
							if {$retval(package_sha1) == ""} {
								set retval(_children) dead
								return [array get retval]
							}

							if {$pathlen > 4} {
								set retval(_type) files