add facility to permit packages not available from any mirrors

1 files changed, 17 insertions, 2 deletions

diff --git a/bin/locmaint b/bin/locmaint
index bd2930ea..a3b89746 100755
--- a/bin/locmaint
+++ b/bin/locmaint
@@ -135,6 +135,8 @@ our %known_bad_obsolete_conffiles = (
 
 # CODE -- no more edit me
 
+my $xdg_config_root = $ENV{XDG_CONFIG_HOME} || catfile $ENV{HOME}, ".config";
+
 exit main();
 
 sub main {
@@ -521,8 +523,21 @@ sub do_sysmaint {
             delete @purgeable{@build_deps_packages};
         }
     }
-    my @obsolete_packages
-      = grep { $purgeable{$_}{obsolete} } keys %purgeable;
+
+    # this is machine-specific, rather than being stored in this script,
+    # because each time reinstall machine, the list should be reset
+    my %local_pkgs;
+    my $local_pkgs_file = catfile $xdg_config_root, qw(locmaint local_pkgs);
+    if (-e $local_pkgs_file) {
+	open my $local_pkgs_fh, "<", $local_pkgs_file;
+	for (<$local_pkgs_fh>) {
+	    chomp;
+	    $local_pkgs{$_} = undef;
+	}
+    }
+
+    my @obsolete_packages = grep !exists $local_pkgs{$_},
+      grep $purgeable{$_}{obsolete}, keys %purgeable;
     # packages go in and out of testing frequently, so we probably
     # don't want to remove them
     unless (@obsolete_packages == 0 || $suite eq TESTING) {