/[collab-qa]/udd/udd/bugs_gatherer.pl
ViewVC logotype

Diff of /udd/udd/bugs_gatherer.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1330 by lucas, Sat Sep 27 16:48:31 2008 UTC revision 1331 by lucas, Wed Oct 22 18:10:13 2008 UTC
# Line 17  use Time::Local; Line 17  use Time::Local;
17  use Debbugs::Bugs qw{get_bugs};  use Debbugs::Bugs qw{get_bugs};
18  use Debbugs::Status qw{read_bug get_bug_status bug_presence};  use Debbugs::Status qw{read_bug get_bug_status bug_presence};
19  use Debbugs::Packages qw{binarytosource getpkgsrc};  use Debbugs::Packages qw{binarytosource getpkgsrc};
20  use Debbugs::Config qw{:globals};  use Debbugs::Config qw{:globals %config};
21  use Debbugs::User;  use Debbugs::User;
22  #use Debbugs::User qw{read_usertags};  #use Debbugs::User qw{read_usertags};
23    
# Line 26  $YAML::Syck::ImplicitTyping = 1; Line 26  $YAML::Syck::ImplicitTyping = 1;
26  #Used for measuring time  #Used for measuring time
27  our $t;  our $t;
28  our $timing = 0;  our $timing = 0;
29    our @archs = grep {  !/(^m68k$|^kfreebsd|^hurd)/ } @{$config{default_architectures}};
30    
31  # Return the list of usernames  # Return the list of usernames
32  sub get_bugs_users {  sub get_bugs_users {
# Line 220  sub run { Line 221  sub run {
221                  } else {                  } else {
222                          $present_in_stable =                          $present_in_stable =
223                                  bug_presence(bug => $bug_nr, status => \%bug,                                  bug_presence(bug => $bug_nr, status => \%bug,
224                                                           dist => 'stable');                                                           dist => 'stable',
225                                                             arch => @archs);
226                          $present_in_testing =                          $present_in_testing =
227                                  bug_presence(bug => $bug_nr, status => \%bug,                                  bug_presence(bug => $bug_nr, status => \%bug,
228                                                           dist => 'testing');                                                           dist => 'testing',
229                                                             arch => @archs);
230                          $present_in_unstable =                          $present_in_unstable =
231                                  bug_presence(bug => $bug_nr, status => \%bug,                                  bug_presence(bug => $bug_nr, status => \%bug,
232                                                           dist => 'unstable');                                                           dist => 'unstable',
233                                                             arch => @archs);
234                          $present_in_experimental =                          $present_in_experimental =
235                                  bug_presence(bug => $bug_nr, status => \%bug,                                  bug_presence(bug => $bug_nr, status => \%bug,
236                                                           dist => 'experimental');                                                           dist => 'experimental',
237                                                             arch => @archs);
238    
239                          if(!defined($present_in_stable) or !defined($present_in_unstable) or !defined($present_in_testing) or !defined($present_in_experimental)) {                          if(!defined($present_in_stable) or !defined($present_in_unstable) or !defined($present_in_testing) or !defined($present_in_experimental)) {
240                                  print "NUMBER: $bug_nr\n";                                  print "NUMBER: $bug_nr\n";
241                          }                          }
Legend:
Removed from v.1330  
changed lines
  Added in v.1331
  ViewVC Help
Powered by ViewVC 1.1.5