version 1.2, 2002/05/16 01:46:29
|
version 1.3, 2002/07/17 17:55:07
|
Line 73 while (<IN>) {
|
Line 73 while (<IN>) {
|
$dbug=1 if $a[0]=~/\_/; |
$dbug=1 if $a[0]=~/\_/; |
$dbug=1 if $a[1]=~/\_/; |
$dbug=1 if $a[1]=~/\_/; |
$dbug=1 if $a[1]=~/\W/; |
$dbug=1 if $a[1]=~/\W/; |
$fbug=1 if @a!=5; |
$fbug=1 if (@a<5 || @a>6); |
$sbug=1 if /\s.+$/; |
my $expr='\s.+$'; |
|
$sbug=1 if ($a[0] =~ /$expr/ || |
|
$a[1] =~ /$expr/ || |
|
$a[2] =~ /$expr/ || |
|
$a[3] =~ /$expr/ || |
|
$a[4] =~ /$expr/ ) |
|
; |
} |
} |
} |
} |
close IN; |
close IN; |
Line 85 if ($dbug) {
|
Line 91 if ($dbug) {
|
print "**** ERROR **** <TARGET /> has invalid host id or domain id\n"; |
print "**** ERROR **** <TARGET /> has invalid host id or domain id\n"; |
} |
} |
if ($fbug) { |
if ($fbug) { |
print "**** ERROR **** <TARGET /> is lacking 5 columns for every row\n"; |
print "**** ERROR **** <TARGET /> is lacking 5 or 6 columns for every row\n"; |
} |
} |
if ($sbug) { |
if ($sbug) { |
print "**** ERROR **** <TARGET /> has illegal whitespace character\n"; |
print "**** ERROR **** <TARGET /> has illegal whitespace character\n"; |