X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bin%2Fwanna-build-statistics;h=3d7b0d10b070e2e31ba148abc258d59294d30c16;hb=87ad762e32834250d7d6d28b3d074afa79425442;hp=a7cb158b69a3c5ab375080da2d95e54f9af30e46;hpb=bf295e4afd27dbde46c838590f556f21ea4dd993;p=wannabuild.git diff --git a/bin/wanna-build-statistics b/bin/wanna-build-statistics index a7cb158..3d7b0d1 100755 --- a/bin/wanna-build-statistics +++ b/bin/wanna-build-statistics @@ -38,7 +38,7 @@ use strict; use vars qw($verbose $dist $database); $verbose = 0; -$dist = "unstable"; +$dist = "sid"; $database = "build-db"; while( @ARGV && $ARGV[0] =~ /^-/ ) { @@ -56,10 +56,6 @@ while( @ARGV && $ARGV[0] =~ /^-/ ) { else { $dist = shift @ARGV; } - $dist = "stable" if $dist eq "s"; - $dist = "testing" if $dist eq "t"; - $dist = "unstable" if $dist eq "u"; - die "Bad distribution\n" if !isin($dist, qw(stable testing unstable stable-security testing-security oldstable oldstable-security)); } elsif (/^--$/) { last; @@ -101,7 +97,7 @@ print "--------------", "-" x length($dist), "\n"; my $total_width = 78; my @state_list = qw(Installed Needs-Build Building Built Build-Attempted Uploaded Failed Dep-Wait - Failed-Removed Dep-Wait-Removed + Failed-Removed Dep-Wait-Removed BD-Uninstallable Not-For-Us); my $statewidth = 0; grep { $statewidth = length($_) if length($_) > $statewidth } @state_list; @@ -147,7 +143,7 @@ print percent(qw(Built Installed Uploaded)), " if also counting built pkgs\n"; print percent(qw(Needs-Build)), " uncompiled\n"; print percent(qw(Building)), " currently building (short-term delay)\n"; print percent(qw(Build-Attempted)), " currently failed building (short-term delay)\n"; -print percent(qw(Failed Dep-Wait)), " failed or waiting (long-term delay)\n"; +print percent(qw(Failed BD-Uninstallable Dep-Wait)), " failed or waiting (long-term delay)\n"; exit 0;