From 8d33aca0fc77ebd7b6424231c705ecae269df828 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 14 Oct 2004 03:53:33 +0000
Subject: put UUID instead of devices in mdadm.conf to be more device naming
 independant (as requested by Luca Berra on cooker)

---
 perl-install/raid.pm | 35 ++++++++++++++++++++++-------------
 1 file changed, 22 insertions(+), 13 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/raid.pm b/perl-install/raid.pm
index d618a2275..22c60e787 100644
--- a/perl-install/raid.pm
+++ b/perl-install/raid.pm
@@ -110,11 +110,17 @@ sub make {
 
     whereis_binary('mdadm') or die 'mdadm not installed';
 
-    run_program::run_or_die('mdadm', '--create', '--run', devices::make($part->{device}), 
+    my $dev = devices::make($part->{device});
+
+    run_program::run_or_die('mdadm', '--create', '--run', $dev, 
 			    '--chunk=' . $part->{'chunk-size'}, 
 			    "--level=$part->{level}", 
 			    '--raid-devices=' . int(@{$part->{disks}}),
 			    map { devices::make($_->{device}) } @{$part->{disks}});
+
+    if (my $raw_part = get_md_info($dev)) {
+	$part->{UUID} = $raw_part->{UUID};
+    }
 }
 
 sub format_part {
@@ -167,11 +173,7 @@ sub get_existing {
     my @parts = @_;
     my $raids = [];
     foreach my $md (active_mds()) {
-	my $conf = parse_mdadm_conf(scalar run_program::get_stdout('mdadm', '--detail', '--brief', devices::make($md)));
-
-	@{$conf->{ARRAY}} or next;
-	@{$conf->{ARRAY}} == 1 or internal_error("too many answers");
-	my $raw_part = $conf->{ARRAY}[0];
+	my $raw_part = get_md_info(devices::make($md)) or next;
 
 	$raw_part->{level} =~ s/raid//; #- { linear | raid0 | raid1 | raid5 } -> { linear | 0 | 1 | 5 }
 
@@ -185,7 +187,7 @@ sub get_existing {
 	      }
 	  } split(',', $raw_part->{devices});
 
-	my $md_part = new($raids, device => $md, level => $raw_part->{level}, disks => \@mdparts);
+	my $md_part = new($raids, device => $md, UUID => $raw_part->{UUID}, level => $raw_part->{level}, disks => \@mdparts);
 
 	my $type = fs::type::type_subpart_from_magic($md_part);
 	if ($type) {
@@ -212,14 +214,21 @@ sub inactivate_all() {
 
 sub prepare_prefixed {
     my ($raids) = @_;
-    my %raids = map {
-	devices::make($_->{device}) =>
-	    [ map { devices::make($_->{device}) } @{$_->{disks}} ]
-    } @$raids;
+
+    my @devices = uniq(map { devices::make($_->{device}) } map { @{$_->{disks}} } @$raids);
 
     output("$::prefix/etc/mdadm.conf",
-	   join(' ', 'DEVICE', uniq(map { @$_ } values %raids)) . "\n",
-	   map_each { "ARRAY $::a devices=" . join(',', @$::b) . "\n" } %raids);
+	   join(' ', 'DEVICE', @devices) . "\n",
+	   map { "ARRAY " . devices::make($_->{device}) . " UUID=" . $_->{UUID} . "\n" } @$raids);
+}
+
+sub get_md_info {
+    my ($dev) = @_;
+    my $conf = parse_mdadm_conf(scalar run_program::get_stdout('mdadm', '--detail', '--brief', $dev));
+
+    @{$conf->{ARRAY}} or return;
+    @{$conf->{ARRAY}} == 1 or internal_error("too many answers");
+    $conf->{ARRAY}[0];
 }
 
 sub parse_mdadm_conf {
-- 
cgit v1.2.1