From 0bd95c3ad96f0f711cb9b03c94ce139a3fe477f7 Mon Sep 17 00:00:00 2001 From: Rafael Garcia-Suarez Date: Tue, 28 Jun 2005 04:56:47 +0000 Subject: Add NFS supplementary media in fstab --- perl-install/install_any.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install') diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm index 3fa2596d8..eccca9a18 100644 --- a/perl-install/install_any.pm +++ b/perl-install/install_any.pm @@ -525,9 +525,11 @@ sub selectSupplMedia { my $mediadir = '/mnt/nfsmedia' . $medium_name; $url = "$::prefix$mediadir"; -d $url or mkdir_p($url); - eval { fs::mount("$host:$dir", "$::prefix$mediadir", 'nfs'); 1 } + my $dev = "$host:$dir"; + eval { fs::mount($dev, $url, 'nfs'); 1 } or do { log::l("Mount failed: $@"); return 'error' }; - #- TODO add $mediadir in fstab for post-installation + #- add $mediadir in fstab for post-installation + push @{$o->{all_hds}{nfss}}, { fs_type => 'nfs', mntpoint => $mediadir, device => $dev, options => "noauto,ro,nosuid,soft,rsize=8192,wsize=8192" }; } else { $url = $o->ask_from_entry('', N("URL of the mirror?")) or return 'error'; $url =~ s!/+\z!!; -- cgit v1.2.1