allow to remove files on live media from live->{media}{remove_files}

1 files changed, 12 insertions, 0 deletions

diff --git a/draklive b/draklive
index e373f24..e647149 100755
--- a/draklive
+++ b/draklive
@@ -714,6 +714,17 @@ sub copy_files_to {
     }
 }
 
+sub join_lists {
+    my ($separator, $head, @lists) = @_;
+    @{$head || []}, map { $separator, @$_ } @lists;
+}
+
+sub remove_files_from {
+    my ($files, $root) = @_;
+    run_('find', $root, '(', join_lists('-o', map { [ '-name', $_ ] } @$files), ')', '-exec', 'rm', '-r', '{}', ';')
+      if $files && @$files;
+}
+
 sub post_install_system {
     my ($live) = @_;
 
@@ -798,6 +809,7 @@ sub post_install_system {
     if ($live->{media}{files}) {
         copy_files_to($live, $live->{media}{files}, get_builddir($live) . $live->{prefix}{build}{files});
     }
+    remove_files_from($live->{media}{remove_files}, get_builddir($live) . $live->{prefix}{build}{files});
 
     run_({ setarch => $live->{settings}{arch} },
 	 "chroot", get_system_root($live), "bash", "-c", $live->{system}{postInstall}) if $live->{system}{postInstall};