[Collab-qa-commits] r1331 - udd/udd

[lucas at alioth.debian.org]

Author: lucas
Date: 2008-10-22 18:10:13 +0000 (Wed, 22 Oct 2008)
New Revision: 1331

Modified:
   udd/udd/bugs_gatherer.pl
Log:
added list of arches to bug_presence. doesn't work, but I'll fix it

Modified: udd/udd/bugs_gatherer.pl
===================================================================
--- udd/udd/bugs_gatherer.pl	2008-10-20 06:18:39 UTC (rev 1330)
+++ udd/udd/bugs_gatherer.pl	2008-10-22 18:10:13 UTC (rev 1331)
@@ -17,7 +17,7 @@
 use Debbugs::Bugs qw{get_bugs};
 use Debbugs::Status qw{read_bug get_bug_status bug_presence};
 use Debbugs::Packages qw{binarytosource getpkgsrc};
-use Debbugs::Config qw{:globals};
+use Debbugs::Config qw{:globals %config};
 use Debbugs::User;
 #use Debbugs::User qw{read_usertags};
 
@@ -26,6 +26,7 @@
 #Used for measuring time
 our $t;
 our $timing = 0;
+our @archs = grep {  !/(^m68k$|^kfreebsd|^hurd)/ } @{$config{default_architectures}};
 
 # Return the list of usernames
 sub get_bugs_users {
@@ -220,16 +221,21 @@
 		} else {
 			$present_in_stable =
 				bug_presence(bug => $bug_nr, status => \%bug,
-							 dist => 'stable');
+							 dist => 'stable',
+							 arch => @archs);
 			$present_in_testing =
 				bug_presence(bug => $bug_nr, status => \%bug,
-							 dist => 'testing');
+							 dist => 'testing',
+							 arch => @archs);
 			$present_in_unstable =
 				bug_presence(bug => $bug_nr, status => \%bug,
-							 dist => 'unstable');
+							 dist => 'unstable',
+							 arch => @archs);
 			$present_in_experimental =
 				bug_presence(bug => $bug_nr, status => \%bug,
-							 dist => 'experimental');
+							 dist => 'experimental',
+							 arch => @archs);
+
 			if(!defined($present_in_stable) or !defined($present_in_unstable) or !defined($present_in_testing) or !defined($present_in_experimental)) {
 				print "NUMBER: $bug_nr\n";
 			}