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
|