Remove lts-auto-eol script

It has little use, is written in perl and not using our current
parsers, and hardcodes stuff making it LTS specific when it
could be more generic.

1 files changed, 0 insertions, 68 deletions

diff --git a/bin/lts-auto-eol b/bin/lts-auto-eol
deleted file mode 100755
index 3ae392d64e..0000000000
--- a/bin/lts-auto-eol
+++ /dev/null
@@ -1,68 +0,0 @@
-#!/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;
-	    }
-	    if ($line =~ /^\s+\[bullseye\] - $pkg\s/ ||
-		$line =~ /^\s+\[bookworm\] - $pkg\s/ ||
-		$line =~ /^\s+\[trixie\] - $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");
-}