From 4b4b3e37c0025a512df5967ae9e46353caadf6bc Mon Sep 17 00:00:00 2001
From: Martin Whitaker <mageia@martin-whitaker.me.uk>
Date: Fri, 22 Dec 2017 00:29:27 +0000
Subject: Complete support for building classic installer ISOs.

---
 lib/MGA/DrakISO/Utils.pm | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'lib/MGA/DrakISO/Utils.pm')

diff --git a/lib/MGA/DrakISO/Utils.pm b/lib/MGA/DrakISO/Utils.pm
index ee1068f..c3533a4 100644
--- a/lib/MGA/DrakISO/Utils.pm
+++ b/lib/MGA/DrakISO/Utils.pm
@@ -30,7 +30,7 @@ use IO::Select;
 
 use Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT = qw(directory_usage run_ mount_system_fs umount_external_fs);
+our @EXPORT = qw(directory_usage run_ copy_or_link mount_system_fs umount_external_fs);
 
 sub directory_usage {
     my ($dir, $o_apparent) = @_;
@@ -81,6 +81,14 @@ sub device_mkfs {
     }
 }
 
+sub copy_or_link {
+    my ($src_file, $dst_file) = @_;
+    # TODO: support remote sources.
+    mkdir_p(dirname($dst_file));
+    symlinkf($src_file, $dst_file)
+      or die "ERROR: couldn't link $src_file to $dst_file\n";
+}
+
 sub mount_system_fs {
     my ($build) = @_;
     run_('mount', '-t', 'devtmpfs', '/dev',  $build->get_system_root . '/dev');
-- 
cgit v1.2.1