Make it possible to generate 29tsoc ebooks

[project-aon.git] / common / scripts / gblint.pl

diff --git a/common/scripts/gblint.pl b/common/scripts/gblint.pl
index 996c21d..afde47c 100755 (executable)
--- a/common/scripts/gblint.pl
+++ b/common/scripts/gblint.pl
@@ -283,7 +283,7 @@ while( my $line = <> ) {
   if( $line =~ /[^>](CLOSE\sCOMBAT\sSKILL)/ || $line =~ /(CLOSE\s+COMBAT\s+SKILL)[^<]/ ) {
     &printError( "ne", $currentSection, $lineNumber, "possible missing markup", "$1", "<typ class=\"attribute\">$1</typ>" );
   }
-  if( $line =~ /[^>](ENDURANCE)/ || $line =~ /(ENDURANCE)[^<]/ ) {
+  if( $line =~ /[^>](ENDURANCE)/ || $line =~ /(ENDURANCE)(?! Points)[^<]/ ) {
     &printError( "ne", $currentSection, $lineNumber, "possible missing markup", "ENDURANCE", "<typ class=\"attribute\">ENDURANCE</typ>" );
   }
   if( $line =~ /[^>](WILLPOWER)/ || $line =~ /(WILLPOWER)[^<]/ ) {
@@ -299,7 +299,7 @@ while( my $line = <> ) {
   }
 
   ##### Others
-  if( $line =~ m{<!--(?!/?ERRTAG)} ) { &printError( "ne", $currentSection, $lineNumber, "XML comment found (check for editor comments)" ); }
+  if( $line =~ m{<!--(?!/?(link-text|ERRTAG))} ) { &printError( "ne", $currentSection, $lineNumber, "XML comment found (check for editor comments)" ); }
   if( $line =~ /([[:upper:]]{5,})/ &&
       $` !~ /<signpost>$/ &&
       (($language eq 'en' && 
@@ -308,6 +308,7 @@ while( my $line = <> ) {
         $1 ne "WILLPOWER" &&
         $1 ne "HAVOC" &&
         $1 ne "TARGET" &&
+        $1 ne "RESISTANCE" &&
         $1 ne "CLOSE") ||
        ($language eq 'es' &&
         $1 ne 'DESTREZA' &&