version 1.24, 2007/04/22 16:33:28
|
version 1.39, 2013/04/04 15:06:40
|
Line 60 else
|
Line 60 else
|
</file> |
</file> |
<file> |
<file> |
<target dist='default'>/var/lib/mysql/mysql.sock</target> |
<target dist='default'>/var/lib/mysql/mysql.sock</target> |
|
<target dist='suse11.2 suse11.3 suse11.4 suse12.1 suse12.2 suse12.3'>/var/run/mysql/mysql.sock</target> |
|
<target dist='debian5 debian6 ubuntu6 ubuntu8 ubuntu10 ubuntu12'>/var/run/mysqld/mysqld.sock</target> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
unless |
unless |
(-e '<TARGET />') # Does file exist? |
(-e '<TARGET />') # Does file exist? |
Line 111 else # It exists, so look at the file me
|
Line 113 else # It exists, so look at the file me
|
</file> |
</file> |
<file> |
<file> |
<target dist='default'>/etc/httpd/conf/loncapa.conf</target> |
<target dist='default'>/etc/httpd/conf/loncapa.conf</target> |
<target dist='sles10 suse10.1 suse10.2'>/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 suse12.2 suse12.3 debian5 debian6 ubuntu6 ubuntu8 ubuntu10 ubuntu12'>/etc/apache2/loncapa.conf</target> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
my $hbug=-1; |
my $hbug=-1; |
Line 167 while (my $l = <IN>) {
|
Line 169 while (my $l = <IN>) {
|
$a[1]=~/[^\w\-.]/ || |
$a[1]=~/[^\w\-.]/ || |
$a[0]=~/\_/ || |
$a[0]=~/\_/ || |
$a[1]=~/\_/ ) { $dbug=1; push(@{$line{'d'}},$line); } |
$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.+$'; |
my $expr='\s.+$'; |
if ($a[0] =~ /$expr/ || |
if ($a[0] =~ /$expr/ || |
$a[1] =~ /$expr/ || |
$a[1] =~ /$expr/ || |
Line 184 if ($dbug) {
|
Line 186 if ($dbug) {
|
print "**** ERROR **** <TARGET /> has invalid host id or domain id (lines ".join(', ',@{$line{'d'}}).")\n"; |
print "**** ERROR **** <TARGET /> has invalid host id or domain id (lines ".join(', ',@{$line{'d'}}).")\n"; |
} |
} |
if ($fbug) { |
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) { |
if ($sbug) { |
print "**** ERROR **** <TARGET /> has illegal whitespace character (lines ".join(', ',@{$line{'s'}}).")\n"; |
print "**** ERROR **** <TARGET /> has illegal whitespace character (lines ".join(', ',@{$line{'s'}}).")\n"; |