diff options
Diffstat (limited to 'lib/MGA/DrakISO/BuildRoot.pm')
| -rw-r--r-- | lib/MGA/DrakISO/BuildRoot.pm | 683 |
1 files changed, 510 insertions, 173 deletions
diff --git a/lib/MGA/DrakISO/BuildRoot.pm b/lib/MGA/DrakISO/BuildRoot.pm index 616e3a6..af06769 100644 --- a/lib/MGA/DrakISO/BuildRoot.pm +++ b/lib/MGA/DrakISO/BuildRoot.pm @@ -27,8 +27,11 @@ package MGA::DrakISO::BuildRoot; use strict; use MDK::Common; +use Try::Tiny; use common; +use File::Temp qw(tmpnam); + use MGA::DrakISO::LiveBuild; use MGA::DrakISO::Loopback; use MGA::DrakISO::Utils; @@ -37,163 +40,479 @@ use Exporter; our @ISA = qw(Exporter); our @EXPORT = qw(install_live_system customise_live_system); +############################################################################### +# System Installation +############################################################################### + # This is the top-level function called to create the basic root filesystem. It # uses stage2 of the Mageia installer to do the actual work. It is independent # of any other preparatory step. # +# This function is largely derived from drakx_in_chroot. +# sub install_live_system { my ($build) = @_; - my $repository = $build->{settings}{repository} . '/' . $build->{settings}{arch}; + print "Installing Live system\n" if $::verbose; - my $drakx_in_chroot = $repository . '/misc/drakx-in-chroot'; - my $remote_repository = $repository =~ m!^(ftp|http)://! && $1; - if ($remote_repository) { - my $local_drakx_in_chroot = $build->get_builddir('scripts') . '/drakx-in-chroot'; - mkdir_p(dirname($local_drakx_in_chroot)); - run_('curl', '--silent', '-o', $local_drakx_in_chroot, $drakx_in_chroot) - or die "unable to get drakx-in-chroot from remote repository\n"; - $drakx_in_chroot = $local_drakx_in_chroot; - } + my $arch = $build->{settings}{arch}; - local %ENV = ( - %ENV, - (map { "DRAKLIVE_" . uc($_->[0]) => $_->[1] } group_by2(%{$build->{settings}})), - %{$build->{system}{install_env}}, - ); - $ENV{DRAKLIVE_LANGS} = join(':', $build->get_langs); - run_({ targetarch => $build->{settings}{arch} }, - 'perl', $drakx_in_chroot, - $repository, - $build->get_system_root, - if_($build->{system}{auto_install}, '--auto_install', $build->{settings}{config_root} . '/' . $build->{system}{auto_install}), - if_($build->{system}{patch_install}, '--defcfg', $build->{settings}{config_root} . '/' . $build->{system}{patch_install}), - if_($build->{system}{rpmsrate}, '--rpmsrate', $build->{settings}{config_root} . '/' . $build->{system}{rpmsrate}), - ($build->{system}{stage2_updates} ? (map { ('--stage2-update', $build->{settings}{config_root} . '/' . $_->[0], $_->[1]) } @{$build->{system}{stage2_updates}}) : ()), - ) or die "unable to install system chroot\n"; -} + my $base_repository = $build->{settings}{repository}; + my $arch_repository = $base_repository . '/' . $arch; + my $remote_method = $arch_repository =~ m!^(ftp|http)://! && $1; -# This is the top-level function called to customise the root filesystem. It -# allows a standard Mageia installation to be fine-tuned for use as a Live -# system. The basic root filesystem must have been prepared before calling -# this function. -# -sub customise_live_system { - my ($build) = @_; + my $chroot = $build->get_chroot_dir; - my $previous_umask = umask; - #- workaround buggy installation of directories that are not owned by any packages - umask 022; + my $rooted_stage2 = '/tmp/stage2'; + my $chroot_stage2 = $chroot . $rooted_stage2; + + my $live_root = $build->get_system_root; + if (-e $live_root) { + # We want a clean start... + umount_all_in_root($live_root); + run_as_root('rm', '-rf', $live_root); + } + mkdir_p($live_root); + + my $Xserver_pid; + my $error_message; + try { + # Mount the directory where we want to install the Live system. + mount($chroot . '/mnt', $live_root, '-o bind'); + + # Mount the standard system pseudo-filesystems, so that the installer + # has a proper environment to run in. + mount_system_fs($chroot); + mount($chroot . '/sys/kernel/debug', 'none', '-t debugfs'); + + # Mount the stage2 installer filesystem. + if ($remote_method) { + my $local_mdkinst = $chroot . '/tmp/mdkinst.sqfs'; + system("curl --silent -o $local_mdkinst $arch_repository/install/stage2/mdkinst.sqfs") + or die "ERROR: failed to download mdkinst.sqfs from remote repository\n"; + mount($chroot_stage2, $local_mdkinst, '-t squashfs -o loop,ro'); + + } elsif (-d $arch_repository . '/install/stage2/live') { + mount($chroot_stage2, $arch_repository . '/install/stage2/live', '-o bind,ro'); + + } elsif (-f $arch_repository . '/install/stage2/mdkinst.sqfs') { + mount($chroot_stage2, $arch_repository . '/install/stage2/mdkinst.sqfs', '-t squashfs -o loop,ro'); + + } else { + die "ERROR: failed to find installer stage2\n"; + } + + # The stage2 installer expects to find the full repository in this + # location... + mount($chroot . '/tmp/media', $base_repository, '-o bind,ro') if !$remote_method; + # and the arch-specific repository in this location. + symlinkf('media/' . $arch, $chroot . '/tmp/image'); + # Because the installer uses the above symlink, relative paths in + # the urpmi configuration don't work unless we add this extra link. + symlinkf('media/i586', $chroot . '/tmp/i586') if $arch eq 'x86_64'; + + # If the user has provided an auto-install configuration file, use it, + # otherwise construct one. + my $rooted_auto_inst = '/tmp/auto_inst.cfg.pl'; + my $system_auto_inst = $build->get_absolute_path($build->{system}{auto_install}); + my $interactive; + if (defined $system_auto_inst) { + -f $system_auto_inst or die "ERROR: can't find the auto-install configuration file $system_auto_inst\n"; + cp_f($system_auto_inst, $chroot . $rooted_auto_inst); + } else { + write_auto_inst_cfg($build, $chroot . $rooted_auto_inst, \$interactive); + } + + # Add a few more things to complete the installer's working environment. + + my $etc = $chroot . '/etc'; + mkdir_p($etc); + output($etc . '/hosts', "127.0.0.1 localhost\n"); + + my $var = $chroot . '/var'; + mkdir_p($var); + + create_initial_symlinks($chroot, $rooted_stage2); + + chomp(my $kernel_version = `uname -r`); + my $modules_dir = '/modules/' . $kernel_version; + output_p($chroot . $modules_dir . $_, "\n") + foreach "/lib/$modules_dir/modules.dep", "/lib/$modules_dir/modules.alias"; + + # If some of the installer steps will be interactive, we need to start a + # nested X server to display the GUI. + my $DISPLAY = ''; + if ($interactive) { + my $Xserver = whereis_binary('Xephyr') || whereis_binary('Xnest') + or die "ERROR: Xephyr or Xnest not found - cannot run installer GUI\n"; + my $screen_size = $Xserver =~ /Xephyr/ ? '-screen' : '-geometry'; + $DISPLAY = ':8'; + if ($Xserver_pid = fork()) { + } else { + close(STDOUT); open(STDOUT, '>', '/dev/null'); + close(STDERR); open(STDERR, '>', '/dev/null'); + exec($Xserver, $DISPLAY, '-ac', $screen_size, '1024x768'); + } + } + + # Run the installer. The chroot command sets up a new environment, + # so we need to set the variables we want after we've entered the + # chroot. + my $env = join(' ', + "PATH=/usr/sbin:/mnt/usr/sbin:/usr/bin:/mnt/usr/bin", + "LD_LIBRARY_PATH=/usr/lib:/mnt/usr/lib:/usr/lib64:/mnt/usr/lib64", + if_($remote_method, "URLPREFIX=$arch_repository"), + "DISPLAY=$DISPLAY", + "TERM=linux", + "HOME=/", + ); + my $cmd = "/usr/bin/runinstall2 --local_install --auto_install $rooted_auto_inst"; + $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"; + } catch { + $error_message = $_; + } finally { + # During package installation, a dbus daemon may get automatically + # launched in the Live system root. We need to kill it before we + # can unmount the root filesystem. + run_as_root('fuser', '-s', '-k', "$chroot/mnt"); + # Allow a bit of time for the processes to die. + sleep(1); + # Now we can unmount everything. The order is important. + umount_all_in_root($live_root); + umount_all_in_root($chroot); + # And finally kill off our nested X server. + kill(15, $Xserver_pid) if $Xserver_pid; + }; + defined $error_message && die $error_message; +} - mount_system_fs($build); +sub write_auto_inst_cfg { + my ($build, $file, $interactive) = @_; + + my $region = $build->{settings}{region}; + my $enabled_media = $build->{system}{enabled_media}; + my $rpmsrate_flags = $build->{system}{rpmsrate_flags}; + my $rpmsrate_level = $build->{system}{rpmsrate_level} || 5; + my $include_packages = $build->{system}{include_packages}; + my $exclude_packages = $build->{system}{exclude_packages}; + my $preferred_packages = $build->{system}{preferred_packages}; + my @desktops = split(/\|/, $build->{settings}{desktop}); + my $default_user = $build->{settings}{default_user}; + my $post_install_nr = $build->{system}{post_install_nr}; + my $post_install = $build->{system}{post_install}; + + $$interactive = !$region || !$enabled_media || !$rpmsrate_flags || !$default_user; + + my @text; + push @text, ( + "\$o = {", + " security => 1,", + " authentication => {", + " shadow => 1,", + " local => 1,", + " blowfish => 1,", + " },", + ); + push @text, ( + " interactiveSteps => [", + if_(!$region, + " 'selectLanguage',", + " 'selectKeyboard',", + ), + if_(!$enabled_media, + " 'chooseMedia',", + ), + if_(!$rpmsrate_flags, + " 'choosePackages',", + ), + if_(!$default_user, + " 'addUser',", + ), + " ],", + ) if $$interactive; + push @text, ( + " media => [", + " {", + " type => 'media_cfg',", + " url => 'drakx://media',", + " selected_names => '" . join(', ', @$enabled_media) . "',", + " },", + " ],", + " # temporary (?) fix for mga#12299", + " enabled_media => [ " . join(', ', map { "'$_'" } @$enabled_media) . " ],", + ) if $enabled_media; + push @text, ( + " rpmsrate_flags_chosen => {", + (map { " $_ => 1," } @$rpmsrate_flags), + " },", + " compssListLevel => $rpmsrate_level,", + ) if $rpmsrate_flags; + push @text, ( + " default_packages => [", + (map { " '$_'," } @$include_packages), + " ],", + ) if $include_packages; + push @text, ( + " skipped_packages => [", + (map { " '$_'," } @$exclude_packages), + " ],", + ) if $exclude_packages; + push @text, ( + " preferred_packages => '" . join(', ', @$preferred_packages) . "',", + ) if $preferred_packages; + push @text, ( + " meta_class => 'desktop',", + " desktop => '$desktops[0]',", + ) if @desktops; + push @text, ( + " autologin => '$default_user',", + " users => [", + " {", + " realname => '',", + " name => '$default_user',", + " shell => '/bin/bash',", + " icon => 'default',", + " groups => [],", + " gid => '',", + " uid => '',", + " },", + " ],", + " superuser => {", + " pw => '',", + " realname => 'root',", + " shell => '/bin/bash',", + " home => '/root',", + " gid => '0',", + " uid => '0',", + " },", + ) if $default_user; + push @text, ( + " locale => {", + " lang => 'en_US',", + " country => 'US',", + " IM => undef,", + if_($region ne 'all', + " langs => { " . join(', ', map { "$_ => 1" } $build->get_langs) . " },", + ), + if_($region eq 'all', + " langs => { all => 1 },", + ), + " utf8 => 1,", + " },", + " keyboard => {", + " KEYBOARD => 'us',", + " KEYTABLE => 'us',", + " KBCHARSET => 'C',", + " GRP_TOGGLE => '',", + " },", + " timezone => {", + " ntp => undef,", + " timezone => 'America/New_York',", + " UTC => 1,", + " },", + ) if $region; + push @text, ( + " postInstallNonRooted => \"$post_install_nr\"," + ) if $post_install_nr; + push @text, ( + " postInstall => \"$post_install\"," + ) if $post_install; + push @text, ( + " X => { disabled => 1 },", + " keep_unrequested_dependencies => 0,", + " match_all_hardware => 1,", + " autoExitInstall => 1,", + "};", + ); + output($file, map { "$_\n" } @text); +} - #- copy resolv.conf for name resolution to work when adding media - cp_f("/etc/resolv.conf", $build->get_system_root . "/etc/"); +sub create_initial_symlinks { + my ($chroot, $rooted_stage2) = @_; - #- remove previous draklive leftovers if needed - run_({ root => $build->get_system_root }, 'urpmi.removemedia', '-a'); + my $chroot_stage2 = $chroot . $rooted_stage2; - foreach (@{$build->{system}{additional_media}}) { - run_({ root => $build->get_system_root }, 'urpmi.addmedia', if_($_->{distrib}, '--distrib'), $_->{name}, $_->{path}) - or die "unable to add media from $_->{path}\n"; - @{$_->{packages} || []} or next; - run_({ root => $build->get_system_root, targetarch => $build->{settings}{arch} }, - 'urpmi', '--auto', '--no-verify-rpm', if_(!$_->{distrib}, '--searchmedia', $_->{name}), @{$_->{packages}}) - or die "unable to install packages from $_->{path}\n"; + foreach my $line (cat_or_die($chroot_stage2 . '/usr/share/symlinks')) { + my ($from, $to_) = split(' ', $line); + my $to = $chroot . ($to_ || $from); + $from = $rooted_stage2 . $from if !$to_; + symlinkf($from, $to) or die "ERROR: symlinking $to failed\n"; } - #- additional rpms may have dependencies in additional media - if (@{$build->{system}{rpms} || []}) { - my $rpm_tmp_dir = '/tmp/draklive_rpms'; - mkdir_p($build->get_system_root . $rpm_tmp_dir); - cp_f((map { $build->{settings}{config_root} . '/' . $_ } @{$build->{system}{rpms}}), $build->get_system_root . $rpm_tmp_dir); - run_({ root => $build->get_system_root, targetarch => $build->{settings}{arch} }, - 'urpmi', '--auto', '--no-verify-rpm', - map { $rpm_tmp_dir . '/' . basename($_) } @{$build->{system}{rpms}}) - or die "unable to install additional system rpms\n"; - rm_rf($build->get_system_root . $rpm_tmp_dir); - } + my $from = $rooted_stage2 . '/usr'; + my $to = $chroot . '/usr'; + symlinkf $from, $to or die "ERROR: symlinking $to failed\n"; - #- remove urpmi media added by drakx-in-chroot and additional media, they're unusable - run_({ root => $build->get_system_root }, 'urpmi.removemedia', '-a'); - - my $erase = join(' ', @{$build->{system}{erase_rpms} || []}); - run_({ root => $build->get_system_root, targetarch => $build->{settings}{arch} }, - 'sh', '-c', "rpm -qa $erase | xargs rpm -e ") if $erase; - - run_({ root => $build->get_system_root }, 'systemctl', if_($::verbose < 2, '-q'), 'disable', $_ . '.service') - foreach @{$build->{system}{disable_services}}; - run_({ root => $build->get_system_root }, 'systemctl', if_($::verbose < 2, '-q'), 'disable', $_ . '.timer') - foreach @{$build->{system}{disable_timers}}; - - #- make sure harddrake is run: - #- if previous HW config file is empty, we assumes DrakX has just completed the installation - #- (do it in chroot, or else Storable from the build box may write an incompatible config file) - run_({ root => $build->get_system_root }, - 'perl', '-MStorable', '-e', qq(Storable::store({ UNKNOWN => {} }, '/etc/sysconfig/harddrake2/previous_hw'))); - - #- remove some build-machine specific configuration - clean_system_conf_file($build, $_) - foreach qw(/etc/mtab /etc/iftab /etc/shorewall/interfaces /etc/mdadm.conf), - if_(!$build->{system}{skip_fstab}, '/etc/fstab'); - unlink($_) foreach map { glob($build->get_system_root . $_) } @{$build->{system}{remove_files} || []}; - - if ($build->{system}{modules_conf}) { - local $::prefix = $build->get_system_root; - local *modules::write_preload_conf = sub {}; #- FIXME, make this an option - my $modules_conf = modules::any_conf->vnew; - put_in_hash($modules_conf, $build->{system}{modules_conf}); - $modules_conf->write; + foreach my $dir ('/bin', '/sbin', '/lib', '/lib64') { + $from = 'usr' . $dir; + $to = $chroot . $dir; + symlinkf($from, $to) or die "ERROR: symlinking $to failed\n"; } +} - my $mount_options = $build->get_media_setting('mount_options') || "defaults"; - output_with_perm($build->get_system_root . '/etc/fstab', 0644, - $build->{mount}{overlay} - ? "none / $build->{mount}{overlay} $mount_options 0 0\n" - : $build->get_media_setting('source') . " / " . $build->get_media_setting('fs') . " $mount_options 1 1\n" - ) unless $build->{system}{skip_fstab}; +############################################################################### +# System Customisation +############################################################################### - #- interactive mode can lead to race in initscripts - #- (don't use addVarsInSh from MDK::Common, it breaks shell escapes) - substInFile { s/^PROMPT=.*/PROMPT=no/ } $build->get_system_root . '/etc/sysconfig/init'; +# This is the top-level function called to customise the root filesystem. It +# allows the standard Mageia installation to be fine-tuned for use as a Live +# system. The basic root filesystem must have been prepared before calling +# this function. +# +sub customise_live_system { + my ($build) = @_; - configure_draklive_resize($build); + print "Customising Live system\n" if $::verbose; - if ($build->{system}{preselect_kdm_user}) { - #- preselect specified user in kdm - my $kdm_cfg = $build->get_system_root . '/etc/kde/kdm/kdmrc'; - update_gnomekderc($kdm_cfg, 'X-:0-Greeter' => (PreselectUser => 'Default', DefaultUser => $build->{system}{preselect_kdm_user})) if -f $kdm_cfg; - } + my $arch = $build->{settings}{arch}; + my $root = $build->get_system_root; - #- apply patches and install files after the configuration is cleaned - #- to allow special configuration files (especially modprobe.preload) - foreach (@{$build->{system}{patches}}) { - my $patch = $build->{settings}{config_root} . '/' . $_; - my @args = ('-p0', '-d', $build->get_system_root, '-i', $patch); - run_program::run('patch', '>', '/dev/null', '--dry-run', '-f', '-R', @args) || run_('patch', @args) - or die "unable to apply patch " . $patch . "\n"; - } + # Workaround buggy installation of directories that are not owned by any + # packages. + my $previous_umask = umask; + umask 022; - copy_files_to($build, $build->{system}{files}, $build->get_system_root); - my @no_install_files = map { $_->[1] } grep { $_->[2] && $_->[2]{no_install} } @{$build->{system}{files}}; - output_p($build->get_system_root . '/etc/draklive-install.d/remove.d/draklive', map { "$_\n" } @no_install_files); + my $error_message; + try { + mount_system_fs($root); + + # Copy resolv.conf for name resolution to work when adding media. + copy_to_root($root, '/etc/', undef, '/etc/resolv.conf'); - eval { rm_rf($build->get_builddir('files')) }; - mkdir_p($build->get_builddir('files')); - if ($build->{media}{files}) { - copy_files_to($build, $build->{media}{files}, $build->get_builddir('files')); - } - remove_files_from($build->{media}{remove_files}, $build->get_builddir('files')); + # Remove urpmi media added by drakx-in-chroot, they're unusable. + run_in_root($root, undef, 'urpmi.removemedia', if_($::verbose < 3, '-q'), '-a'); + + print "..adding additional media\n" if $::verbose > 1; - run_({ targetarch => $build->{settings}{arch} }, - "chroot", $build->get_system_root, "bash", "-c", $build->{system}{final_fixes}) if $build->{system}{final_fixes}; + # Add additional media for installing RPMs not in the main repository. + foreach (@{$build->{system}{additional_media}}) { + run_in_root($root, undef, 'urpmi.addmedia', if_($::verbose < 2, '-q'), + if_($_->{distrib}, '--distrib'), $_->{name}, $_->{path}) + or die "ERROR: unable to add media from $_->{path}\n"; - clean_system_conf_file($build, "/etc/resolv.conf"); - write_dist_lists($build); + @{$_->{packages} || []} or next; + + run_in_root($root, $arch, 'urpmi', if_($::verbose < 3, '-q'), '--auto', '--no-verify-rpm', + if_(!$_->{distrib}, '--searchmedia', $_->{name}), @{$_->{packages}}) + or die "ERROR: unable to install packages from $_->{path}\n"; + } - umount_all_in_chroot($build); + print "..installing additional packages\n" if $::verbose > 1; + + # Additional rpms may have dependencies in additional media. + if (@{$build->{system}{rpms} || []}) { + my $rpm_tmp_dir = '/tmp/draklive_rpms/'; + mkdir_in_root($root, $rpm_tmp_dir); - umask $previous_umask; + my @rpm_files = map { $build->get_absolute_path($_) } @{$build->{system}{rpms}}; + copy_to_root($root, $rpm_tmp_dir, undef, @rpm_files); + + @rpm_files = map { $rpm_tmp_dir . basename($_) } @{$build->{system}{rpms}}; + run_in_root($root, $arch, 'urpmi', if_($::verbose < 3, '-q'), '--auto', '--no-verify-rpm', @rpm_files) + or die "ERROR: unable to install additional system rpms\n"; + + rm_in_root($root, $rpm_tmp_dir); + } + + # Remove any additional media. + if (@{$build->{system}{additional_media}}) { + run_in_root($root, undef, 'urpmi.removemedia', if_($::verbose < 3, '-q'),'-a'); + } + + print "..removing unwanted packages\n" if $::verbose > 1; + + # Remove any packages as requested by the user. + my @erase = @{$build->{system}{erase_rpms} || []}; + run_in_root($root, $arch, 'rpm -e', @erase) if @erase; + + print "..disabling unwanted services\n" if $::verbose > 1; + + # Disable services as requested by the user. + foreach (@{$build->{system}{disable_services}}) { + run_in_root($root, undef, 'systemctl', if_($::verbose < 3, '-q'), 'disable', "$_.service"); + } + foreach (@{$build->{system}{disable_timers}}) { + run_in_root($root, undef, 'systemctl', if_($::verbose < 3, '-q'), 'disable', "$_.timer"); + } + + print "..adjusting system files\n" if $::verbose > 1; + + # Make sure harddrake is run: + # if previous HW config file is empty, we assume DrakX has just completed the installation + # (do it in chroot, or else Storable from the build system may write an incompatible config file) + run_in_root($root, undef, 'perl', '-MStorable', '-e', qq(Storable::store({ UNKNOWN => {} }, '/etc/sysconfig/harddrake2/previous_hw'))); + + # Remove some build-machine specific configuration. + foreach (qw(/etc/shorewall/interfaces /etc/mdadm.conf)) { + clean_system_conf_file($root . $_); + } + + # Create fstab. + my $mount_options = $build->get_media_setting('mount_options') || 'defaults'; + my $fstab_entry; + if ($build->{mount}{overlay}) { + $fstab_entry = "none / $build->{mount}{overlay} $mount_options 0 0"; + } else { + $fstab_entry = $build->get_media_setting('source') . " / " . $build->get_media_setting('fs') . " $mount_options 1 1"; + } + output_to_root($root, '/etc/fstab', 0644, $fstab_entry); + + # Interactive mode can lead to race in initscripts. + run_as_root('sed', '-i', 's/^PROMPT=.*/PROMPT=no/', $root . '/etc/sysconfig/init'); + + configure_draklive_resize($build); + + print "..copying additional files\n" if $::verbose > 1; + + # Copy extra files as requested by the user. + foreach (@{$build->{system}{files}}) { + my ($source, $dest, $o_opts) = @$_; + mkdir_in_root($root, $dest =~ m|/$| ? $dest : dirname($dest)); + my @sources = glob__($build->get_absolute_path($source)); + my $mode = $o_opts && $o_opts->{mode}; + copy_to_root($root, $dest, $mode, @sources); + } + my @no_install_files = map { $_->[1] } grep { $_->[2] && $_->[2]{no_install} } @{$build->{system}{files}}; + my $installer_file = '/etc/draklive-install.d/remove.d/draklive'; + mkdir_in_root($root, dirname($installer_file)); + output_to_root($root, $installer_file, undef, @no_install_files); + + print "..removing unwanted files\n" if $::verbose > 1; + + # Remove any files as requested by the user. + my @remove = @{$build->{system}{remove_files} || []}; + rm_in_root($root, @remove) if @remove; + + print "..applying patches\n" if $::verbose > 1; + + # Apply patches as requested by the user. + foreach (@{$build->{system}{patches}}) { + my $patch_file = $build->get_absolute_path($_); + my @patch_cmd = ( 'patch', '-p0', '-d', $root, '-i', $patch_file, if_($::verbose < 3, '-s') ); + run_as_root(join(' ', @patch_cmd, '--dry-run -f -R > /dev/null')) || run_as_root(@patch_cmd) + or die "ERROR: unable to apply patch $patch_file\n"; + } + + print "..performing final fixes\n" if $::verbose > 1; + + # Perform any final fixes as requested by the user. + if ($build->{system}{final_fixes}) { + run_in_root($root, $arch, 'bash', '-c', $build->{system}{final_fixes}); + } + + # Final cleanup. + clean_system_conf_file($root . '/etc/resolv.conf'); + + write_dist_lists($build); + } catch { + $error_message = $_; + } finally { + umount_all_in_root($root); + umask $previous_umask; + }; + defined $error_message && die $error_message; } sub configure_draklive_resize { @@ -202,46 +521,23 @@ sub configure_draklive_resize { my $resizable_loopback = find { $_->{min_size} } @{$build->{mount}{dirs} || []}; if ($resizable_loopback) { my $ext = $loop_types{$resizable_loopback->{type}}{extension}; - output($build->get_system_root . '/etc/sysconfig/draklive-resize', <<EOF); -DRAKLIVE_RESIZE=yes -LOOPBACK=/live/media/loopbacks$resizable_loopback->{path}$ext -TYPE=$resizable_loopback->{fs} -MIN_SIZE=$resizable_loopback->{min_size} -MOUNT=/live$resizable_loopback->{mountpoint}_resized -OLD_MOUNT=/live$resizable_loopback->{mountpoint} -UNION=/ -EOF + my @text = ( + "DRAKLIVE_RESIZE=yes", + "LOOPBACK=/live/media/loopbacks$resizable_loopback->{path}$ext", + "TYPE=$resizable_loopback->{fs}", + "MIN_SIZE=$resizable_loopback->{min_size}", + "MOUNT=/live$resizable_loopback->{mountpoint}_resized", + "OLD_MOUNT=/live$resizable_loopback->{mountpoint}", + "UNION=/", + ); + output_to_root($build->get_system_root, '/etc/sysconfig/draklive-resize', undef, @text); } } -sub copy_files_to { - my ($build, $files, $root) = @_; - foreach (@$files) { - my ($source, $dest, $o_opts) = @$_; - $dest = $root . '/' . $dest; - mkdir_p($dest =~ m|/$| ? $dest : dirname($dest)); - my @sources = MGA::DrakISO::Utils::glob__($build->{settings}{config_root} . '/' . $source); - print "copying @sources to $dest\n" if $::verbose > 1; - cp_af(@sources, $dest); - my $o_perm = $o_opts && $o_opts->{mode}; - chmod $o_perm, $dest if $o_perm; - } -} - -sub remove_files_from { - my ($files, $root) = @_; - run_('find', $root, '(', join_lists('-o', map { [ '-name', $_ ] } @$files), ')', '-exec', 'rm', '-r', '{}', ';') - if $files && @$files; -} - -sub join_lists { - my ($separator, $head, @lists) = @_; - @{$head || []}, map { $separator, @$_ } @lists; -} - sub clean_system_conf_file { - my ($build, $file) = @_; - substInFile { undef $_ if /^[^#]/ } $build->get_system_root . $file; + my ($file) = @_; + + run_as_root('sed', '-i', '/^[^#]/d', $file) if -f $file; } sub write_dist_lists { @@ -250,19 +546,19 @@ sub write_dist_lists { my $lists_dir = $build->get_builddir('dist'); mkdir_p($lists_dir); - run_("chroot " . $build->get_system_root . " rpm -qa | sort > " . - $lists_dir . '/' . $build->get_name . '.lst'); + my $root = $build->get_system_root; - run_("chroot " . $build->get_system_root . " rpm -qa --qf '%{name}\n' | sort > " . - $lists_dir . '/' . $build->get_name . '.lst.names'); + run_in_root($root, undef, "rpm -qa | sort > " . + $lists_dir . '/' . $build->get_name . '.lst'); - run_("chroot " . $build->get_system_root . - qq( sh -c "rpm -qa --qf '[%{NAME} %{FILESIZES} %{FILESTATES}\n]' | awk '{if(\\\$3==0) {s[\\\$1]+=\\\$2}} END{for (p in s){print s[p],p}}' | sort -n" > ) . - $lists_dir . '/' . $build->get_name . '.lst.full'); + run_in_root($root, undef, "rpm -qa --qf '%{name}\n' | sort > " . + $lists_dir . '/' . $build->get_name . '.lst.names'); - run_("chroot " . $build->get_system_root . - qq( sh -c "urpmi_rpm-find-leaves | xargs rpm -q --qf '[%{NAME} %{FILESIZES} %{FILESTATES}\n]' | awk '{if(\\\$3==0) {s[\\\$1]+=\\\$2}} END{for (p in s){print s[p],p}}' | sort -n" > ) . - $lists_dir . '/' . $build->get_name . '.lst.leaves'); + run_in_root($root, undef, qq( sh -c "rpm -qa --qf '[%{NAME} %{FILESIZES} %{FILESTATES}\n]' | awk '{if(\\\$3==0) {s[\\\$1]+=\\\$2}} END{for (p in s){print s[p],p}}' | sort -n" > ) . + $lists_dir . '/' . $build->get_name . '.lst.full'); + + run_in_root($root, undef, qq( sh -c "urpmi_rpm-find-leaves | xargs rpm -q --qf '[%{NAME} %{FILESIZES} %{FILESTATES}\n]' | awk '{if(\\\$3==0) {s[\\\$1]+=\\\$2}} END{for (p in s){print s[p],p}}' | sort -n" > ) . + $lists_dir . '/' . $build->get_name . '.lst.leaves'); require lang; my @live_langs = $build->get_langs; @@ -271,4 +567,45 @@ sub write_dist_lists { output_p($langs_file, map { lang::l2name($_) . " (" . $_ . ")\n" } sort(@langs)); } +############################################################################### +# Helper Functions +############################################################################### + +sub mkdir_in_root { + my ($root, $dir) = @_; + + run_as_root('mkdir', '-p', $root . $dir) + or die "ERROR: failed to make directory $dir in Live system root\n"; +} + +sub copy_to_root { + my ($root, $dest, $mode, @files) = @_; + + run_as_root('cp', '-af', @files, $root . $dest) + or die "ERROR: failed to copy file to $dest in Live system root\n"; + + return if !defined $mode; + + run_as_root('chmod', sprintf("%o", $mode), $root . $dest) + or die "ERROR: failed to change mode of $dest in Live system root\n"; +} + +sub output_to_root { + my ($root, $file, $mode, @text) = @_; + + my $temp_file = tmpnam(); + output($temp_file, map { "$_\n" } @text); + chmod($mode, $temp_file) if $mode; + + run_as_root('mv', $temp_file, $root . $file) + or die "ERROR: failed to write $file in Live system root\n"; +} + +sub rm_in_root { + my ($root, @targets) = @_; + + run_as_root('rm', '-rf', map { $root . $_ } @targets) + or die "ERROR: failed to remove files in Live system root\n"; +} + 1; |