|
version 1.7, 2014/06/29 23:50:25
|
version 1.8, 2015/01/03 03:00:18
|
|
Line 34 if (open(PIPE,"locale |")) {
|
Line 34 if (open(PIPE,"locale |")) {
|
| |
|
| my $osmsg = "\n**** WARNING: You seem to have a non-English operating system.\n"; |
my $osmsg = "\n**** WARNING: You seem to have a non-English operating system.\n"; |
| |
|
| if ('<DIST />' eq 'sles9' || '<DIST />' eq 'sles10' || '<DIST />' eq 'sles11' || |
if ('<DIST />' eq 'sles9' || '<DIST />' eq 'sles10' || '<DIST />' eq 'sles11' || '<DIST />' eq 'sles12' || |
| '<DIST />' eq 'suse11.1' || '<DIST />' eq 'suse11.2' || '<DIST />' eq 'suse11.3' || |
'<DIST />' eq 'suse11.1' || '<DIST />' eq 'suse11.2' || '<DIST />' eq 'suse11.3' || |
| '<DIST />' eq 'suse11.4' || '<DIST />' eq 'suse12.1' || '<DIST />' eq 'suse12.2' || |
'<DIST />' eq 'suse11.4' || '<DIST />' eq 'suse12.1' || '<DIST />' eq 'suse12.2' || |
| '<DIST />' eq 'suse12.3' || '<DIST />' eq 'suse13.1') { |
'<DIST />' eq 'suse12.3' || '<DIST />' eq 'suse13.1' || '<DIST />' eq 'suse13.2') { |
| if (open(PIPE,"cat /etc/sysconfig/language |grep '^RC_LANG' |")) { |
if (open(PIPE,"cat /etc/sysconfig/language |grep '^RC_LANG' |")) { |
| print "Checking OS language"; |
print "Checking OS language"; |
| if (<PIPE> =~ /^RC_LANG="en/) { |
if (<PIPE> =~ /^RC_LANG="en/) { |
![[BACK]](/icons/back.gif){kind=icon}
Return to langcheck.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles