version 1.1, 2011/11/02 13:16:19
|
version 1.16, 2019/02/19 21:20:05
|
Line 5
|
Line 5
|
<target dist="default"></target> |
<target dist="default"></target> |
<perlscript mode="fg"> |
<perlscript mode="fg"> |
|
|
print "Checking root bash language"; |
if (open(PIPE,"locale |")) { |
my $lang = `locale`; |
my @lines = <PIPE>; |
if ($lang =~ "LANG=en") { |
close(PIPE); |
print "... OK\n"; |
print "Checking root bash language"; |
} else { |
my ($is_english,$is_posix); |
print "\n**** WARNING: You seem to have a non-english root bash. This can cause incorrect error messages.\n". |
foreach my $line (@lines) { |
" It is recommended to set your bash language to English.\n"; |
if ($line =~ /^LANG=en/) { |
|
$is_english = 1; |
|
print "... OK\n"; |
|
last; |
|
} elsif ($line =~ /^LANG=POSIX/) { |
|
$is_posix = 1; |
|
} |
|
if ($is_posix) { |
|
if ($line =~ /^LC_CTYPE=en/) { |
|
$is_english = 1; |
|
print "... OK\n"; |
|
last; |
|
} |
|
} |
|
} |
|
if (!$is_english) { |
|
print "\n**** WARNING: You seem to have a non-English root bash. This can cause incorrect error messages.\n". |
|
" It is recommended that you set your bash language to English by setting LANG=en_US.UTF-8 in /root/.bashrc\n"; |
|
} |
} |
} |
|
|
my $file = "/etc/sysconfig/i18n"; |
my $osmsg = "\n**** WARNING: You seem to have a non-English operating system.\n"; |
if (open(my $IN,'<'.$file)) { |
|
print "Checking OS language"; |
if ('<DIST />' eq 'sles9' || '<DIST />' eq 'sles10' || '<DIST />' eq 'sles11' || '<DIST />' eq 'sles12' || |
if (<$IN> =~ "LANG=\"en") { |
'<DIST />' eq 'suse11.1' || '<DIST />' eq 'suse11.2' || '<DIST />' eq 'suse11.3' || |
print "... OK\n"; |
'<DIST />' eq 'suse11.4' || '<DIST />' eq 'suse12.1' || '<DIST />' eq 'suse12.2' || |
} else { |
'<DIST />' eq 'suse12.3' || '<DIST />' eq 'suse13.1' || '<DIST />' eq 'suse13.2') { |
print "\n**** WARNING: You seem to have a non-english operating system. ". |
if (open(PIPE,"cat /etc/sysconfig/language |grep '^RC_LANG' |")) { |
"It is recommended to set the language in /etc/sysconfig/i18n to English.\n"; |
print "Checking OS language"; |
|
if (<PIPE> =~ /^RC_LANG="en/) { |
|
print "... OK\n"; |
|
} else { |
|
print $osmsg. |
|
"It is recommended that you set LANG=\"en_US.UTF-8\" in /etc/sysconfig/language\n"; |
|
} |
|
close(PIPE); |
|
} |
|
} elsif ('<DIST />' eq 'debian5' || '<DIST />' eq 'debian6' || '<DIST />' eq 'ubuntu6' || |
|
'<DIST />' eq 'ubuntu8' || '<DIST />' eq 'ubuntu10' || '<DIST />' eq 'ubuntu12' || |
|
'<DIST />' eq 'ubuntu14' || '<DIST />' eq 'ubuntu16' || '<DIST />' eq 'ubuntu18') { |
|
if (open(PIPE,"cat /etc/default/locale |grep '^LANG' |")) { |
|
print "Checking OS language"; |
|
if (<PIPE> =~ /^LANG="en/) { |
|
print "... OK\n"; |
|
} else { |
|
print $osmsg. |
|
"It is recommended that you set LANG=\"en_US.UTF-8\" in /etc/default/locale\n"; |
|
} |
|
close(PIPE); |
|
} |
|
} elsif ('<DIST />' eq 'fedora18' || '<DIST />' eq 'fedora19' || '<DIST />' eq 'fedora20' || |
|
'<DIST />' eq 'fedora21' || '<DIST />' eq 'fedora22' || '<DIST />' eq 'fedora23' || |
|
'<DIST />' eq 'fedora24' || '<DIST />' eq 'fedora25' || '<DIST />' eq 'fedora26' || |
|
'<DIST />' eq 'fedora27' || '<DIST />' eq 'fedora28' || '<DIST />' eq 'fedora29' || |
|
'<DIST />' eq 'rhes7' || '<DIST />' eq 'centos7' || '<DIST />' eq 'scientific7') { |
|
if (open(PIPE,"cat /etc/locale.conf |grep '^LANG' |")) { |
|
print "Checking OS language"; |
|
if (<PIPE> =~ /^LANG="en/) { |
|
print "... OK\n"; |
|
} else { |
|
print $osmsg. |
|
"It is recommended that you set LANG=\"en_US.UTF-8\" in /etc/locale.conf\n"; |
|
} |
|
close(PIPE); |
|
} |
|
} elsif ('<DIST />' eq 'sles15') { |
|
if (open(PIPE,"cat /etc/locale.conf |grep '^LANG' |")) { |
|
print "Checking OS language"; |
|
if (<PIPE> =~ /^LANG=en/) { |
|
print "... OK\n"; |
|
} else { |
|
print $osmsg. |
|
"It is recommended that you set LANG=en_US.UTF-8 in /etc/locale.conf\n"; |
|
} |
|
close(PIPE); |
|
} |
|
} else { |
|
if (open(PIPE,"cat /etc/sysconfig/i18n |grep '^LANG' |")) { |
|
print "Checking OS language"; |
|
if (<PIPE> =~ /^LANG="en/) { |
|
print "... OK\n"; |
|
} else { |
|
print $osmsg. |
|
"It is recommended that you set LANG=\"en_US.UTF-8\" in /etc/sysconfig/i18n.\n"; |
|
} |
|
close(PIPE); |
} |
} |
} |
} |
|
|
</perlscript> |
</perlscript> |
</file> |
</file> |
</files> |
</files> |
</piml> |
|
|
|
|
</piml> |
|
|