From 5abf7c865418f90f4bd2ccb0572cfe2f27e5e23a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 3 Jul 2001 17:37:18 +0000
Subject: (configureTimezone): propose a list of NTP servers

---
 perl-install/install_steps_interactive.pm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'perl-install/install_steps_interactive.pm')

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} = '';
     }
-- 
cgit v1.2.1