Rev 11777 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 11777 | Rev 11781 | ||
|---|---|---|---|
| Line 2... | Line 2... | ||
| 2 | 2 | ||
| 3 | ## validator file validator_uri |
3 | ## validator file validator_uri |
| 4 | my $file = shift(@ARGV); |
4 | my $file = shift(@ARGV); |
| 5 | my $uri = shift(@ARGV); |
5 | my $uri = shift(@ARGV); |
| 6 | use WebService::Validator::HTML::W3C; |
6 | use WebService::Validator::HTML::W3C; |
| 7 | my $v = WebService::Validator::HTML::W3C->new(detailed => 1); |
7 | my $v = WebService::Validator::HTML::W3C->new(detailed => 1) or die "failed to init validator object"; |
| 8 | $v->validator_uri($uri); |
8 | $v->validator_uri($uri); |
| 9 | 9 | ||
| 10 | if ( $v->validate_file("$file") ) { |
10 | if ( $v->validate_file("$file") ) { |
| 11 | if ( !$v->is_valid ) |
11 | if ( !$v->is_valid ) |
| 12 | { |
12 | { |