summaryrefslogtreecommitdiffstats
path: root/perl-install/install_steps_interactive.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2001-07-03 17:37:18 +0000
committerPascal Rigaux <pixel@mandriva.com>2001-07-03 17:37:18 +0000
commit5abf7c865418f90f4bd2ccb0572cfe2f27e5e23a (patch)
tree442e16ca0cfa7c9a85c34cf02c8289da7a06786b /perl-install/install_steps_interactive.pm
parent96eb28ea178cde877e137ff91cbeda324d9b50bb (diff)
downloaddrakx-5abf7c865418f90f4bd2ccb0572cfe2f27e5e23a.tar
drakx-5abf7c865418f90f4bd2ccb0572cfe2f27e5e23a.tar.gz
drakx-5abf7c865418f90f4bd2ccb0572cfe2f27e5e23a.tar.bz2
drakx-5abf7c865418f90f4bd2ccb0572cfe2f27e5e23a.tar.xz
drakx-5abf7c865418f90f4bd2ccb0572cfe2f27e5e23a.zip
(configureTimezone): propose a list of NTP servers
Diffstat (limited to 'perl-install/install_steps_interactive.pm')
-rw-r--r--perl-install/install_steps_interactive.pm6
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 88f48cab5..f96f4f0a3 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -814,8 +814,12 @@ sub configureTimezone {
]) or goto &configureTimezone
if $::expert || $clicked;
if ($ntp) {
+ my @servers = split("\n", $timezone::ntp_servers);
+
$o->ask_from_entries_refH('', '',
- [ { label => _("NTP Server"), val => \$o->{timezone}{ntp} } ]) or goto &configureTimezone;
+ [ { label => _("NTP Server"), val => \$o->{timezone}{ntp}, list => \@servers, not_edit => 0 } ]
+ ) or goto &configureTimezone;
+ $o->{timezone}{ntp} =~ s/.*\((.+)\)/$1/;
} else {
$o->{timezone}{ntp} = '';
}