Overview
Comment: | Updated to not complain |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: | 3e39144f1c98c79f59d9ef4f5b192b3273d7e1e7 |
User & Date: | rkeene on 2011-12-04 16:29:48 |
Other Links: | manifest | tags |
Context
2011-12-11
| ||
17:11 | Updated to build and statically link against OpenSSL on Solaris check-in: 54bbcae6f1 user: rkeene tags: trunk | |
2011-12-04
| ||
16:29 | Updated to not complain check-in: 3e39144f1c user: rkeene tags: trunk | |
02:17 | Updated to deal with more platforms check-in: 21cf4390c8 user: rkeene tags: trunk | |
Changes
Modified server/teapot_index from [6035bfad78] to [18e199e0c9].
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
...
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
|
set entity_fieldnames([list package arch]) "Platform"
set entity_fieldnames([list entity]) "What"
# Index all packages
proc teapot_index {srcdir} {
array set pkginfo [list]
foreach pkgdir [glob -directory $srcdir -type d */*/*] {
unset -nocomplain currpkginfo
set currpkginfo(pkgdir) $pkgdir
set teapot [file join $pkgdir teapot.txt]
set multifile 1
if {![file exists $teapot]} {
set files [glob -directory $pkgdir *]
if {[llength $files] == 1} {
set teapot [lindex $files 0]
set multifile 0
} else {
continue
}
}
................................................................................
file delete -- $extfile
exec zip -r $extfile . -x build.log
} err]} {
puts "Error while zipping: $err"
}
} else {
set origfile [lindex [glob -directory $pkgdir *] 0]
file copy -force -- $origfile $extfile
}
file delete -- $regfile
file link -hard $regfile $extfile
file attributes $regfile -permissions -x
|
|
|
|
|
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
...
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
|
set entity_fieldnames([list package arch]) "Platform" set entity_fieldnames([list entity]) "What" # Index all packages proc teapot_index {srcdir} { array set pkginfo [list] foreach pkgdir [glob -nocomplain -directory $srcdir -type d */*/*] { unset -nocomplain currpkginfo set currpkginfo(pkgdir) $pkgdir set teapot [file join $pkgdir teapot.txt] set multifile 1 if {![file exists $teapot]} { set files [glob -nocomplain -directory $pkgdir *] if {[llength $files] == 1} { set teapot [lindex $files 0] set multifile 0 } else { continue } } ................................................................................ file delete -- $extfile exec zip -r $extfile . -x build.log } err]} { puts "Error while zipping: $err" } } else { set origfile [lindex [glob -nocomplain -directory $pkgdir *] 0] file copy -force -- $origfile $extfile } file delete -- $regfile file link -hard $regfile $extfile file attributes $regfile -permissions -x |