--- doc/loncapafiles/sanitycheck.piml	2003/05/27 13:16:44	1.14
+++ doc/loncapafiles/sanitycheck.piml	2005/03/01 03:40:47	1.16
@@ -2,7 +2,7 @@
 	"http://lpml.sourceforge.net/DTD/piml.dtd">
 <!-- sanitycheck.piml -->
 
-<!-- $Id: sanitycheck.piml,v 1.14 2003/05/27 13:16:44 matthew Exp $ -->
+<!-- $Id: sanitycheck.piml,v 1.16 2005/03/01 03:40:47 albertel Exp $ -->
 
 <!--
 
@@ -66,6 +66,7 @@ unless
   {
     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.
   {
     my @s = stat('<TARGET />');
@@ -105,6 +106,7 @@ else # It exists, so look at the file me
 	  }
       }
   }
+ -->
 </perlscript>
 </file>
 <file>
@@ -156,13 +158,12 @@ while (&lt;IN&gt;) {
   $dbug=1 if $a[0]=~/\_/;
   $dbug=1 if $a[1]=~/\_/;
   $dbug=1 if $a[1]=~/\W/;
-  $fbug=1 if (@a<5 || @a>6);
+  $fbug=1 if (@a<4 || @a>5);
   my $expr='\s.+$';
   $sbug=1 if ($a[0] =~ /$expr/ ||
 	      $a[1] =~ /$expr/ ||
 	      $a[2] =~ /$expr/ ||
-	      $a[3] =~ /$expr/ ||
-	      $a[4] =~ /$expr/ )
+	      $a[3] =~ /$expr/ )
 ;
  }
 }
@@ -174,7 +175,7 @@ if ($dbug) {
   print "**** ERROR **** <TARGET /> has invalid host id or domain id\n";
 }
 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) {
   print "**** ERROR **** <TARGET /> has illegal whitespace character\n";