[BACK]Return to langcheck.piml CVS log [TXT] [DIR] Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/langcheck.piml between versions 1.1 and 1.28

version 1.1, 2011/11/02 13:16:19 version 1.28, 2021/12/21 13:57:46
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 = &lt;PIPE&gt;;
 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 (&lt;PIPE&gt; =~ /^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') {
       if (open(PIPE,"cat /etc/default/locale |grep '^LANG' |")) {
           print "Checking OS language";
           if (&lt;PIPE&gt; =~ /^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 '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')  {
       if (open(PIPE,"cat /etc/locale.conf |grep '^LANG' |")) {
           print "Checking OS language";
           if (&lt;PIPE&gt; =~ /^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 (&lt;PIPE&gt; =~ /^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 (&lt;PIPE&gt; =~ /^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>
   
Removed from v.1.1  
changed lines
  Added in v.1.28

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>