diff options
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/network/tools.pm | 19 |
1 files changed, 19 insertions, 0 deletions
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; |