version 1.1, 2011/11/02 13:16:19
|
version 1.34, 2024/04/24 21:57:16
|
Line 1
|
Line 1
|
|
<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN" |
|
"http://lpml.sourceforge.net/DTD/piml.dtd"> |
|
<!-- langcheck.piml --> |
|
|
|
<!-- $Id$ --> |
|
|
|
<!-- |
|
|
|
This file is part of the LearningOnline Network with CAPA (LON-CAPA). |
|
|
|
LON-CAPA is free software; you can redistribute it and/or modify |
|
it under the terms of the GNU General Public License as published by |
|
the Free Software Foundation; either version 2 of the License, or |
|
(at your option) any later version. |
|
|
|
LON-CAPA is distributed in the hope that it will be useful, |
|
but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
GNU General Public License for more details. |
|
|
|
You should have received a copy of the GNU General Public License |
|
along with LON-CAPA; if not, write to the Free Software |
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
|
|
|
/home/httpd/html/adm/gpl.txt |
|
|
|
http://www.lon-capa.org/ |
|
|
|
--> |
<piml> |
<piml> |
<targetroot>/</targetroot> |
<targetroot>/</targetroot> |
<files> |
<files> |
Line 5
|
Line 34
|
<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' || |
|
'<DIST />' eq 'ubuntu20' || '<DIST />' eq 'ubuntu22' || '<DIST />' eq 'ubuntu24') { |
|
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 'fedora30' || '<DIST />' eq 'fedora31' || '<DIST />' eq 'fedora32' || |
|
'<DIST />' eq 'fedora33' || '<DIST />' eq 'fedora34' || '<DIST />' eq 'fedora35' || |
|
'<DIST />' eq 'fedora36' || '<DIST />' eq 'fedora37' || '<DIST />' eq 'fedora38' || |
|
'<DIST />' eq 'rhes7' || '<DIST />' eq 'centos7' || '<DIST />' eq 'scientific7' || |
|
'<DIST />' eq 'rhes8' || '<DIST />' eq 'centos8' || '<DIST />' eq 'oracle7' || |
|
'<DIST />' eq 'oracle8' || '<DIST />' eq 'rocky8' || '<DIST />' eq 'alma8' || |
|
'<DIST />' eq 'centos8-stream' || '<DIST />' eq 'centos9-stream' || '<DIST />' eq 'rhes9' || |
|
'<DIST />' eq 'oracle9' || '<DIST />' eq 'rocky9' || '<DIST />' eq 'alma9') { |
|
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> |
|
|