summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/NEWS1
-rw-r--r--perl-install/any.pm2
-rw-r--r--perl-install/bootloader.pm11
-rw-r--r--perl-install/install/NEWS1
4 files changed, 5 insertions, 10 deletions
diff --git a/perl-install/NEWS b/perl-install/NEWS
index b34faa205..2c8b8f1c2 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -9,6 +9,7 @@
o TV: cx25821, saa7164
o wifi: r8187se, r8192_pci, r8192u_usb, rt2800pci, vt6655_stage, vt6656_stage
- drakboot:
+ o default to always crypt grub passwords
o fix support for crypted grub passwords
Version 13.9 - 4 February 2010
diff --git a/perl-install/any.pm b/perl-install/any.pm
index f8f81b60f..7c1673eae 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -428,8 +428,6 @@ sub setupBootloader__general {
disabled => sub { !$enable_lapic } },
{ text => N("Enable Local APIC"), val => \$enable_lapic, type => 'bool', advanced => 1 },
{ label => N("Security"), title => 1 },
- { text => N("Encrypted password"), val => \$b->{encrypted}, type => "bool",
- disabled => sub { $b->{method} !~ /^grub/ } },
{ label => N("Password"), val => \$b->{password}, hidden => 1,
validate => sub {
my $ok = $b->{password} eq $b->{password2}
diff --git a/perl-install/bootloader.pm b/perl-install/bootloader.pm
index d56088216..5b2ac248c 100644
--- a/perl-install/bootloader.pm
+++ b/perl-install/bootloader.pm
@@ -338,7 +338,6 @@ sub read_grub_menu_lst {
}
if ($b{password} =~ /^--md5 (.*)/) {
$b{password} = $1;
- $b{encrypted} = 1;
}
#- sanitize
@@ -1747,13 +1746,9 @@ sub write_grub {
push @conf, $format->(grep { defined $bootloader->{$_} } qw(timeout));
push @conf, $format->(grep { $bootloader->{$_} } qw(color serial shade terminal viewport background foreground));
if (my $pw = $bootloader->{password}) {
- if ($bootloader->{encrypted}) {
- $pw = crypt_grub_password($pw) if !is_already_crypted($pw);
- $bootloader->{'password --md5'} = $pw;
- push @conf, $format->('password --md5');
- } else {
- push @conf, $format->('password');
- }
+ $pw = crypt_grub_password($pw) if !is_already_crypted($pw);
+ $bootloader->{'password --md5'} = $pw;
+ push @conf, $format->('password --md5');
}
push @conf, map { $_ . ' ' . $file2grub->($bootloader->{$_}) } grep { $bootloader->{$_} } qw(gfxmenu);
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index a3b30c7e5..132cffa7b 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -12,6 +12,7 @@
o add support for crypted grub passwords
o always display security settings
o allow timeout to be '0'
+ o default to always crypt grub passwords
- partitioning wizard:
o offer to install on dmraid (instead of crashing if no other disk)
o offer to install on existing lvm