[Secure-testing-commits] r58778 - bin

[Raphael Geissert]

Author: geissert
Date: 2017-12-21 12:01:22 +0000 (Thu, 21 Dec 2017)
New Revision: 58778

Modified:
   bin/check-new-issues
Log:
check-new-issues: add -b, to auto process entries


Modified: bin/check-new-issues
===================================================================
--- bin/check-new-issues	2017-12-21 12:00:07 UTC (rev 58777)
+++ bin/check-new-issues	2017-12-21 12:01:22 UTC (rev 58778)
@@ -7,7 +7,7 @@
 use Term::ReadLine;
 
 my %opts;
-getopts('ln:fhi:t:Tca:e:uUsD', \%opts);
+getopts('ln:fhi:t:Tca:e:uUsDb', \%opts);
 
 sub print_commands {
     print <<'EOF';
@@ -58,6 +58,7 @@
 -s        : skip automatic apt-cache/apt-file searches, suggest the
             command to run instead
 -D        : skip the download operations
+-b        : auto process entries (e.g. NFUs)
 
 EOF
 
@@ -221,6 +222,21 @@
 	exit 0;
 }
 
+if ($opts{b}) {
+	# auto process
+	foreach my $todo (sort {$b <=> $a} @todos) {
+		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 ;
+				next;
+			}
+		}
+	}
+	save_datafile();
+	exit 0;
+}
 
 my $term = new Term::ReadLine 'check-new-issues';
 if ($term->ReadLine() eq 'Term::ReadLine::Stub') {
@@ -274,10 +290,13 @@
 foreach my $todo (sort {$b <=> $a} @todos) {
 	last unless present_issue($todo);
 }
+save_datafile();
 
-open(my $fh, ">", $datafile);
-print $fh @{$entries};
-close($fh);
+sub save_datafile {
+	open(my $fh, ">", $datafile);
+	print $fh @{$entries};
+	close($fh);
+}
 
 sub present_issue {
 	my $name = shift;