version 1.24, 2013/01/06 23:04:07
|
version 1.25, 2013/02/27 19:48:53
|
Line 339 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 { |