optimize build time query, thanks to Peter Palfrader

[wannabuild.git] / bin / wanna-build-statistics

diff --git a/bin/wanna-build-statistics b/bin/wanna-build-statistics
index a7cb158b69a3c5ab375080da2d95e54f9af30e46..e828121266d061bee7bf07200b2dc016ec5399c9 100755 (executable)
--- a/bin/wanna-build-statistics
+++ b/bin/wanna-build-statistics
@@ -56,6 +56,7 @@ while( @ARGV && $ARGV[0] =~ /^-/ ) {
                else {
                        $dist = shift @ARGV;
                }
+               $dist = "oldstable"   if $dist eq "o";
                $dist = "stable"   if $dist eq "s";
                $dist = "testing"  if $dist eq "t";
                $dist = "unstable" if $dist eq "u";
@@ -101,7 +102,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 +148,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;