X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=bin%2Fwanna-build-statistics;h=3d7b0d10b070e2e31ba148abc258d59294d30c16;hb=185e4f130080855a0d8728a8d28f0c7720742620;hp=70a689f3fc835c0613c00288e595fd2472c38376;hpb=8143c2593c2537b222e3bde7ee2685286c992a87;p=wannabuild.git diff --git a/bin/wanna-build-statistics b/bin/wanna-build-statistics index 70a689f..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)); } 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;