Author: geissert
Date: 2009-12-26 20:50:38 +0000 (Sat, 26 Dec 2009)
New Revision: 13662
Modified:
bin/check-new-issues
Log:
Look for ITPs and RFPs in check-new-issues
Modified: bin/check-new-issues
==================================================================---
bin/check-new-issues 2009-12-26 19:28:06 UTC (rev 13661)
+++ bin/check-new-issues 2009-12-26 20:50:38 UTC (rev 13662)
@@ -20,6 +20,7 @@
* blank line to skip to next issue
* .fname to do "apt-file search name"
* .cname to do "apt-cache search name"
+ * .wname to look up name in wnpp
* .mpackage to search data/embedded-code-copies for "package"
* v or e to launch an editor with the current item
* q to save and quit
@@ -51,7 +52,6 @@
# - go back to previous issue / undo
# - handle entries with several TODO lines
# - handle claimed-by
-# - look for ITPs?
my $basedir;
@@ -79,6 +79,8 @@
my $allitemsfile="gunzip -c $basedir/../allitems.txt.gz|";
my
$allitemsurl="http://cve.mitre.org/data/downloads/allitems.txt.gz";
my $removedfile="$basedir/data/packages/removed-packages";
+my $wnppurl="http://qa.debian.org/data/bts/wnpp_rm";
+my $wnppfile="../wnpp_rm";
my $issue_regexp= $opts{i} || ''CVE-20(?:0[3-9]|1[0-9])'';
my $todo_regexp= $opts{t} || ( $opts{T} ? ''^\s+TODO: check'' :
''^\s+TODO: check$'' );
@@ -88,6 +90,7 @@
my $editor=$ENV{EDITOR} || $ENV{VISUAL} || "vi";
system "cd $basedir/.. ; wget -N $allitemsurl";
+system "cd $basedir/.. ; wget -N $wnppurl";
print "Reading data...\n";
@@ -105,6 +108,14 @@
$data->{$1}->{CVE}=\$cve;
}
+my %wnpp;
+open(WNPP, $wnppfile) or die "could not open $wnppfile";
+while (<WNPP>) {
+ next unless (m/^([\w.-]+): ((?:ITP|RFP) .+)$/);
+ $wnpp{lc $1} = $2;
+}
+close(WNPP);
+
# packages that should be ignored by -u/-U
my @ignore_missing_bug_list = qw/linux-2.6 linux-2.6.24
kfreebsd-source kfreebsd-5 kfreebsd-6 kfreebsd-7
@@ -211,6 +222,14 @@
print "===\n";
next READ;
}
+ elsif ($r=~ /^\.w(.*)$/ ) {
+ my $s = $1;
+ $s =~ s/^\s*(.*?)\s*$/$1/;
+ print "=== wnpp lookup for ''$s'':\n";
+ search_wnpp($s);
+ print "===\n";
+ next READ;
+ }
elsif ($r=~ /^\.m(.*)$/ ) {
my $s = $1;
$s =~ s/^\s+//;
@@ -331,6 +350,7 @@
foreach my $p (split /\s+/, $prog) {
search_embed($p);
+ search_wnpp(qr<^\Q$p\E$>);
}
}
if ( $file =~ /^(?:index|default|login|search|admin)\.(?:php3?|asp|cgi|pl)$/i
) {
@@ -428,6 +448,18 @@
return $found;
}
+sub search_wnpp {
+ my $s = shift;
+ $s = lc $s;
+ my $found = 0;
+ foreach my $e (keys %wnpp) {
+ next unless ($e =~ m/$s/);
+ print "$e: $wnpp{$e}\n";
+ $found = 1;
+ }
+ return $found;
+}
+
sub read_removed_packages_file {
my $file = shift;