Overview
| Comment: | Updated to not rebuild zip files unless requested |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: | 552b62761a54ce91f6285eeb2c0dad0ed7a55350 |
| User & Date: | rkeene on 2010-02-05 06:16:50 |
| Other Links: | manifest | tags |
Context
|
2010-02-05
| ||
| 06:26 | Changed my repository lower priority check-in: 4fbd51bc1d user: rkeene tags: trunk | |
| 06:16 | Updated to not rebuild zip files unless requested check-in: 552b62761a user: rkeene tags: trunk | |
| 06:15 | Updated to exclude build log from packages Updated to rebuild zip files, even if they already exist check-in: b494891f05 user: rkeene tags: trunk | |
Changes
Modified server/teapot_index from [6548de250e] to [3523082fbc].
186 186 close $fd 187 187 188 188 file delete $altindexfile 189 189 file link -hard $altindexfile $indexfile 190 190 } 191 191 192 192 # Create "package/name/<pkg>/ver/<ver>/arch/<arch>/file" 193 -proc create_output_files {dstdir pkginfo_arrlist} { 193 +proc create_output_files {dstdir pkginfo_arrlist {force 0}} { 194 194 array set pkginfo $pkginfo_arrlist 195 195 196 196 foreach ent [array names pkginfo] { 197 197 set pkg [lindex $ent 0] 198 198 set ver [lindex $ent 1] 199 199 set arch [lindex $ent 2] 200 200 ................................................................................ 207 207 set regfile [file join $workdir file] 208 208 set extfile [file join $workdir $extfiletail] 209 209 catch { 210 210 file mkdir $workdir 211 211 } 212 212 213 213 if {$multifile} { 214 + if {[file exists $extfile] && !$force} { 215 + continue 216 + } 217 + 214 218 if {[catch { 215 219 cd $pkgdir 216 220 217 221 file delete $extfile 218 222 exec zip -r $extfile . -x build.log 219 223 } err]} { 220 224 puts "Error while zipping: $err"