Subversion Repositories wimsdev

Rev

Rev 17111 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 17111 Rev 17170
Line 9... Line 9...
9 
 
 9 
 
10 
my $warning1='is the first character of a delimiter but occurred as data';
 10 
my $warning1='is the first character of a delimiter but occurred as data';
11 
my $warning2="info: line \$";
 11 
my $warning2="info: line \$";
12 
my $warning21=": character \"&\" is the first character of a delimiter but occurred as data";
 12 
my $warning21=": character \"&\" is the first character of a delimiter but occurred as data";
13 
my $warning3="Stray start tag div.";
 13 
my $warning3="Stray start tag div.";
14 
my $warning4="Self-closing tag syntax";
 14 
#my $warning4="Self-closing tag syntax";
15 
my $DIR=".";
 15 
my $DIR=".";
16 
my $option='';
 16 
my $option='';
17 
while ($_ = shift(@ARGV))
 17 
while ($_ = shift(@ARGV))
18 
{
 18 
{
19 
  last if (/^$/);
 19 
  last if (/^$/);
Line 34... Line 34...
34 
    next if (/$warning3/);
 34 
    next if (/$warning3/);
35 
    next if (/$warning2\d+$warning21/);
 35 
    next if (/$warning2\d+$warning21/);
36 
    next if (/no attribute "autocompletion"/);
 36 
    next if (/no attribute "autocompletion"/);
37 
    next if (/no attribute "autocomplete"/);
 37 
    next if (/no attribute "autocomplete"/);
38 
    next if (/validating: test.html/);
 38 
    next if (/validating: test.html/);
39 
    next if (/$warning4/);
 39 
    #next if (/$warning4/);
40 
    $text .= $_;
 40 
    $text .= $_;
41 
  }
 41 
  }
42 
  close IN;
 42 
  close IN;
43 
  out($file, $text);
 43 
  out($file, $text);
44 
}
 44 
}