From 7507023403933bbd0d851a250a474f85ba6a89d2 Mon Sep 17 00:00:00 2001
From: Mystery Man <unknown@mandriva.org>
Date: Mon, 11 Jun 2001 11:44:34 +0000
Subject: This commit was manufactured by cvs2svn to create branch 'ppp'.

---
 perl-install/raid.pm | 160 ---------------------------------------------------
 1 file changed, 160 deletions(-)
 delete mode 100644 perl-install/raid.pm

(limited to 'perl-install/raid.pm')

diff --git a/perl-install/raid.pm b/perl-install/raid.pm
deleted file mode 100644
index 1f2275706..000000000
--- a/perl-install/raid.pm
+++ /dev/null
@@ -1,160 +0,0 @@
-package raid; # $Id$
-
-use diagnostics;
-use strict;
-
-#-######################################################################################
-#- misc imports
-#-######################################################################################
-use common qw(:common :functional);
-use partition_table qw(:types);
-use run_program;
-use devices;
-use commands;
-use modules;
-use fs;
-
-sub nb($) { 
-    my ($nb) = @_;
-    first((ref $nb ? $nb->{device} : $nb) =~ /(\d+)/);
-}
-
-sub new($$) {
-    my ($raid, $part) = @_;
-    my $nb = @$raid; 
-    $raid->[$nb] = { 'chunk-size' => "64k", type => 0x83, disks => [ $part ], device => "md$nb", notFormatted => 1 };
-    $part->{raid} = $nb;
-    delete $part->{mntpoint};
-    $nb;
-}
-
-sub add($$$) {
-    my ($raid, $part, $nb) = @_; $nb = nb($nb);
-    $raid->[$nb]{isMounted} and die _("Can't add a partition to _formatted_ RAID md%d", $nb);
-    $part->{raid} = $nb;
-    delete $part->{mntpoint};
-    push @{$raid->[$nb]{disks}}, $part;
-}
-
-sub delete($$) {
-    my ($raid, $nb) = @_;
-    $nb = nb($nb);
-
-    delete $_->{raid} foreach @{$raid->[$nb]{disks}};
-    undef $raid->[$nb];
-}
-
-sub changeNb($$$) {
-    my ($raid, $oldnb, $newnb) = @_;
-    if ($oldnb != $newnb) {
-	($raid->[$newnb], $raid->[$oldnb]) = ($raid->[$oldnb], undef);
-	$raid->[$newnb]{device} = "md$newnb";
-	$_->{raid} = $newnb foreach @{$raid->[$newnb]{disks}};
-    }
-    $newnb;
-}
-
-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]);
-}
-
-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 updateIsFormatted($) {
-    my ($part) = @_;
-    $part->{isFormatted}  = and_ map { $_->{isFormatted}  } @{$part->{disks}};
-    $part->{notFormatted} = and_ map { $_->{notFormatted} } @{$part->{disks}};
-}
-sub update {
-    foreach (@_) {
-	updateSize($_);
-	updateIsFormatted($_);
-    }
-}
-
-sub write($) {
-    my ($raid, $file) = @_;
-    local *F;
-    local $\ = "\n";
-    open F, ">$file" or die _("Can't write file $file");
-
-    foreach (grep {$_} @$raid) {
-	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 ($raid, $part) = @_;
-    isMDRAID($_) and make($raid, $_) foreach @{$part->{disks}};
-    my $dev = devices::make($part->{device});
-    eval { modules::load(module($part)) };
-    run_program::run("raidstop", $dev);
-    &write($raid, "/etc/raidtab");
-    run_program::run("mkraid", "--really-force", $dev) or die
-	$::isStandalone ? _("mkraid failed (maybe raidtools are missing?)") : _("mkraid failed");
-}
-
-sub format_part($$) {
-    my ($raid, $part) = @_;
-    $part->{isFormatted} and return;
-
-    make($raid->{raid}, $part);
-    fs::real_format_part($part);
-    $_->{isFormatted} = 1 foreach @{$part->{disks}};
-}
-
-sub verify($) {
-    my ($raid) = @_;
-    $raid && $raid->{raid} or return;
-    foreach (grep {$_} @{$raid->{raid}}) {
-	@{$_->{disks}} >= ($_->{level} =~ /4|5/ ? 3 : 2) or die _("Not enough partitions for RAID level %d\n", $_->{level});
-    }
-}
-
-sub prepare_prefixed($$) {
-    my ($raid, $prefix) = @_;
-    $raid && $raid->{raid} or return;
-
-    eval { commands::cp("-f", "/etc/raidtab", "$prefix/etc/raidtab") };
-    foreach (@{$raid->{raid}}) {
-	devices::make("$prefix/dev/$_->{device}") foreach @{$_->{disks}};
-    }
-}
-
-sub stopAll() { run_program::run("raidstop", devices::make("md$_")) foreach 0..7 }
-
-1;
-- 
cgit v1.2.1