version 1.31, 2010/05/04 00:12:28
|
version 1.33, 2010/07/21 00:32:44
|
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'>/var/run/mysql/mysql.sock</target> |
<target dist='debian5 ubuntu6 ubuntu8'>/var/run/mysqld/mysqld.sock</target> |
<target dist='debian5 ubuntu6 ubuntu8'>/var/run/mysqld/mysqld.sock</target> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
unless |
unless |
Line 168 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 185 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"; |