Hi I noticed that nothing has happened for a while on this, nevertheless assuming it is still relevant or of interest, I have spent 30 min cooking together a proof-of-concept perl script that can report old RFP/ITP bugs. When ever it finds an old bug, it prints a comma separated line formatted like this: $BUG_ID, $REPORT_DATE, $TAGS, $SUBJECT Notes: It does not check if $SUBJECT contains comma's so filters should abuse that there are only four fields to split it correctly if they care about the subject. I hope you find it useful. ~Niels
#!/usr/bin/perl
#
#
# This is a proof of concept script for automating the
# task of finding old RFP and ITP bugs.
#
# Niels Thykier <niels@thykier.net>
#
use strict;
use warnings;
use SOAP::Lite;
my $soap = new SOAP::Lite->uri('/Debbugs/SOAP')->proxy('http://bugs.debian.org/cgi-bin/soap.cgi');
my $wnpp_bugs = $soap->get_bugs(package=>'wnpp')->result();
my $age = time() - 365 * 24 * 3600;
foreach my $bug (@$wnpp_bugs) {
my $info = $soap->get_status($bug)->result->{$bug};
my $subject = $info->{subject};
if($subject !~ m/^(?:RF|IT)P:/o) {
# Not an RFP/ITP bug
next;
}
if($info->{done} || $info->{tags} =~ m/(?:pending|wontfix)/o){
# Already done or pending/wontfix
next;
}
if($info->{date} < $age) {
my $tags = $info->{tags}//'""';
if($tags eq ''){
$tags = '""';
}
# old enough (based on report date) and not tagged in any way that we ignore.
print "$bug, " . scalar(gmtime($info->{date})) . ", $tags, " . $info->{subject} ."\n";
}
}
Attachment:
signature.asc
Description: OpenPGP digital signature