diff options
author | Mystery Man <unknown@mandriva.org> | 2002-07-08 07:45:08 +0000 |
---|---|---|
committer | Mystery Man <unknown@mandriva.org> | 2002-07-08 07:45:08 +0000 |
commit | be128d0615965c467107adeb2c8cecd1125318a1 (patch) | |
tree | 998f5b6803ad85a1411491ef4c499fa8b9760bb2 /perl-install/raid.pm | |
parent | 9555bb791920e8feace953f90cf908e864451b59 (diff) | |
download | drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar.gz drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar.bz2 drakx-be128d0615965c467107adeb2c8cecd1125318a1.tar.xz drakx-be128d0615965c467107adeb2c8cecd1125318a1.zip |
This commit was manufactured by cvs2svn to create tag 'V1_1_8_2mdk'.V1_1_8_2mdk
Diffstat (limited to 'perl-install/raid.pm')
-rw-r--r-- | perl-install/raid.pm | 180 |
1 files changed, 0 insertions, 180 deletions
diff --git a/perl-install/raid.pm b/perl-install/raid.pm deleted file mode 100644 index 86a27d866..000000000 --- a/perl-install/raid.pm +++ /dev/null @@ -1,180 +0,0 @@ -package raid; # $Id$ - -use diagnostics; -use strict; - -#-###################################################################################### -#- misc imports -#-###################################################################################### -use common; -use partition_table qw(:types); -use run_program; -use devices; -use modules; -use fs; - -sub nb { - my ($nb) = @_; - first((ref $nb ? $nb->{device} : $nb) =~ /(\d+)/); -} - -sub new { - my ($raids, @parts) = @_; - my $nb = @$raids; - $raids->[$nb] = { 'chunk-size' => "64k", type => 0x483, disks => [ @parts ], device => "md$nb", notFormatted => 1, level => 1 }; - foreach my $part (@parts) { - $part->{raid} = $nb; - delete $part->{mntpoint}; - } - update($raids->[$nb]); - $nb; -} - -sub add { - my ($raids, $part, $nb) = @_; $nb = nb($nb); - $raids->[$nb]{isMounted} and die _("Can't add a partition to _formatted_ RAID md%d", $nb); - inactivate_and_dirty($raids->[$nb]); - $part->{notFormatted} = 1; $part->{isFormatted} = 0; - $part->{raid} = $nb; - delete $part->{mntpoint}; - push @{$raids->[$nb]{disks}}, $part; - update($raids->[$nb]); -} - -sub delete { - my ($raids, $nb) = @_; - $nb = nb($nb); - inactivate_and_dirty($raids->[$nb]); - delete $_->{raid} foreach @{$raids->[$nb]{disks}}; - undef $raids->[$nb]; -} - -sub changeNb { - my ($raids, $oldnb, $newnb) = @_; - if ($oldnb != $newnb) { - inactivate_and_dirty($raids->[$_]) foreach $oldnb, $newnb; - - ($raids->[$newnb], $raids->[$oldnb]) = ($raids->[$oldnb], undef); - $raids->[$newnb]{device} = "md$newnb"; - $_->{raid} = $newnb foreach @{$raids->[$newnb]{disks}}; - } - $newnb; -} - -sub removeDisk { - my ($raids, $part) = @_; - my $nb = nb($part->{raid}); - inactivate_and_dirty($raids->[$nb]); - delete $part->{raid}; - my $disks = $raids->[$nb]{disks}; - @$disks = grep { $_ != $part } @$disks; - if (@$disks) { - update($raids->[$nb]); - } else { - undef $raids->[$nb]; - } -} - -sub updateSize { - my ($part) = @_; - local $_ = $part->{level}; - my @l = map { $_->{size} } @{$part->{disks}}; - - $part->{size} = do { - if (/0|linear/) { sum @l } - elsif (/1/ ) { min @l } - elsif (/4|5/) { min(@l) * $#l } - }; -} - -sub module { - my ($part) = @_; - my $mod = $part->{level}; - - $mod = 5 if $mod eq "4"; - $mod = "raid$mod" if $mod =~ /^\d+$/; - $mod; -} - - -sub update { - updateSize($_) foreach @_; -} - -sub write { - my ($raids, $file) = @_; - local *F; - local $\ = "\n"; - open F, ">$file" or die _("Can't write file %s", $file); - - foreach (grep {$_} @$raids) { - print F <<"EOF"; -raiddev /dev/$_->{device} -raid-level $_->{level} -chunk-size $_->{'chunk-size'} -persistent-superblock 1 -EOF - print F "nr-raid-disks ", int @{$_->{disks}}; - map_index { - print F " device ", devices::make($_->{device}); - print F " raid-disk $::i"; - } @{$_->{disks}}; - } -} - -sub make { - my ($raids, $part) = @_; - - return if is_active($part->{device}); - - inactivate_and_dirty($part); - - isRAID($_) and make($raids, $_) foreach @{$part->{disks}}; - my $dev = devices::make($part->{device}); - eval { modules::load(module($part)) }; - &write($raids, "/etc/raidtab"); - run_program::run("mkraid", "--really-force", $dev) or die - $::isStandalone ? _("mkraid failed (maybe raidtools are missing?)") : _("mkraid failed"); -} - -sub format_part { - my ($raids, $part) = @_; - $part->{isFormatted} and return; - - make($raids, $part); - fs::real_format_part($part); - $_->{isFormatted} = 1 foreach @{$part->{disks}}; -} - -sub verify { - my ($raids) = @_; - $raids or return; - foreach (grep {$_} @$raids) { - @{$_->{disks}} >= ($_->{level} =~ /4|5/ ? 3 : 2) or die _("Not enough partitions for RAID level %d\n", $_->{level}); - } -} - -sub prepare_prefixed { - my ($raids, $prefix) = @_; - $raids or return; - - eval { cp_af("/etc/raidtab", "$prefix/etc/raidtab") }; - foreach (grep {$_} @$raids) { - devices::make("$prefix/dev/$_->{device}") foreach @{$_->{disks}}; - } -} - -sub inactivate_and_dirty { - my ($part) = @_; - run_program::run("raidstop", devices::make($part->{device})); - $part->{notFormatted} = 1; $part->{isFormatted} = 0; -} - -sub is_active { - my ($dev) = @_; - grep { /^$dev / } cat_("/proc/mdstat"); -} - -sub inactivate_all() { run_program::run("raidstop", devices::make("md$_")) foreach 0..7 } - -1; |