summaryrefslogtreecommitdiffstats
path: root/perl-install/raid.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-10 02:20:32 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-10 02:20:32 +0000
commitbff2e783f7d82e9450d38f931820f95f98012e58 (patch)
tree165e01d00ab7fb7c930c844e54fa15f805938ebf /perl-install/raid.pm
parentbc05f062a49c21078346c2223d0807afc9ce20bd (diff)
downloaddrakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar
drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar.gz
drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar.bz2
drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.tar.xz
drakx-backup-do-not-use-bff2e783f7d82e9450d38f931820f95f98012e58.zip
no_comment
Diffstat (limited to 'perl-install/raid.pm')
-rw-r--r--perl-install/raid.pm5
1 files changed, 3 insertions, 2 deletions
diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index 5ee6f9c9d..a9a493f7a 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -43,7 +43,6 @@ sub delete($$) {
my ($raid, $nb) = @_;
$nb = nb($nb);
- run_program::run("raidstop", devices::make($raid->[$nb]{device}));
delete $_->{raid} foreach @{$raid->[$nb]{disks}};
$raid->[$nb] = undef;
}
@@ -61,6 +60,7 @@ sub changeNb($$$) {
sub removeDisk($$) {
my ($raid, $part) = @_;
my $nb = nb($part->{raid});
+ run_program::run("raidstop", devices::make($part->{device}));
delete $part->{raid};
@{$raid->[$nb]{disks}} = grep { $_ != $part } @{$raid->[$nb]{disks}};
update($raid->[$nb]);
@@ -127,7 +127,6 @@ sub make($$) {
run_program::run("raidstop", $dev);
&write($raid, "/etc/raidtab");
run_program::run("mkraid", "--really-force", $dev);
- run_program::run("raidstart", $dev);
}
sub format_part($$) {
@@ -157,4 +156,6 @@ sub prepare_prefixed($$) {
}
}
+sub stopAll() { run_program::run("raidstop", devices::make("md$_")) foreach 0..7 }
+
1;