Check-in [859f8f6c54]
Overview
Comment:Updated to be more tolerant of future expansions to the manifest format
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:859f8f6c5439fefbe1f345bb2c2a63a3f58c1698
User & Date: rkeene on 2014-11-11 05:16:12
Other Links: manifest | tags
Context
2014-11-11
17:17
Made manifest checking more stringent check-in: cd9fca5677 user: rkeene tags: trunk
05:16
Updated to be more tolerant of future expansions to the manifest format check-in: 859f8f6c54 user: rkeene tags: trunk
05:11
Updated allow future versions to deal with manifests that are not linked from the index file check-in: 34f1255a38 user: rkeene tags: trunk
Changes

Modified appfsd.tcl from [1afaa96f65] to [60c35bda95].

   348    348   						set fileInfo(sha1) [lindex $work 2]
   349    349   
   350    350   						set work [lrange $work 3 end]
   351    351   					}
   352    352   					"symlink" {
   353    353   						set fileInfo(source) [lindex $work 0]
   354    354   						set work [lrange $work 1 end]
          355  +					}
          356  +					"directory" {
          357  +						# No extra data required
          358  +					}
          359  +					default {
          360  +						# Handle unknown types
          361  +						if {[string index $fileInfo(type) 0] == "#"} {
          362  +							# Metadata type, ignore
          363  +							# it if we don't
          364  +							# understand this type
          365  +							continue
          366  +						} else {
          367  +							# Unknown type,
          368  +							# generate an error
          369  +							error "Manifest cannot be parsed"
          370  +						}
   355    371   					}
   356    372   				}
   357    373   
   358    374   				set fileInfo(name) [join $work ","]
   359    375   				set fileInfo(name) [split [string trim $fileInfo(name) "/"] "/"]
   360    376   				set fileInfo(directory) [join [lrange $fileInfo(name) 0 end-1] "/"]
   361    377   				set fileInfo(name) [lindex $fileInfo(name) end]