status-report-scripts parseBZbugList,1.74,1.75

[Christian Iseli (c4chris)]

Author: c4chris

Update of /cvs/fedora/status-report-scripts
In directory cvs-int.fedora.redhat.com:/tmp/cvs-serv21170

Modified Files:
	parseBZbugList 
Log Message:
Fix failure to retrieve CLOSED tickets.  Get tickets in small batches to try to avoid timeouts and internal server errors.


Index: parseBZbugList
===================================================================
RCS file: /cvs/fedora/status-report-scripts/parseBZbugList,v
retrieving revision 1.74
retrieving revision 1.75
diff -u -r1.74 -r1.75
--- parseBZbugList	19 Jun 2007 22:11:35 -0000	1.74
+++ parseBZbugList	20 Jun 2007 14:32:37 -0000	1.75
@@ -302,11 +302,13 @@
   close IN;
 }
 # Grab open BZ bug report tickets
+# We want them all, but have to grab only a few at a time otherwise we get
+# timeouts or internal server errors
 my @PKG_L = keys %OWN;
 my $i = 0;
 while ($i <= $#PKG_L) {
   my @A;
-  for my $j (1 .. 512) {
+  for my $j (1 .. 256) {
     push @A, $PKG_L[$i];
     $i += 1;
     last if $i > $#PKG_L;
@@ -1303,7 +1305,7 @@
     'product'     => ['Fedora'],
     'component'   => ['Package Review'],
     'field0-0-0'  => 'flagtypes.name',
-    'bug_status'  => ["NEW", "VERIFIED", "ASSIGNED", "REOPENED", "CLOSED",
+    'bug_status'  => ["NEW", "VERIFIED", "ASSIGNED", "REOPENED",
 		      "NEEDINFO_ENG", "NEEDINFO", "INVESTIGATE", "MODIFIED",
 		      "ON_DEV", "UNCONFIRMED", "QA_READY", "ON_QA",
 		      "FAILS_QA", "NEEDINFO_REPORTER", "RELEASE_PENDING",
@@ -1312,25 +1314,31 @@
   if ($flag eq " ") {
     $querydata->{'type0-0-0'} = 'notregexp';
     $querydata->{'value0-0-0'} = 'fedora-review[-+?]';
-    $querydata->{'bug_status'}
-      = ["NEW", "VERIFIED", "ASSIGNED", "REOPENED",
-	 "NEEDINFO_ENG", "NEEDINFO", "INVESTIGATE", "MODIFIED",
-	 "ON_DEV", "UNCONFIRMED", "QA_READY", "ON_QA",
-	 "FAILS_QA", "NEEDINFO_REPORTER", "RELEASE_PENDING",
-	 "POST"];
   } else {
     $querydata->{'type0-0-0'} = 'equals';
     $querydata->{'value0-0-0'} = "fedora-review$flag";
   }
+  print STDERR "Running runQuery(rpc, '$flag') all open\n";
   my $call = $rpc->call('bugzilla.runQuery', $querydata,
 			$main::BZusername, $main::password);
   if ($call->faultstring) {
-    print STDERR "Running runQuery(rpc, '$flag')\n";
     print STDERR $call->faultstring . "\n";
     exit 1;
   }
   my $result = $call->result;
-  return $result->{'bugs'};
+  my $res_all = $result->{'bugs'};
+  $querydata->{'bug_status'} = ["CLOSED"];
+  print STDERR "Running runQuery(rpc, '$flag') closed\n";
+  $call = $rpc->call('bugzilla.runQuery', $querydata,
+		     $main::BZusername, $main::password);
+  if ($call->faultstring) {
+    print STDERR $call->faultstring . "\n";
+    exit 1;
+  }
+  $result = $call->result;
+  my $res2 = $result->{'bugs'};
+  push @$res_all, @$res2;
+  return $res_all;
 }
 
 sub runQueryOpenBugs {