From 273bd2d7195614a8896d882dfa1784c3c4e9def9 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 9 Mar 2009 11:24:46 +0000 Subject: (_adjust_paths_in_urpmi_cfg) introduce it in order to fix media for post-installation usage (especially fix CD-ROM based media path) --- perl-install/install/media.pm | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'perl-install/install/media.pm') diff --git a/perl-install/install/media.pm b/perl-install/install/media.pm index fe43c049a..21a85cfdb 100644 --- a/perl-install/install/media.pm +++ b/perl-install/install/media.pm @@ -532,6 +532,8 @@ sub get_media { urpm::media::update_media($packages, distrib => 1, callback => \&urpm::download::sync_logger) or log::l('updating media failed'); + _adjust_paths_in_urpmi_cfg($o, $phys_m); + urpm::media::configure($packages); log::l('urpmi completely set up'); @@ -539,6 +541,20 @@ sub get_media { $suppl_CDs, $copy_rpms_on_disk; } +sub _adjust_paths_in_urpmi_cfg { + my ($o, $phys_m) = @_; + if ($o->{stage2_phys_medium}{method} eq 'cdrom') { + my $urpm = install::pkgs::empty_packages(); + # force rereading media: + undef $urpm->{media}; + urpm::media::read_config($urpm); + foreach my $medium (@{$urpm->{media}}) { + $medium->{url} =~ s!^$phys_m->{real_mntpoint}/!cdrom://!; + } + urpm::media::write_config($urpm); + } +} + sub remove_from_fstab { my ($all_hds, $phys_m) = @_; -- cgit v1.2.1