[Secure-testing-commits] r28464 - bin

[Raphael Geissert]

Author: geissert
Date: 2014-08-25 22:08:46 +0000 (Mon, 25 Aug 2014)
New Revision: 28464

Modified:
   bin/check-new-issues
Log:
Add some bits of auto-NFUs functionality

only knows about WordPress themes and plugins


Modified: bin/check-new-issues
===================================================================
--- bin/check-new-issues	2014-08-25 17:56:51 UTC (rev 28463)
+++ bin/check-new-issues	2014-08-25 22:08:46 UTC (rev 28464)
@@ -210,6 +210,16 @@
 	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 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;