summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-08-02 08:01:14 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-08-02 08:01:14 +0000
commit137cba98aa58448cc48aac6ab5d7179d048cbcf0 (patch)
tree8d6bf773742bad9c63d5d7790077f56e2b92e2b2 /perl-install
parentaeb208e3f9deeb5f8cb8c5a112510dcdf05900fc (diff)
downloaddrakx-backup-do-not-use-137cba98aa58448cc48aac6ab5d7179d048cbcf0.tar
drakx-backup-do-not-use-137cba98aa58448cc48aac6ab5d7179d048cbcf0.tar.gz
drakx-backup-do-not-use-137cba98aa58448cc48aac6ab5d7179d048cbcf0.tar.bz2
drakx-backup-do-not-use-137cba98aa58448cc48aac6ab5d7179d048cbcf0.tar.xz
drakx-backup-do-not-use-137cba98aa58448cc48aac6ab5d7179d048cbcf0.zip
- move package_needed_for_partition_type() from fsedit to fs::format
- create check_package_is_installed() in fs::format and use it
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/diskdrake/interactive.pm8
-rw-r--r--perl-install/fs/format.pm35
-rw-r--r--perl-install/fsedit.pm10
-rw-r--r--perl-install/install_any.pm2
4 files changed, 26 insertions, 29 deletions
diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index def668bb7..97c3d8a11 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -1027,13 +1027,7 @@ sub check_type {
return;
}
if ($::isStandalone) {
- if (my $pkg = fsedit::package_needed_for_partition_type($type)) {
- if (!-x "/sbin/mkfs.$type->{fs_type}") {
- $in->ask_yesorno('', N("The package %s is needed. Install it?", $pkg), 1) or return;
- $in->do_pkgs->install($pkg);
- }
- -x "/sbin/mkfs.$type->{fs_type}" or $in->ask_warn('', "Mandatory package $pkg is missing"), return;
- }
+ fs::format::check_package_is_installed($in->do_pkgs, $type->{fs_type}) or return;
}
1;
}
diff --git a/perl-install/fs/format.pm b/perl-install/fs/format.pm
index d41a98ccc..fb948b6b5 100644
--- a/perl-install/fs/format.pm
+++ b/perl-install/fs/format.pm
@@ -9,17 +9,30 @@ use fs::type;
use log;
my %cmds = (
- ext2 => 'mke2fs -F',
- ext3 => 'mke2fs -F -j',
- reiserfs => 'mkreiserfs -ff',
- xfs => 'mkfs.xfs -f -q',
- jfs => 'mkfs.jfs -f',
- hfs => 'hformat',
- dos => 'mkdosfs',
- vfat => 'mkdosfs -F 32',
- swap => 'mkswap',
+ ext2 => [ 'e2fsprogs', 'mke2fs', '-F' ],
+ ext3 => [ 'e2fsprogs', 'mke2fs', '-F', '-j' ],
+ reiserfs => [ 'reiserfsprogs', 'mkreiserfs', '-ff' ],
+ xfs => [ 'xfsprogs', 'mkfs.xfs', '-f', '-q' ],
+ jfs => [ 'jfsprogs', 'mkfs.jfs', '-f' ],
+ hfs => [ 'hfsutils', 'hformat' ],
+ dos => [ 'dosfstools', 'mkdosfs' ],
+ vfat => [ 'dosfstools', 'mkdosfs', '-F', '32' ],
+ swap => [ 'util-linux', 'mkswap' ],
);
+sub package_needed_for_partition_type {
+ my ($part) = @_;
+ my $l = $cmds{$part->{fs_type}} or return;
+ $l->[0];
+}
+
+sub check_package_is_installed {
+ my ($do_pkgs, $fs_type) = @_;
+
+ my ($pkg, $binary) = @{$cmds{$fs_type} || return};
+ $do_pkgs->ensure_binary_is_installed($pkg, $binary);
+}
+
sub part {
my ($raids, $part, $prefix, $wait_message) = @_;
if (isRAID($part)) {
@@ -61,9 +74,9 @@ sub part_raw {
push @options, '-l', 'bootstrap';
}
- my $cmd = $cmds{$fs_type} or die N("I don't know how to format %s in type %s", $part->{device}, $part->{fs_type});
+ my ($pkg, $cmd, @first_options) = @{$cmds{$fs_type} || die N("I don't know how to format %s in type %s", $part->{device}, $part->{fs_type})};
- run_program::raw({ timeout => 60 * 60 }, split(' ', $cmd), @options, devices::make($dev)) or die N("%s formatting of %s failed", $fs_type, $dev);
+ run_program::raw({ timeout => 60 * 60 }, $cmd, @first_options, @options, devices::make($dev)) or die N("%s formatting of %s failed", $fs_type, $dev);
if ($fs_type eq 'ext3') {
disable_forced_fsck($dev);
diff --git a/perl-install/fsedit.pm b/perl-install/fsedit.pm
index b4eeda85e..39797a773 100644
--- a/perl-install/fsedit.pm
+++ b/perl-install/fsedit.pm
@@ -523,16 +523,6 @@ sub check_fs_type {
$fs_type eq "reiserfs" && $part->{size} < 32 << 11 and die N("You can't use ReiserFS for partitions smaller than 32MB");
}
-sub package_needed_for_partition_type {
- my ($part) = @_;
- my %l = (
- reiserfs => 'reiserfsprogs',
- xfs => 'xfsprogs',
- jfs => 'jfsprogs',
- );
- $l{$part->{fs_type}};
-}
-
#- you can do this before modifying $part->{mntpoint}
#- so $part->{mntpoint} should not be used here, use $mntpoint instead
sub check_mntpoint {
diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index 49dd76a57..5c30dcf40 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -477,7 +477,7 @@ sub setDefaultPackages {
push @{$o->{default_packages}}, "lvm2" if !is_empty_array_ref($o->{all_hds}{lvms});
push @{$o->{default_packages}}, "alsa", "alsa-utils" if any { $o->{modules_conf}->get_alias("sound-slot-$_") =~ /^snd-/ } 0 .. 4;
push @{$o->{default_packages}}, "grub" if isLoopback(fsedit::get_root($o->{fstab}));
- push @{$o->{default_packages}}, uniq(grep { $_ } map { fsedit::package_needed_for_partition_type($_) } @{$o->{fstab}});
+ push @{$o->{default_packages}}, uniq(grep { $_ } map { fs::format::package_needed_for_partition_type($_) } @{$o->{fstab}});
#- if no cleaning needed, populate by default, clean is used for second or more call to this function.
unless ($b_clean) {