[Secure-testing-commits] r13662 - bin

[Raphael Geissert]

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;