239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
package raid; # $Id$
use diagnostics;
use strict;
#-######################################################################################
#- misc imports
#-######################################################################################
use common;
use fs::type;
use fs::get;
use run_program;
use devices;
use modules;
sub max_nb() { 31 }
sub check_prog {
my ($in) = @_;
$::isInstall || $in->do_pkgs->ensure_binary_is_installed('mdadm', 'mdadm');
}
sub new {
my ($raids, %opts) = @_;
my $md_part = { %opts };
add2hash_($md_part, { 'chunk-size' => '64', disks => [],
fs_type => 'ext3',
device => first(free_mds($raids)),
notFormatted => 1, level => 1 });
push @$raids, $md_part;
foreach (@{$md_part->{disks}}) {
$_->{raid} = $md_part->{device};
fs::type::set_pt_type($_, 0xfd);
delete $_->{mntpoint};
}
update($md_part);
$md_part;
}
sub add {
my ($md_part, $part) = @_;
$md_part->{isMounted} and die N("Can not add a partition to _formatted_ RAID %s", $md_part->{device});
inactivate_and_dirty($md_part);
set_isFormatted($part, 0);
$part->{raid} = $md_part->{device};
delete $part->{mntpoint};
push @{$md_part->{disks}}, $part;
update($md_part);
}
sub delete {
my ($raids, $md_part) = @_;
inactivate_and_dirty($md_part);
delete $_->{raid} foreach @{$md_part->{disks}};
@$raids = grep { $_ != $md_part } @$raids;
}
sub change_device {
my ($md_part, $new_device) = @_;
if ($new_device ne $md_part->{device}) {
inactivate_and_dirty($md_part);
$md_part->{device} = $new_device;
$_->{raid} = $new_device foreach @{$md_part->{disks}};
}
}
sub removeDisk {
my ($raids, $part) = @_;
my $md_part = fs::get::device2part($part->{raid}, $raids);
inactivate_and_dirty($md_part);