X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bin%2Fwb-graph;h=78d3c29964781e1db8f5bc713eff8d59d3b52b59;hb=1fa3e310692f1499af36eb54526f2e23766847d5;hp=fb326e8e433edc62fdf3402e895f27ae53bcba3b;hpb=4572e2d58812a9c5f422a8c2e2401c441d528bb7;p=wannabuild.git diff --git a/bin/wb-graph b/bin/wb-graph index fb326e8..78d3c29 100755 --- a/bin/wb-graph +++ b/bin/wb-graph @@ -35,15 +35,15 @@ 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 kfreebsd-amd64 kfreebsd-i386); +my @archs = qw(alpha arm hppa hurd-i386 i386 ia64 m68k mips mipsel powerpc s390 amd64 sparc armel kfreebsd-amd64 kfreebsd-i386 armhf s390x); my $arch; 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$/) { @@ -69,6 +69,7 @@ if ($?) { 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 {