version 1.23, 2011/10/25 02:03:16
|
version 1.25, 2013/02/27 19:48:53
|
Line 320 sub check_locale {
|
Line 320 sub check_locale {
|
'/etc/sysconfig/language'); |
'/etc/sysconfig/language'); |
} |
} |
$langvar = 'RC_LANG'; |
$langvar = 'RC_LANG'; |
|
} elsif ($distro =~ /^fedora(\d+)/) { |
|
if ($1 >= 18) { |
|
if (!open($fh,"</etc/locale.conf")) { |
|
print &mt('Failed to open: [_1], default locale not checked.', |
|
'/etc/locale.conf'); |
|
} |
|
} elsif (!open($fh,"</etc/sysconfig/i18n")) { |
|
print &mt('Failed to open: [_1], default locale not checked.', |
|
'/etc/sysconfig/i18n'); |
|
} |
} else { |
} else { |
if (!open($fh,"</etc/sysconfig/i18n")) { |
if (!open($fh,"</etc/sysconfig/i18n")) { |
print &mt('Failed to open: [_1], default locale not checked.', |
print &mt('Failed to open: [_1], default locale not checked.', |
Line 329 sub check_locale {
|
Line 339 sub check_locale {
|
my @data = <$fh>; |
my @data = <$fh>; |
chomp(@data); |
chomp(@data); |
foreach my $item (@data) { |
foreach my $item (@data) { |
if ($item =~ /^\Q$langvar\E=\"([^\"]*)\"/) { |
if ($item =~ /^\Q$langvar\E=\"?([^\"]*)\"?/) { |
my $default = $1; |
my $default = $1; |
if ($default ne 'en_US.UTF-8') { |
if ($default ne 'en_US.UTF-8') { |
if ($distro =~ /^debian/) { |
if ($distro =~ /^debian/) { |
$command = 'dpkg-reconfigure locales'; |
$command = 'locale-gen en_US.UTF-8'."\n". |
|
'update-locale LANG=en_US.UTF-8'; |
} elsif ($distro =~ /^ubuntu/) { |
} elsif ($distro =~ /^ubuntu/) { |
$command = 'sudo set-language-env -E'; |
$command = 'sudo locale-gen en_US.UTF-8'."\n". |
|
'sudo update-locale LANG=en_US.UTF-8'; |
} elsif ($distro =~ /^(suse|sles)/) { |
} elsif ($distro =~ /^(suse|sles)/) { |
$command = 'yast language'; |
$command = 'yast language'; |
} else { |
} else { |