|
version 1.32, 2010/05/04 01:45:31
|
version 1.33, 2010/07/21 00:32:44
|
|
Line 169 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 186 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"; |
![[BACK]](/icons/back.gif){kind=icon}
Return to sanitycheck.piml CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / doc / loncapafiles