summaryrefslogtreecommitdiffstats
path: root/lib/MGA/DrakISO
diff options
context:
space:
mode:
Diffstat (limited to 'lib/MGA/DrakISO')
-rw-r--r--lib/MGA/DrakISO/BuildRoot.pm28
-rw-r--r--lib/MGA/DrakISO/Utils.pm10
2 files changed, 30 insertions, 8 deletions
diff --git a/lib/MGA/DrakISO/BuildRoot.pm b/lib/MGA/DrakISO/BuildRoot.pm
index 4a7cfe0..d9bd2c4 100644
--- a/lib/MGA/DrakISO/BuildRoot.pm
+++ b/lib/MGA/DrakISO/BuildRoot.pm
@@ -92,6 +92,7 @@ sub install_live_system {
# Mount the stage2 installer filesystem.
if ($remote_method) {
+ mkdir_p($chroot . '/tmp');
my $local_mdkinst = $chroot . '/tmp/mdkinst.sqfs';
run_('curl', '--silent', '-o', $local_mdkinst, $arch_repository . '/install/stage2/mdkinst.sqfs')
or die "ERROR: failed to download mdkinst.sqfs from remote repository\n";
@@ -172,7 +173,7 @@ sub install_live_system {
"HOME=/",
);
my $cmd = "/usr/bin/runinstall2 --local_install --auto_install $rooted_auto_inst";
- $cmd .= "--method $remote_method" if $remote_method;
+ $cmd .= " --method $remote_method" if $remote_method;
run_in_root($chroot, $arch, 'sh', '-c', "$env $cmd")
or die "ERROR: failed to install base system\n";
@@ -332,6 +333,7 @@ sub write_auto_inst_cfg {
" X => { disabled => 1 },",
" keep_unrequested_dependencies => 0,",
" match_all_hardware => 1,",
+ " curl_options => '--silent',",
" autoExitInstall => 1,",
"};",
);
@@ -438,7 +440,7 @@ sub build_local_repo {
my $class = $path_parts[-3];
my $dst_dir = $local_repo_dir . $class;
mkdir_in_root($root, $dst_dir) if ! -d "$root$dst_dir";
- copy_to_root($root, $dst_dir, undef, $src_path);
+ copy_file_to_root($root, $dst_dir, undef, $src_path);
$classes{$class} = 1;
}
@@ -448,7 +450,7 @@ sub build_local_repo {
my $media_info_dir = $local_repo_dir . $class . '/media_info';
mkdir_in_root($root, $media_info_dir);
my $pubkey = $arch_repository . '/media/' . $class . '/release/media_info/pubkey';
- copy_to_root($root, $media_info_dir, undef, $pubkey);
+ copy_file_to_root($root, $media_info_dir, undef, $pubkey);
run_in_root($root, $arch, 'genhdlist2', if_($::verbose < 2, '-q'), $local_repo_dir . $class)
or die "ERROR: failed to generate hdlists for '$class' local repository\n";
}
@@ -692,11 +694,27 @@ sub mkdir_in_root {
or die "ERROR: failed to make directory $dir in Live system root\n";
}
+sub copy_file_to_root {
+ my ($root, $dst_dir, $mode, $src_file) = @_;
+
+ my $dst_file = $dst_dir . '/' . basename($src_file);
+ if ($src_file =~ m!^(ftp|http)://!) {
+ run_as_root('curl', '--silent', '-o', $root . $dst_file, $src_file)
+ or die "ERROR: couldn't copy $src_file to $dst_file\n";
+ } else {
+ run_as_root('cp', $src_file, $root . $dst_file)
+ or die "ERROR: couldn't copy $src_file to $dst_file\n";
+ }
+
+ return if !defined $mode;
+
+ run_as_root('chmod', sprintf("%o", $mode), $root . $dst_file)
+ or die "ERROR: failed to change mode of $dst_file in Live system root\n";
+}
+
sub copy_to_root {
my ($root, $dest, $mode, @files) = @_;
- # TODO: support source files in remote repositories
-
run_as_root('cp', '-af', '--no-preserve=ownership', @files, $root . $dest)
or die "ERROR: failed to copy file to $dest in Live system root\n";
diff --git a/lib/MGA/DrakISO/Utils.pm b/lib/MGA/DrakISO/Utils.pm
index 0f97080..b0a942d 100644
--- a/lib/MGA/DrakISO/Utils.pm
+++ b/lib/MGA/DrakISO/Utils.pm
@@ -111,10 +111,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";
+ if ($src_file =~ m!^(ftp|http)://!) {
+ run_as_root('curl', '--silent', '-o', $dst_file, $src_file)
+ or die "ERROR: couldn't copy $src_file to $dst_file\n";
+ } else {
+ symlinkf($src_file, $dst_file)
+ or die "ERROR: couldn't link $src_file to $dst_file\n";
+ }
}
sub mk_dev_null {