1 files changed, 17 insertions, 0 deletions
diff --git a/move/collect-directories-to-create.pl b/move/collect-directories-to-create.pl
new file mode 100755
index 000000000..c6e208c57
--- /dev/null
+++ b/move/collect-directories-to-create.pl
@@ -0,0 +1,17 @@
+#!/usr/bin/perl
+
+use strict;
+use MDK::Common;
+
+#- there are programs/packages which fail when the directory
+#- in which they try to write doesn't exist. better collect them
+#- at build time so that drakx startup can create them.
+
+my @list = map { if_(m|^\Q$ARGV[0]\E(.*)$|, $1) } `find $ARGV[0]/{etc,var} -type d`;
+my @final;
+foreach my $e (sort { length($b) <=> length($a) } @list) {
+    any { /^\Q$e\E/ } @final and next;
+    push @final, $e;
+}
+
+print "$_\n" foreach sort @final;