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;
_______________________________________________
Secure-testing-commits mailing list
[email protected]
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/secure-testing-commits
