summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-10-11 17:35:35 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-10-11 17:35:35 +0000
commite4f62031c585cbc4a45230714e13821b9bfca34c (patch)
tree29ff4480df90ce8b6c0ddf9231a1e567f34ffe2b /perl-install/install_steps_interactive.pm
parent9ad846cd08f909f760f80bf703b8d4dbe1809c7b (diff)
downloaddrakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar.gz
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar.bz2
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.tar.xz
drakx-e4f62031c585cbc4a45230714e13821b9bfca34c.zip
no_comment
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm16
1 files changed, 11 insertions, 5 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 27a2cf897..635f16a78 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -55,6 +55,11 @@ sub selectLanguage($) {
[ lang::list() ],
lang::lang2text($o->{lang})));
install_steps::selectLanguage($o);
+
+ $o->{useless_thing_accepted} = $o->ask_from_list_('',
+_("Wanring no wrranty, be carfull it's gonna explose ytou romcpature"),
+ [ _("Accept"), _("Refuse") ], "Accept") eq "Accept" or exit(1) unless $o->{useless_thing_accepted};
+
}
#------------------------------------------------------------------------------
sub selectKeyboard($) {
@@ -135,7 +140,7 @@ sub ask_mntpoint_s {
my %l; $l{&$msg} = $_ foreach @fstab;
my $e = $o->ask_from_list('',
_("Which partition do you want to use as your root partition"),
- [ keys %l ]);
+ [ sort keys %l ]);
(fsedit::get_root($fstab) || {})->{mntpoint} = '';
$l{$e}{mntpoint} = '/';
} else {
@@ -525,8 +530,8 @@ sub addUser($) {
my @shells = install_any::shells($o);
$o->ask_from_entries_ref(
- _("Add user"),
- _("Enter a user"),
+ [ _("Add user"), _("Add user"), _("Done") ],
+ _("Enter a user\n%s", $o->{users} ? _("(already added %s)", join(", ", @{$o->{users}})) : ''),
[ _("Real name"), _("User name"), _("Password"), _("Password (again)"), _("Shell") ],
[ \$u->{realname}, \$u->{name},
{val => \$u->{password}, hidden => 1}, {val => \$u->{password2}, hidden => 1},
@@ -534,7 +539,7 @@ sub addUser($) {
],
focus_out => sub {
if ($_[0] eq 0) {
- $u->{name} = lc first($u->{realname} =~ /((\w|-)+)/);
+ $u->{name} ||= lc first($u->{realname} =~ /((\w|-)+)/);
}
},
complete => sub {
@@ -546,8 +551,9 @@ sub addUser($) {
},
) or return;
install_steps::addUser($o);
+ push @{$o->{users}}, $o->{user}{realname};
$o->{user} = {};
- goto &addUser if $::expert;
+ goto &addUser;#- if $::expert;
}