Check-in [90dbb9682c]
Overview
Comment:Updated to deal with files with commas in the name
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:90dbb9682cd0e7e43bac1d4e9a320d21f1fc1ce0
User & Date: rkeene on 2014-09-12 05:34:12
Other Links: manifest | tags
Context
2014-09-12
05:39
Fixed typo in previous commit check-in: a48b533f86 user: rkeene tags: trunk
05:34
Updated to deal with files with commas in the name check-in: 90dbb9682c user: rkeene tags: trunk
2014-09-11
19:57
Added symlink support check-in: 859535511c user: rkeene tags: trunk
Changes

Modified appfsd.tcl from [ccdd0bdb23] to [5c768f9af5].

   247    247   			}
   248    248   
   249    249   			set work [split $line ","]
   250    250   
   251    251   			unset -nocomplain fileInfo
   252    252   			set fileInfo(type) [lindex $work 0]
   253    253   			set fileInfo(time) [lindex $work 1]
   254         -			set fileInfo(name) [lindex $work end]
   255    254   
   256         -			set fileInfo(name) [split [string trim $fileInfo(name) "/"] "/"]
   257         -			set fileInfo(directory) [join [lrange $fileInfo(name) 0 end-1] "/"]
   258         -			set fileInfo(name) [lindex $fileInfo(name) end]
   259         -
   260         -			set work [lrange $work 2 end-1]
          255  +			set work [lrange $work 2 end]
   261    256   			switch -- $fileInfo(type) {
   262    257   				"file" {
   263    258   					set fileInfo(size) [lindex $work 0]
   264    259   					set fileInfo(perms) [lindex $work 1]
   265    260   					set fileInfo(sha1) [lindex $work 2]
          261  +
          262  +					set work [lrange 3 end]
   266    263   				}
   267    264   				"symlink" {
   268    265   					set fileInfo(source) [lindex $work 0]
          266  +					set work [lrange 1 end]
   269    267   				}
   270    268   			}
   271    269   
          270  +			set fileInfo(name) [join $work ","]
          271  +			set fileInfo(name) [split [string trim $fileInfo(name) "/"] "/"]
          272  +			set fileInfo(directory) [join [lrange $fileInfo(name) 0 end-1] "/"]
          273  +			set fileInfo(name) [lindex $fileInfo(name) end]
          274  +
   272    275   			_db eval {INSERT INTO files (package_sha1, type, time, source, size, perms, file_sha1, file_name, file_directory) VALUES ($package_sha1, $fileInfo(type), $fileInfo(time), $fileInfo(source), $fileInfo(size), $fileInfo(perms), $fileInfo(sha1), $fileInfo(name), $fileInfo(directory) );}
   273    276   			_db eval {UPDATE packages SET haveManifest = 1 WHERE sha1 = $package_sha1;}
   274    277   		}
   275    278   
   276    279   		return COMPLETE
   277    280   	}
   278    281   }