From 305e8718e9c1018d63139de7d9673a43244d96d6 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Tue, 28 Feb 2006 17:32:18 +0000
Subject: ask for timezone (#21271)

---
 perl-install/standalone/finish-install | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'perl-install/standalone')

diff --git a/perl-install/standalone/finish-install b/perl-install/standalone/finish-install
index c44b73cc7..15f615267 100755
--- a/perl-install/standalone/finish-install
+++ b/perl-install/standalone/finish-install
@@ -49,6 +49,15 @@ sub ask_keyboard() {
     keyboard::configure_and_set_standalone($keyboard);
 }
 
+sub ask_timezone() {
+    require timezone;
+    my $t = {};
+    $t->{timezone} = timezone::bestTimezone($locale->{country});
+    $t->{timezone} = $in->ask_from_treelist(N("Timezone"), N("Which is your timezone?"), '/', [ timezone::getTimeZones() ], $t->{timezone}) or return;
+    $t->{UTC} = $in->ask_yesorno(N("Timezone"), N("Is your hardware clock set to GMT?"), $t->{UTC});
+    timezone::write($t);
+}
+
 sub ask_network() {
     my $modules_conf = modules::any_conf->read;
     require network::netconnect;
@@ -101,6 +110,7 @@ sub call {
 call('license');
 call('language');
 call('keyboard');
+call('timezone');
 call('network');
 if (defined $::WizardWindow) {
     $::WizardWindow->destroy;
-- 
cgit v1.2.1