From 19213895ab5823914fcf346c7b94f9572726670d Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 10 Aug 2005 03:36:07 +0000
Subject: ask the encrypt_key when we have "encrypted" set but we don't have
 the encrypt_key

---
 perl-install/diskdrake/interactive.pm | 29 +++++++++++++++++++++++++----
 1 file changed, 25 insertions(+), 4 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/diskdrake/interactive.pm b/perl-install/diskdrake/interactive.pm
index 13530916c..b65e05597 100644
--- a/perl-install/diskdrake/interactive.pm
+++ b/perl-install/diskdrake/interactive.pm
@@ -825,7 +825,10 @@ sub Format {
 }
 sub Mount {
     my ($in, $hd, $part) = @_;
+
+    ensure_we_have_encrypt_key_if_needed($in, $part) or return;
     write_partitions($in, $hd) or return;
+
     my $w;
     fs::mount::part($part, 0, sub {
         	my ($msg) = @_;
@@ -975,7 +978,7 @@ sub Options {
 			  if (!check($in, $hd, $part, $all_hds)) {
 			      $options->{encrypted} = 0;
 			  } elsif (!$part->{encrypt_key} && !isSwap($part)) {
-			      if (my ($encrypt_key, $encrypt_algo) = choose_encrypt_key($in, $options)) {
+			      if (my ($encrypt_key, $encrypt_algo) = choose_encrypt_key($in, $options, '')) {
 				  $options->{'encryption='} = $encrypt_algo;
 				  $part->{encrypt_key} = $encrypt_key;
 			      } else {
@@ -1115,9 +1118,23 @@ sub write_partitions {
     1;
 }
 
+sub ensure_we_have_encrypt_key_if_needed {
+    my ($in, $part) = @_;
+
+    if ($part->{options} =~ /encrypted/ && !$part->{encrypt_key}) {
+	my ($options, $unknown) = fs::mount_options::unpack($part);
+	$part->{encrypt_key} = choose_encrypt_key($in, $options, 'skip_encrypt_algo') or return;
+	fs::mount_options::pack($part, $options, $unknown);
+    }
+    1;
+}
+
 sub format_ {
     my ($in, $hd, $part, $all_hds) = @_;
+
+    ensure_we_have_encrypt_key_if_needed($in, $part) or return;
     write_partitions($in, $_) or return foreach isRAID($part) ? @{$all_hds->{hds}} : $hd;
+
     ask_alldatawillbelost($in, $part, N_("After formatting partition %s, all data on this partition will be lost")) or return;
     if ($::isStandalone) {
 	fs::format::check_package_is_installed($in->do_pkgs, $part->{fs_type}) or return;
@@ -1293,7 +1310,7 @@ sub max_partition_size {
 }
 
 sub choose_encrypt_key {
-    my ($in, $options) = @_;
+    my ($in, $options, $skip_encrypt_algo) = @_;
 
     my ($encrypt_key, $encrypt_key2);
     my @algorithms = map { "AES$_" } 128, 196, 256, 512, 1024, 2048;
@@ -1311,8 +1328,12 @@ sub choose_encrypt_key {
         } } }, [
 { label => N("Encryption key"), val => \$encrypt_key,  hidden => 1 },
 { label => N("Encryption key (again)"), val => \$encrypt_key2, hidden => 1 },
-{ label => N("Encryption algorithm"), type => 'list', val => \$encrypt_algo, list => \@algorithms }
-    ]) && ($encrypt_key, $encrypt_algo);
+if_(!$skip_encrypt_algo,
+{ label => N("Encryption algorithm"), type => 'list', val => \$encrypt_algo, list => \@algorithms },
+),
+    ]) or return;
+
+    $skip_encrypt_algo ? $encrypt_key : ($encrypt_key, $encrypt_algo);
 }
 
 
-- 
cgit v1.2.1