Check-in [3e39144f1c]
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     18   set entity_fieldnames([list package arch]) "Platform"
    19     19   set entity_fieldnames([list entity]) "What"
    20     20   
    21     21   # Index all packages
    22     22   proc teapot_index {srcdir} {
    23     23   	array set pkginfo [list]
    24     24   
    25         -	foreach pkgdir [glob -directory $srcdir -type d */*/*] {
           25  +	foreach pkgdir [glob -nocomplain -directory $srcdir -type d */*/*] {
    26     26   		unset -nocomplain currpkginfo
    27     27   		set currpkginfo(pkgdir) $pkgdir
    28     28   
    29     29   		set teapot [file join $pkgdir teapot.txt]
    30     30   
    31     31   		set multifile 1
    32     32   		if {![file exists $teapot]} {
    33         -			set files [glob -directory $pkgdir *]
           33  +			set files [glob -nocomplain -directory $pkgdir *]
    34     34   			if {[llength $files] == 1} {
    35     35   				set teapot [lindex $files 0]
    36     36   				set multifile 0
    37     37   			} else {
    38     38   				continue
    39     39   			}
    40     40   		}
................................................................................
   323    323   
   324    324   				file delete -- $extfile
   325    325   				exec zip -r $extfile . -x build.log
   326    326   			} err]} {
   327    327   				puts "Error while zipping: $err"
   328    328   			}
   329    329   		} else {
   330         -			set origfile [lindex [glob -directory $pkgdir *] 0]
          330  +			set origfile [lindex [glob -nocomplain -directory $pkgdir *] 0]
   331    331   
   332    332   			file copy -force -- $origfile $extfile
   333    333   		}
   334    334   
   335    335   		file delete -- $regfile
   336    336   		file link -hard $regfile $extfile
   337    337   		file attributes $regfile -permissions -x