From c8842b786de25691aa69bab1f397445f97e2523c Mon Sep 17 00:00:00 2001
From: John McQuah <jquah@mx.sdf.org>
Date: Tue, 21 Mar 2023 20:39:05 -0400
Subject: [PATCH] find-iso-orphans: initial import

---
 scripts/find-iso-orphans | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100755 scripts/find-iso-orphans

diff --git a/scripts/find-iso-orphans b/scripts/find-iso-orphans
new file mode 100755
index 0000000..13fee2f
--- /dev/null
+++ b/scripts/find-iso-orphans
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+
+use warnings; use strict;
+
+my $depmap="/mnt/crux/setup.dependencies";
+my @orphans; my %DEPENDS;
+
+open (my $dfh, $depmap) or die "Cannot open dependency map $depmap!\n";
+while (<$dfh>) {
+  $DEPENDS{$1} = $2 if m/(.*): (.*)/;
+}
+close ($dfh);
+
+my $iso_deps="";
+foreach my $port (keys %DEPENDS) {
+   $DEPENDS{$port} =~ s/ $port / /;
+   $iso_deps .= " $DEPENDS{$port} " if ($DEPENDS{$port} !~ /^\s*$/);
+}
+@orphans = grep { $iso_deps !~ / $_/ } keys %DEPENDS;
+
+print "Orphans found on the iso:\n";
+foreach (@orphans) { print "$_\n"; }