From 8a606f702f7972827dd458d4155328983d36e893 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 24 Nov 2003 18:36:59 +0000
Subject: reintroduce detect_timezone (indeed that one was needed :-()

---
 perl-install/network/tools.pm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/perl-install/network/tools.pm b/perl-install/network/tools.pm
index 112d56140..544833fc7 100644
--- a/perl-install/network/tools.pm
+++ b/perl-install/network/tools.pm
@@ -140,6 +140,25 @@ sub ask_info2 {
     1;
 }
 
+sub detect_timezone() {
+    my %tmz2country = ( 
+		       'Europe/Paris' => N("France"),
+		       'Europe/Amsterdam' => N("Netherlands"),
+		       'Europe/Rome' => N("Italy"),
+		       'Europe/Brussels' => N("Belgium"), 
+		       'America/New_York' => N("United States"),
+		       'Europe/London' => N("United Kingdom") 
+		      );
+    my %tm_parse = MDK::Common::System::getVarsFromSh('/etc/sysconfig/clock');
+    my @country;
+    foreach (keys %tmz2country) {
+	if ($_ eq $tm_parse{ZONE}) {
+	    unshift @country, $tmz2country{$_};
+	} else { push @country, $tmz2country{$_} };
+    }
+    \@country;
+}
+
 sub connected() { gethostbyname("mandrakesoft.com") ? 1 : 0 }
 
 my $kid_pipe;
-- 
cgit v1.2.1