chop($date);
print "$date";
-. /org/wanna-build/triggers/common
+my @archs = qw(alpha arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 amd64 sparc armel kfreebsd-amd64 kfreebsd-i386);
+my $arch;
-for arch in $ARCHS_unstable; do
+foreach $arch (@archs) {
my($lastmsg, %n_state, $total, %n_builder, $pu_total);
$pu_total = 0;
-$n_state{"Installed"} = 0;
-open( my $pipe, '-|', "wanna-build --database=$arch/build-db --dist=$dist --list=all" )
+$n_state{"Installed"} = 0;
+open( my $pipe, '-|', "wanna-build -A $arch --dist=$dist --list=all" )
or die "Cannot spawn wanna-build: $!\n";
while( <$pipe> ) {
if (/^Database for $dist doesn't exist$/) {
print ", 0, 0";
} else {
# $total -= $n_state{"Not-For-Us"};
+ $total -= $n_state{"Auto-Not-For-Us"};
if ( $previously_built ) {
print ", ".$n_state{"Installed"}.", ".$pu_total;
} else {
print ", ".$n_state{"Installed"}.", ".$total;
}
}
-done
+}
print "\n";
exit 0;