[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.2

version 1.1, 2011/11/02 13:16:19 version 1.2, 2011/11/08 07:33:08
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' ||
     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 '12.1') {
     } else {      if (open(PIPE,"cat /etc/sysconfig/language |grep '^RC_LANG' |")) {
         print "\n**** WARNING: You seem to have a non-english operating system. ".          print "Checking OS language";
         "It is recommended to set the language in /etc/sysconfig/i18n to English.\n";          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') {
       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);
       }
   } 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.2

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