use vars qw($dist);
my $previously_built;
-$dist = "unstable";
+$dist = "sid";
while( @ARGV && $ARGV[0] =~ /^-/ ) {
$_ = shift @ARGV;
else {
$dist = shift @ARGV;
}
- $dist = "oldstable" if $dist eq "o";
- $dist = "stable" if $dist eq "s";
- $dist = "tesing" if $dist eq "t";
- $dist = "unstable" if $dist eq "u";
- die "Bad distribution\n" if !isin($dist, qw(oldstable stable testing unstable));
}
elsif (/^--$/) {
last;
}
}
-my $date=`date +%m/%d/%Y`;
+my $date=`date -u "+%m/%d/%Y %T"`;
chop($date);
print "$date";
-my @archs = qw(alpha arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 amd64 sparc armel);
+my @archs = qw(alpha arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 amd64 sparc armel kfreebsd-amd64 kfreebsd-i386);
my $arch;
foreach $arch (@archs) {
my($lastmsg, %n_state, $total, %n_builder, $pu_total);
$pu_total = 0;
$n_state{"Installed"} = 0;
-open( PIPE, "wanna-build --database=$arch/build-db --dist=$dist --list=all 2>&1 |" )
+open( PIPE, "wanna-build --database=$arch/build-db --dist=$dist --list=all |" )
or die "Cannot spawn wanna-build: $!\n";
while( <PIPE> ) {
if (/^Database for $dist doesn't exist$/) {