--- doc/loncapafiles/sanitycheck.piml	2002/09/22 08:32:46	1.7
+++ doc/loncapafiles/sanitycheck.piml	2002/11/27 15:33:10	1.10
@@ -3,7 +3,7 @@
 <!-- sanitycheck.piml -->
 <!-- Scott Harrison -->
 
-<!-- $Id: sanitycheck.piml,v 1.7 2002/09/22 08:32:46 harris41 Exp $ -->
+<!-- $Id: sanitycheck.piml,v 1.10 2002/11/27 15:33:10 matthew Exp $ -->
 
 <!--
 
@@ -34,6 +34,7 @@ http://www.lon-capa.org/
 <files>
 <file>
 <target dist='default'>/var/lib/mysql/mysql.sock</target>
+<target dist='redhat7'>/tmp/mysql.sock</target>
 <perlscript mode='fg'>
 unless
     (-e '<TARGET />') # Does file exist?
@@ -52,8 +53,8 @@ else # It exists, so look at the file me
       {
 	print('**** ERROR **** <TARGET /> should be owned by'.
 	      ' www.'."\n".'Try these commands to make things right:'."\n".
-	      'chown www:www /var/lib/mysql/mysql.sock'."\n".
-	      'chmod a-rwx,u+rwx /var/lib/mysql/mysql.sock'."\n");
+	      'chown www:www <TARGET />'."\n".
+	      'chmod a-rwx,u+rwx <TARGET />'."\n");
       }
     else # Check permissions on the file to make sure it is private to www.
       {
@@ -64,8 +65,8 @@ else # It exists, so look at the file me
 	    print('**** ERROR **** '.
 	      '<TARGET /> should be user "rwx" (by'.
 	      ' www).'."\n".'Try these commands to make things right:'."\n".
-	      'chown www:www /var/lib/mysql/mysql.sock'."\n".
-	      'chmod a-rwx,u+rwx /var/lib/mysql/mysql.sock'."\n");
+	      'chown www:www <TARGET />'."\n".
+	      'chmod a-rwx,u+rwx <TARGET />'."\n");
 	  }
 	$smode=~/^..(..)$/;
 	$wflag=$1;
@@ -74,8 +75,8 @@ else # It exists, so look at the file me
 	    print('**** ERROR **** '.
 	      '<TARGET /> should not be group or everybody accessible'.
 	      '.'."\n".'Try these commands to make things right:'."\n".
-	      'chown www:www /var/lib/mysql/mysql.sock'."\n".
-	      'chmod a-rwx,u+rwx /var/lib/mysql/mysql.sock'."\n");
+	      'chown www:www <TARGET />'."\n".
+	      'chmod a-rwx,u+rwx <TARGET />'."\n");
 	  }
       }
   }
@@ -122,6 +123,7 @@ my $dbug=0;
 my $sbug=0;
 my $fbug=0;
 while (&lt;IN&gt;) {
+ next if (/^(\#|\s*$)/);
  if (/\S/) {
   $rbug=1 if /\r/;
   my @a=split(/\:/,$_);