[Secure-testing-commits] r58778 - bin
Raphael Geissert
geissert at moszumanska.debian.org
Thu Dec 21 12:01:22 UTC 2017
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;
More information about the Secure-testing-commits
mailing list