Differences From Artifact [60c35bda95]:

• File appfsd.tcl — part of check-in [859f8f6c54] at 2014-11-11 05:16:12 on branch trunk — Updated to be more tolerant of future expansions to the manifest format (user: rkeene, size: 22278) [annotate] [blame] [check-ins using]

To Artifact [d81f339499]:

• File appfsd.tcl — part of check-in [cd9fca5677] at 2014-11-11 17:17:56 on branch trunk — Made manifest checking more stringent (user: rkeene, size: 22285) [annotate] [blame] [check-ins using]

305
306
307
308
309
310
311
312
313
314
315
316
317
318
319

		return COMPLETE
	}

	proc getpkgmanifest {hostname package_sha1} {
		set haveManifest [db onecolumn {SELECT haveManifest FROM packages WHERE sha1 = $package_sha1 LIMIT 1;}]

		if {$haveManifest} {
			return COMPLETE
		}

		if {![_isHash $package_sha1]} {
			return FAIL
		}

|

305
306
307
308
309
310
311
312
313
314
315
316
317
318
319

		return COMPLETE
	}

	proc getpkgmanifest {hostname package_sha1} {
		set haveManifest [db onecolumn {SELECT haveManifest FROM packages WHERE sha1 = $package_sha1 LIMIT 1;}]

		if {$haveManifest == "1"} {
			return COMPLETE
		}

		if {![_isHash $package_sha1]} {
			return FAIL
		}