Check-in [552b62761a]
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
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213




214
215
216
217
218
219
220
	close $fd

	file delete $altindexfile
	file link -hard $altindexfile $indexfile
}

# Create "package/name/<pkg>/ver/<ver>/arch/<arch>/file"
proc create_output_files {dstdir pkginfo_arrlist} {
	array set pkginfo $pkginfo_arrlist

	foreach ent [array names pkginfo] {
		set pkg [lindex $ent 0]
		set ver [lindex $ent 1]
		set arch [lindex $ent 2]

		array set currpkginfo $pkginfo($ent)
		set pkgdir $currpkginfo(pkgdir)
		set multifile $currpkginfo(multifile)
		set extfiletail $currpkginfo(extfile)

		set workdir [file join $dstdir package name $pkg ver $ver arch $arch]
		set regfile [file join $workdir file]
		set extfile [file join $workdir $extfiletail]
		catch {
			file mkdir $workdir
		}

		if {$multifile} {




			if {[catch {
				cd $pkgdir

				file delete $extfile
				exec zip -r $extfile . -x build.log
			} err]} {
				puts "Error while zipping: $err"







|




















>
>
>
>







186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
	close $fd

	file delete $altindexfile
	file link -hard $altindexfile $indexfile
}

# Create "package/name/<pkg>/ver/<ver>/arch/<arch>/file"
proc create_output_files {dstdir pkginfo_arrlist {force 0}} {
	array set pkginfo $pkginfo_arrlist

	foreach ent [array names pkginfo] {
		set pkg [lindex $ent 0]
		set ver [lindex $ent 1]
		set arch [lindex $ent 2]

		array set currpkginfo $pkginfo($ent)
		set pkgdir $currpkginfo(pkgdir)
		set multifile $currpkginfo(multifile)
		set extfiletail $currpkginfo(extfile)

		set workdir [file join $dstdir package name $pkg ver $ver arch $arch]
		set regfile [file join $workdir file]
		set extfile [file join $workdir $extfiletail]
		catch {
			file mkdir $workdir
		}

		if {$multifile} {
			if {[file exists $extfile] && !$force} {
				continue
			}

			if {[catch {
				cd $pkgdir

				file delete $extfile
				exec zip -r $extfile . -x build.log
			} err]} {
				puts "Error while zipping: $err"