[prev in list] [next in list] [prev in thread] [next in thread]
List: lon-capa-cvs
Subject: [LON-CAPA-cvs] cvs: doc /loncapafiles sanitycheck.piml
From: albertel <lon-capa-cvs () mail ! lon-capa ! org>
Date: 2006-09-28 2:15:06
Message-ID: cvsalbertel1159409706 () cvsserver
[Download RAW message or body]
albertel Wed Sep 27 22:15:06 2006 EDT
Modified files:
/doc/loncapafiles sanitycheck.piml
Log:
- sprea.tab can have more in it now
Index: doc/loncapafiles/sanitycheck.piml
diff -u doc/loncapafiles/sanitycheck.piml:1.17 doc/loncapafiles/sanitycheck.piml:1.18
--- doc/loncapafiles/sanitycheck.piml:1.17 Fri Sep 15 16:55:15 2006
+++ doc/loncapafiles/sanitycheck.piml Wed Sep 27 22:15:06 2006
@@ -2,7 +2,7 @@
"http://lpml.sourceforge.net/DTD/piml.dtd">
<!-- sanitycheck.piml -->
-<!-- $Id: sanitycheck.piml,v 1.17 2006/09/15 20:55:15 raeburn Exp $ -->
+<!-- $Id: sanitycheck.piml,v 1.18 2006/09/28 02:15:06 albertel Exp $ -->
<!--
@@ -189,12 +189,14 @@
my $rbug=0;
my $dbug=0;
my $sbug=0;
-while (<IN>) {
- if (/\S/) {
- $rbug=1 if /\r/;
- $dbug=1 if $_=~/\W.*\n$/;
- $dbug=1 if $_=~/\_/;
- $sbug=1 if /\s.+$/;
+while (my $line = <IN>) {
+ if ($line =~ /\S/) {
+ $rbug=1 if $line=~/\r/;
+ if ($line =~ /\W/) {
+ $dbug=$line if ($line !~/\w:(?:primary|default)$/);
+ }
+ $dbug=$line if $line=~/\_/;
+ $sbug=1 if $line=~/\s.+$/;
}
}
close IN;
@@ -202,7 +204,7 @@
print "**** ERROR **** <TARGET /> is DOS-formatted\n";
}
if ($dbug) {
- print "**** ERROR **** <TARGET /> has invalid host id\n";
+ print "**** ERROR **** <TARGET /> has invalid host id ($dbug)\n";
}
if ($sbug) {
print "**** ERROR **** <TARGET /> has illegal whitespace character\n";
_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic