--- doc/loncapafiles/sanitycheck.piml	2010/01/01 04:29:01	1.30
+++ doc/loncapafiles/sanitycheck.piml	2011/11/06 00:41:53	1.36
@@ -2,7 +2,7 @@
 	"http://lpml.sourceforge.net/DTD/piml.dtd">
 <!-- sanitycheck.piml -->
 
-<!-- $Id: sanitycheck.piml,v 1.30 2010/01/01 04:29:01 raeburn Exp $ -->
+<!-- $Id: sanitycheck.piml,v 1.36 2011/11/06 00:41:53 raeburn Exp $ -->
 
 <!--
 
@@ -60,7 +60,8 @@ else
 </file>
 <file>
 <target dist='default'>/var/lib/mysql/mysql.sock</target>
-<target dist='debian5 ubuntu6 ubuntu8'>/var/run/mysqld/mysqld.sock</target>
+<target dist='suse11.2 suse11.3 suse11.4 suse12.1'>/var/run/mysql/mysql.sock</target>
+<target dist='debian5 debian6 ubuntu6 ubuntu8 ubuntu10'>/var/run/mysqld/mysqld.sock</target>
 <perlscript mode='fg'>
 unless
     (-e '<TARGET />') # Does file exist?
@@ -112,7 +113,7 @@ else # It exists, so look at the file me
 </file>
 <file>
 <target dist='default'>/etc/httpd/conf/loncapa.conf</target>
-<target dist='sles10 sles11 suse10.1 suse10.2 suse10.3 suse11.1 susee11.2 debian5 ubuntu6 ubuntu8'>/etc/apache2/loncapa.conf</target>
+<target dist='sles10 sles11 suse10.1 suse10.2 suse10.3 suse11.1 suse11.2 suse11.3 suse11.4 suse12.1 debian5 debian6 ubuntu6 ubuntu8 ubuntu10'>/etc/apache2/loncapa.conf</target>
 <perlscript mode='fg'>
 open IN, "&lt;<TARGET />";
 my $hbug=-1;
@@ -168,7 +169,7 @@ while (my $l = &lt;IN&gt;) {
       $a[1]=~/[^\w\-.]/ ||
       $a[0]=~/\_/       ||
       $a[1]=~/\_/      ) { $dbug=1; push(@{$line{'d'}},$line); }
-  if (@a<4 || @a>5) {      $fbug=1; push(@{$line{'f'}},$line); }
+  if (@a<6 || @a>6) {      $fbug=1; push(@{$line{'f'}},$line); }
   my $expr='\s.+$';
   if ($a[0] =~ /$expr/ ||
       $a[1] =~ /$expr/ ||
@@ -185,7 +186,7 @@ if ($dbug) {
   print "**** ERROR **** <TARGET /> has invalid host id or domain id (lines ".join(', ',@{$line{'d'}}).")\n";
 }
 if ($fbug) {
-  print "**** ERROR **** <TARGET /> is lacking 4 or 5 columns for every row (lines ".join(', ',@{$line{'f'}}).")\n";
+  print "**** ERROR **** <TARGET /> is lacking 6 columns for every row (lines ".join(', ',@{$line{'f'}}).")\n";
 }
 if ($sbug) {
   print "**** ERROR **** <TARGET /> has illegal whitespace character (lines ".join(', ',@{$line{'s'}}).")\n";