Check-in [88598f958f]
Overview
Comment:Minor cleanup
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:88598f958fbd83ff4ed1ab33dbc8b9031fcda1e6
User & Date: rkeene on 2010-02-10 03:11:01
Other Links: manifest | tags
Context
2010-02-10
03:36
Updated to create all possible combination of parameters (still requires strict order) check-in: 37af467773 user: rkeene tags: trunk
03:11
Minor cleanup check-in: 88598f958f user: rkeene tags: trunk
03:00
Updated to give more information for ActiveState packages check-in: 69fb00861c user: rkeene tags: trunk
Changes

Modified server/teapot_index from [bf14c565da] to [f9a8f2229a].

   298    298   		set pkgdir $currpkginfo(pkgdir)
   299    299   		set multifile $currpkginfo(multifile)
   300    300   		set extfiletail $currpkginfo(extfile)
   301    301   
   302    302   		set workdir [file join $dstdir package name $pkg ver $ver arch $arch]
   303    303   		set regfile [file join $workdir file]
   304    304   		set extfile [file join $workdir $extfiletail]
          305  +
          306  +		if {[file exists $extfile] && !$force} {
          307  +			continue
          308  +		}
          309  +
   305    310   		catch {
   306    311   			file mkdir $workdir
   307    312   		}
   308    313   
   309    314   		if {$multifile} {
   310         -			if {[file exists $extfile] && !$force} {
   311         -				continue
   312         -			}
   313         -
   314    315   			if {[catch {
   315    316   				cd $pkgdir
   316    317   
   317    318   				file delete -- $extfile
   318    319   				exec zip -r $extfile . -x build.log
   319    320   			} err]} {
   320    321   				puts "Error while zipping: $err"
................................................................................
   500    501   
   501    502   	set seen_entities [list]
   502    503   	foreach pkgdata [lsort -dictionary [array names pkginfo]] {
   503    504   		unset -nocomplain entity
   504    505   		lappend entity entity package
   505    506   
   506    507   		for {set endidx 0} {$endidx < [llength $entfields]} {incr endidx} {
   507         -			lappend entity [lindex $entfields $endidx]
   508         -			lappend entity [lindex $pkgdata $endidx]
          508  +			set enttype [lindex $entfields $endidx]
          509  +			set entval [lindex $pkgdata $endidx]
          510  +			lappend entity $enttype
          511  +			lappend entity $entval
   509    512   
   510    513   			if {[lsearch -exact $seen_entities $entity] != -1} {
   511    514   				continue
   512    515   			}
   513    516   			lappend seen_entities $entity
   514    517   
   515    518   			create_entity_file $entity $dstdir $pkginfo_arrlist