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

Diff for /doc/loncapafiles/sanitycheck.piml between versions 1.14 and 1.16

version 1.14, 2003/05/27 13:16:44 version 1.16, 2005/03/01 03:40:47
Line 66  unless Line 66  unless
   {    {
     print("**** ERROR **** Missing <TARGET />\n");      print("**** ERROR **** Missing <TARGET />\n");
   }    }
   <!-- Commented out by Matthew since MySQL insists on doing things its own way
 else # It exists, so look at the file metadata more closely.  else # It exists, so look at the file metadata more closely.
   {    {
     my @s = stat('<TARGET />');      my @s = stat('<TARGET />');
Line 105  else # It exists, so look at the file me Line 106  else # It exists, so look at the file me
   }    }
       }        }
   }    }
    -->
 </perlscript>  </perlscript>
 </file>  </file>
 <file>  <file>
Line 156  while (&lt;IN&gt;) { Line 158  while (&lt;IN&gt;) {
   $dbug=1 if $a[0]=~/\_/;    $dbug=1 if $a[0]=~/\_/;
   $dbug=1 if $a[1]=~/\_/;    $dbug=1 if $a[1]=~/\_/;
   $dbug=1 if $a[1]=~/\W/;    $dbug=1 if $a[1]=~/\W/;
   $fbug=1 if (@a<5 || @a>6);    $fbug=1 if (@a<4 || @a>5);
   my $expr='\s.+$';    my $expr='\s.+$';
   $sbug=1 if ($a[0] =~ /$expr/ ||    $sbug=1 if ($a[0] =~ /$expr/ ||
       $a[1] =~ /$expr/ ||        $a[1] =~ /$expr/ ||
       $a[2] =~ /$expr/ ||        $a[2] =~ /$expr/ ||
       $a[3] =~ /$expr/ ||        $a[3] =~ /$expr/ )
       $a[4] =~ /$expr/ )  
 ;  ;
  }   }
 }  }
Line 174  if ($dbug) { Line 175  if ($dbug) {
   print "**** ERROR **** <TARGET /> has invalid host id or domain id\n";    print "**** ERROR **** <TARGET /> has invalid host id or domain id\n";
 }  }
 if ($fbug) {  if ($fbug) {
   print "**** ERROR **** <TARGET /> is lacking 5 or 6 columns for every row\n";    print "**** ERROR **** <TARGET /> is lacking 4 or 5 columns for every row\n";
 }  }
 if ($sbug) {  if ($sbug) {
   print "**** ERROR **** <TARGET /> has illegal whitespace character\n";    print "**** ERROR **** <TARGET /> has illegal whitespace character\n";
Removed from v.1.14  
changed lines
  Added in v.1.16

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