Subversion Repositories wimsdev

Rev

Rev 11480 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. #!/usr/bin/perl
  2.  
  3. ## validator file validator_uri
  4.  my $file = shift(@ARGV);
  5.  my $uri = shift(@ARGV);
  6.  use WebService::Validator::HTML::W3C;
  7.  my $v = WebService::Validator::HTML::W3C->new(detailed => 1);
  8.  $v->validator_uri($uri);
  9.  
  10.  if ( $v->validate_file("$file") ) {
  11.    if ( !$v->is_valid )
  12.    {
  13.      foreach my $E (@{$v->errors}) {
  14.        next if ($E->msg =~ /not allowed in prolog/);
  15.        next if ($E->msg =~ /Conflict between Mime Type/); #error coming from last.html
  16.        next if ($E->msg =~ /xmlParseEntityRef/); #error I do not understand, link with &
  17.    #    next if ($E->msg =~ /data-dropdown-menu/); #is not a member of a group specified for any attribute (html5)
  18.    #    next if ($E->msg =~ /no attribute \"data/); #html5
  19.    #    next if ($E->msg =~ /aria-label/);  #html5
  20.    #    next if ($E->msg =~ /nav/);  #html5
  21.        printf("\$wims_name_Error: line %d, %s\n", $E->line, $E->msg);
  22.  
  23.      }
  24.      foreach my $E (@{$v->warnings}) {
  25.        next if ($E->msg =~ /character "(&|&)" is the first character of a delimiter but occurred as data/);  ##due to wims
  26.        next if ($E->msg =~ /Conflict between Mime Type/);  #error coming from last.html
  27.        next if ($E->msg =~ /xmlParseEntityRef/); #error I do not understand, link with &
  28.        printf("\$wims_name_warning: line %d, %s\n", $E->line, $E->msg);}
  29.    } else {
  30.      printf("Validation has been done"); }
  31.  } else {
  32.      printf ("Failed to validate the validator $v->uri : %s\n", $v->validator_error);
  33.  }
  34.