Add some bits of auto-NFUs functionality

only knows about WordPress themes and plugins


git-svn-id: svn+ssh://svn.debian.org/svn/secure-testing@28464 e39458fd-73e7-0310-bf30-c45bca0a0e42

1 files changed, 23 insertions, 0 deletions

diff --git a/bin/check-new-issues b/bin/check-new-issues
index 8fb09d777e..f110f521ba 100755
--- a/bin/check-new-issues
+++ b/bin/check-new-issues
@@ -210,6 +210,16 @@ TODO: foreach my $todo (reverse sort @todos) {
 	print ${$data->{$todo}->{CVE}} if $data->{$todo}->{CVE};
 	print ${$data->{$todo}->{entry}};
 
+	if ($data->{$todo}->{CVE}) {
+		my $nfu_entry = auto_nfu($todo);
+		if ($nfu_entry) {
+			${$data->{$todo}->{entry}} =~
+				s/^\s*TODO: check/\tNOT-FOR-US: $nfu_entry/m ;
+				print "New entry auto set to set to:\n${$data->{$todo}->{entry}}";
+				next TODO;
+		}
+	}
+
 	auto_search($todo);
 	
     READ: while (my $r=$term->readline(">") ) {
@@ -347,6 +357,19 @@ sub edit_entry {
 	
 }
 
+sub auto_nfu {
+	my $name=shift;
+
+	my $desc=description($name);
+	$desc =~ s/[\s\n]+/ /g;
+
+	if ($desc =~ m/in\s+the\s+(.+)\s+(plugin|theme)\s+(?:[\w\d.]+\s+)?(?:(?:before\s+)?[\w\d.]+\s+)?for\s+[Ww]ord[Pp]ress/) {
+		my ($name, $type) = ($1, $2);
+		return "$name $type for WordPress";
+	}
+	return '';
+}
+
 sub auto_search {
 	my $name=shift;