[Secure-testing-commits] r56343 - bin

[Raphael Geissert]

Author: geissert
Date: 2017-10-02 10:27:08 +0000 (Mon, 02 Oct 2017)
New Revision: 56343

Modified:
   bin/check-new-issues
Log:
Allow an entry to be added directly by typing '- package[...]'


Modified: bin/check-new-issues
===================================================================
--- bin/check-new-issues	2017-10-02 10:11:55 UTC (rev 56342)
+++ bin/check-new-issues	2017-10-02 10:27:08 UTC (rev 56343)
@@ -19,6 +19,7 @@
   * .rpackage to launch an editor with a report of the issue against "package"
   * !command to execute a command with system() without any escaping
   * v or e to launch an editor with the current item
+  * - package-entry to add an entry for "package" and lunch an editor (e.g. - poppler <unfixed>) 
   * q to save and quit
   * CTRL-C to quit without saving
   * everything else is inserted as product name for a NOT-FOR-US
@@ -104,7 +105,6 @@
 system "cd $basedir/.. ; wget -N $allitemsurl";
 system "cd $basedir/.. ; wget -N $wnppurl";
 
-
 print "Reading data...\n";
 
 my $entries=read_file($datafile, qr/^CVE/ );
@@ -284,6 +284,21 @@
 				next TODO;
 			}
 		}
+		elsif ($r=~ /^(\-\s+.+)$/ ) {
+			my @comps=split /\s+/, $1;
+			push @comps, '<unfixed>'
+				unless (scalar(@comps)>2);
+			my $inputentry = join(' ', @comps);
+
+			my $preventry=${$data->{$todo}->{entry}};
+			$preventry =~
+				s/^\s*TODO: check/\t$inputentry\n$&/m ;
+
+			my $newentry=edit_entry($preventry);
+			${$data->{$todo}->{entry}}=$newentry;
+			print "New entry set to:\n$newentry";
+			next TODO;
+		}
 		elsif ($r=~ /^\.r(.*)$/ ) {
 			my $tmp=new File::Temp();
 			my $tmpname=$tmp->filename;