Wrote a script to bulk add EOL entries for LTS buster.

1 files changed, 68 insertions, 0 deletions

diff --git a/bin/lts-auto-eol b/bin/lts-auto-eol
new file mode 100755
index 0000000000..51d46e9ae5
--- /dev/null
+++ b/bin/lts-auto-eol
@@ -0,0 +1,68 @@
+#!/usr/bin/perl
+use File::Copy;
+my $pkg = $ARGV[0];
+shift @ARGV;
+while (my $cve = shift @ARGV) {
+    &addEol($pkg, $cve);
+}
+exit;
+
+sub addEol {
+    my ($pkg, $cve) = @_;
+    print "Searching for $cve\n";
+    # Mode
+    #  d - default
+    #  c - cve found
+    #  p - pkg found
+    #  e - eol printed, just continue to end of file as we are done
+    my $mode = "d";
+    open IF, "data/CVE/list";
+    open OF, ">data/CVE/list.x";
+    while (my $line = <IF>) {
+	if ($mode eq "e") {
+	    print OF $line;
+	    next;
+	}
+	if ($mode eq "d") {
+	    if ($line =~ /$cve\s/) {
+		print "  CVE $cve found\n";
+		$mode = "c";
+		print OF $line;
+		next;
+	    }
+	}
+	if ($mode eq "c") {
+	    if ($line =~ /^\s+- $pkg\s/) {
+		$mode = "p";
+		print "  Package $pkg found\n";
+		print OF $line;
+		next;
+	    }
+	}
+	if ($mode eq "p") {
+	    if ($line =~ /^\s+\[buster\] - $pkg\s/) {
+		$mode = "e";
+		print "  Existing LTS line found, skipping: $line";
+		print OF $line;
+		next;
+	    }
+	    foreach my $rel ("bullseye", "bookworm", "trixie") {
+		if ($line =~ /^\s+\[$rel\] - $pkg\s/) {
+		    # skipping through other distribution info
+		    print OF $line;
+		    next;
+		}
+	    }
+	    # End of package entry add EOL
+	    print "  EOL $cve for $pkg added.\n";
+	    print OF "\t[buster] - $pkg <end-of-life> (No longer supported in LTS buster)\n";
+	    print OF $line;
+	    $mode = "e";
+	    next;
+	}
+	print OF $line;
+    }
+    close IF;
+    close OF;
+    move ("data/CVE/list.x", "data/CVE/list");
+}