From ef69845fc4eaab301657cd70f1ea1cd38a1b1e64 Mon Sep 17 00:00:00 2001
From: Stephan Barth <stephan.barth@uniwork.de>
Date: Thu, 7 Nov 2024 18:52:50 +0100
Subject: [PATCH] build(utils/dockerizedmake.pl): Helper tool to symlink a
 whole directory content.

---
 utils/dirsymlink.pl | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 utils/dirsymlink.pl

diff --git a/utils/dirsymlink.pl b/utils/dirsymlink.pl
new file mode 100755
index 000000000..c7f4dd22b
--- /dev/null
+++ b/utils/dirsymlink.pl
@@ -0,0 +1,19 @@
+#!/usr/bin/env perl
+
+use strict;
+use warnings;
+
+my ($shadowdir, @keepdirs) = @ARGV;
+
+mkdir($shadowdir);
+
+system(qq#rm -f "$shadowdir"/*#);
+
+for my $k(@keepdirs) {
+  unlink("$shadowdir/$k");
+  mkdir("$shadowdir/$k");
+}
+
+system(qq#ln -rs .* * "$shadowdir"#);
+
+