summaryrefslogtreecommitdiffstats
path: root/perl-install/fs.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-08-19 15:58:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-08-19 15:58:20 +0000
commit4d37b8692e0c742479a518562f426616bf4929ef (patch)
tree3a5fe95f5f65b6459275d84b4480f742bb191b55 /perl-install/fs.pm
parent1e75d751473c604972637807ed1bb75d7d8b4b5f (diff)
downloaddrakx-4d37b8692e0c742479a518562f426616bf4929ef.tar
drakx-4d37b8692e0c742479a518562f426616bf4929ef.tar.gz
drakx-4d37b8692e0c742479a518562f426616bf4929ef.tar.bz2
drakx-4d37b8692e0c742479a518562f426616bf4929ef.tar.xz
drakx-4d37b8692e0c742479a518562f426616bf4929ef.zip
cleanup
Diffstat (limited to 'perl-install/fs.pm')
-rw-r--r--perl-install/fs.pm41
1 files changed, 5 insertions, 36 deletions
diff --git a/perl-install/fs.pm b/perl-install/fs.pm
index fddeb59c4..0c6e21a6f 100644
--- a/perl-install/fs.pm
+++ b/perl-install/fs.pm
@@ -223,49 +223,35 @@ sub get_all_mntpoints_from_fstab {
#- tune2fs
sub format_ext2($@) {
my ($dev, @options) = @_;
-
$dev =~ m,(rd|ida|cciss)/, and push @options, qw(-b 4096 -R stride=16); #- For RAID only.
push @options, qw(-b 1024 -O none) if arch() =~ /alpha/;
-
run_program::run("mke2fs", @options, devices::make($dev)) or die _("%s formatting of %s failed", "ext2", $dev);
}
-
sub format_ext3 {
my ($dev, @options) = @_;
format_ext2($dev, "-j", @options);
}
-
-sub format_reiserfs($@) {
+sub format_reiserfs {
my ($dev, @options) = @_;
-
#TODO add -h tea
run_program::run("mkreiserfs", "-f", "-q", @options, devices::make($dev)) or die _("%s formatting of %s failed", "reiserfs", $dev);
}
-
-sub format_xfs($@) {
+sub format_xfs {
my ($dev, @options) = @_;
-
run_program::run("mkfs.xfs", "-f", "-q", @options, devices::make($dev)) or die _("%s formatting of %s failed", "xfs", $dev);
}
-
-sub format_jfs($@) {
+sub format_jfs {
my ($dev, @options) = @_;
-
run_program::run("mkfs.jfs", "-f", @options, devices::make($dev)) or die _("%s formatting of %s failed", "jfs", $dev);
}
-
-sub format_dos($@) {
+sub format_dos {
my ($dev, @options) = @_;
-
run_program::run("mkdosfs", @options, devices::make($dev)) or die _("%s formatting of %s failed", "dos", $dev);
}
-
-sub format_hfs($@) {
+sub format_hfs {
my ($dev, @options) = @_;
-
run_program::run("hformat", @options, devices::make($dev)) or die _("%s formatting of %s failed", "HFS", $dev);
}
-
sub real_format_part {
my ($part) = @_;
@@ -601,20 +587,3 @@ sub merge_fstabs {
my %l; $l{$_->{device}} = $_ foreach @$manualFstab;
put_in_hash($_, $l{$_->{device}}) foreach @$fstab;
}
-
-#sub check_mount_all_fstab($;$) {
-# my ($fstab, $prefix) = @_;
-# $prefix ||= '';
-#
-# foreach (sort { ($a->{mntpoint} || '') cmp ($b->{mntpoint} || '') } @$fstab) {
-# #- avoid unwanted mount in fstab.
-# next if ($_->{device} =~ /none/ || $_->{type} =~ /nfs|smbfs|ncpfs|proc/ || $_->{options} =~ /noauto|ro/);
-#
-# #- TODO fsck
-#
-# eval { mount(devices::make($_->{device}), $prefix . $_->{mntpoint}, $_->{type}, 0); };
-# if ($@) {
-# log::l("unable to mount partition $_->{device} on $prefix/$_->{mntpoint}");
-# }
-# }
-#}