r8757 - /scripts/qa/versioncheck3.pl

[gregoa-guest at users.alioth.debian.org]

Author: gregoa-guest
Date: Fri Nov  2 14:21:18 2007
New Revision: 8757

URL: http://svn.debian.org/wsvn/?sc=1&rev=8757
Log:
query the BTS only 2 times instead of 1+number_of_bugs times; reduces the query time to less than 1/3

Modified:
    scripts/qa/versioncheck3.pl

Modified: scripts/qa/versioncheck3.pl
URL: http://svn.debian.org/wsvn/scripts/qa/versioncheck3.pl?rev=8757&op=diff
==============================================================================
--- scripts/qa/versioncheck3.pl (original)
+++ scripts/qa/versioncheck3.pl Fri Nov  2 14:21:18 2007
@@ -270,11 +270,11 @@
     my $bughash = shift;
 
     my $soap = SOAP::Lite->uri('Debbugs/SOAP')->proxy('http://bugs.debian.org/cgi-bin/soap.cgi');
-    my $pkgperlbugs = $soap->get_bugs(maint=>'pkg-perl-maintainers at lists.alioth.debian.org')->result();
-    foreach my $bug(@$pkgperlbugs) {
-        my $status = $soap->get_status($bug)->result->{$bug};
-        my $pkgname = $status->{package};
-        my $done = $status->{done};
+    my $pkgperlbugs = $soap->get_status($soap->get_bugs(maint=>'pkg-perl-maintainers at lists.alioth.debian.org')->result())->result;
+    foreach my $bug(keys %$pkgperlbugs) 
+    {
+        my $pkgname = $pkgperlbugs->{$bug}->{package};
+        my $done = $pkgperlbugs->{$bug}->{done};
         $bughash->{$pkgname}++ unless $done;
     }