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

Diff for /doc/loncapafiles/sanitycheck.piml between versions 1.8 and 1.12

version 1.8, 2002/11/26 15:26:44 version 1.12, 2003/01/07 21:12:54
Line 33  http://www.lon-capa.org/ Line 33  http://www.lon-capa.org/
 <targetroot>/</targetroot>  <targetroot>/</targetroot>
 <files>  <files>
 <file>  <file>
   <target dist='default'>/etc/hosts</target>
   <perlscript mode='fg'>
   unless
       (-e '<TARGET />') # Does file exist?
     {
       print("**** ERROR **** Missing <TARGET />\n");
     }
   else
     {
       my $numentries = `grep -v '^#' <TARGET /> | grep -c '[[:alpha:]]'`;
       if ($numentries == 1)
         {
           print("**** ERROR **** Malformatted <TARGET />\n");
           print("<TARGET /> typically should have at least two entries, ".
         "e.g.:\n");
    print("127.0.0.1               localhost.localdomain localhost\n");
    print("35.8.63.26              s16.lite.msu.edu s16\n");
           print("The <TARGET /> file on your machine looks like it was \n".
         "messed up due to a common bug with RedHat installations.\n".
         "(This weird bug is RedHat's fault, not LON-CAPA's.)\n");
           print("Please read the man pages about \"hosts\" and fix your\n".
         "<TARGET /> file.\n");
         }
     }
   </perlscript>
   </file>
   <file>
 <target dist='default'>/var/lib/mysql/mysql.sock</target>  <target dist='default'>/var/lib/mysql/mysql.sock</target>
 <target dist='redhat7.2 redhat7.3'>/tmp/mysql.sock</target>  
 <perlscript mode='fg'>  <perlscript mode='fg'>
 unless  unless
     (-e '<TARGET />') # Does file exist?      (-e '<TARGET />') # Does file exist?
Line 123  my $dbug=0; Line 149  my $dbug=0;
 my $sbug=0;  my $sbug=0;
 my $fbug=0;  my $fbug=0;
 while (&lt;IN&gt;) {  while (&lt;IN&gt;) {
    next if (/^(\#|\s*$)/);
  if (/\S/) {   if (/\S/) {
   $rbug=1 if /\r/;    $rbug=1 if /\r/;
   my @a=split(/\:/,$_);    my @a=split(/\:/,$_);
Removed from v.1.8  
changed lines
  Added in v.1.12

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