Hi, Le 22/04/2011 15:12, Raphael Hertzog a écrit : > On Thu, 21 Apr 2011, David Prévot wrote: >> Would it be a good idea to convert this script to use the Debbugs' SOAP >> interface instead of bts2ldap? Could someone please point where the code >> would be publicly available? > > maintainers-needed.pl in http://svn.debian.org/wsvn/qa/trunk/data/wnpp/ Thanks, please make sure that libsoap-lite-perl is installed before applying this patch. Regards David
Index: maintainers-needed.pl
===================================================================
--- maintainers-needed.pl (révision 2516)
+++ maintainers-needed.pl (copie de travail)
@@ -5,6 +5,7 @@
# Copyright (C) 2004, 2005 Martin Michlmayr <tbm@cyrius.com>
# Copyright (C) 2004 Frank Lichtenheld <djpig@debian.org>
# Copyright (C) 2005, 2006 Christoph Berg <myon@debian.org>
+# Copyright (C) 2011 David Prévot <david@tilapin.org>
# $Id$
# This program is free software; you can redistribute it and/or modify
@@ -24,7 +25,7 @@
use strict;
use warnings;
-use Net::LDAP;
+use SOAP::Lite;
use Date::Parse;
use Mail::Header;
use DB_File;
@@ -45,7 +46,6 @@
}
#$mail = "> report.txt";
-my $BTS2LDAP = "/org/qa.debian.org/data/bts/bts2ldap-filter '^debbugsPackage:\\s*wnpp\$' |";
my $GETPACKAGES = "/org/qa.debian.org/data/ftp/get-packages";
my @UNS_ARCHS = glob "/org/qa.debian.org/ftp/debian/dists/unstable/main/binary-*";
my $UNS_ARCHS = "@UNS_ARCHS";
@@ -53,28 +53,24 @@
@UNS_ARCHS = split / /, $UNS_ARCHS;
my $POPCONDB = "/org/qa.debian.org/data/popcon/popcon.db";
+my $soap = SOAP::Lite->uri('Debbugs/SOAP')->proxy('http://bugs.debian.org/cgi-bin/soap.cgi')
+ or die "Couldn't make connection to SOAP insterface: $@";
+my $bugs = $soap->get_bugs(package=>'wnpp')->result;
+my $status = $soap->get_status($bugs)->result() or die;
+
my $curtime = time;
-open INDEX, $BTS2LDAP or die "Couldn't open BTS LDAP index file: $!";
my (@rfa, @orphaned, @rfh, %pkginfo);
-while (1) {
- my $reader = new Mail::Header \*INDEX;
- last unless $reader->get("debbugsID");
- last unless $reader->get("debbugsID") > 0;
- next unless $reader->get("debbugsState") =~ /^(open|forwarded)$/;
- next if grep $_ eq "fixed\n", $reader->get("debbugsTag");
- my $package = $reader->get("debbugsPackage");
- chomp($package);
- my $bugnr = $reader->get("debbugsID");
- chomp($bugnr);
- my $title = $reader->get("debbugsTitle");
- chomp($title);
+foreach my $bugnr (@$bugs) {
+ next if $status->{$bugnr}->{done};
+ next if $status->{$bugnr}->{archived};
+ my $title = $status->{$bugnr}->{subject};
if (! $title) {
print $bugnr, "\n";
next;
}
next unless $title =~ /^(?:RFA|ITO|O|RFH):/;
- my $date = $reader->get("debbugsDate");
+ my $date = $status->{$bugnr}->{date};
my $age = ($curtime - $date)/86400;
# there are all kinds of broken bug titles; one common type are bugs
# without a description separated from the package name by --. If
@@ -119,7 +115,6 @@
}
}
}
-close INDEX;
$/ = "";
if (open PCKG, "$GETPACKAGES -s unstable -a source|") {
Attachment:
signature.asc
Description: OpenPGP digital signature