diff options
| author | hugo <hugo@localhost> | 2000-02-10 23:03:16 +0000 |
|---|---|---|
| committer | hugo <hugo@localhost> | 2000-02-10 23:03:16 +0000 |
| commit | 6b7b44ed0e042eefd31039090b8b50dd42a87f88 (patch) | |
| tree | 900030af05235c9c0d013922d44a1722797cca2d | |
| parent | be69826ff751c99d109af3b4d97728a16f424208 (diff) | |
| download | markup-validator-6b7b44ed0e042eefd31039090b8b50dd42a87f88.zip markup-validator-6b7b44ed0e042eefd31039090b8b50dd42a87f88.tar.gz markup-validator-6b7b44ed0e042eefd31039090b8b50dd42a87f88.tar.bz2 | |
Fixed nasty bug: when providing authentication information, 401's were not reported.
| -rwxr-xr-x | httpd/cgi-bin/LinkChecker.pl | 7 | ||||
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 7 |
2 files changed, 10 insertions, 4 deletions
diff --git a/httpd/cgi-bin/LinkChecker.pl b/httpd/cgi-bin/LinkChecker.pl index 514a2ba..d0ef45c 100755 --- a/httpd/cgi-bin/LinkChecker.pl +++ b/httpd/cgi-bin/LinkChecker.pl @@ -5,7 +5,7 @@ # (c) 1999-2000 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: LinkChecker.pl,v 1.30 2000-02-09 15:41:34 hugo Exp $ +# $Id: LinkChecker.pl,v 1.31 2000-02-10 23:03:16 hugo Exp $ # # This program is licensed under the W3C(r) License. # @@ -29,7 +29,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C LinkChecker'; -my $VERSION = q$Revision: 1.30 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 1.31 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # State of the program @@ -345,6 +345,9 @@ sub check_uri() { } if ($results{$u}{$u}{success}) { my $fragment; + if ($results{$u}{$u}{display} >= 400) { + $broken{$u}{$u} = 1; + } foreach $fragment (keys %{$links{$u}}) { next if ($fragment eq $u); if ($_verbose) { diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index de38429..7791807 100755 --- a/httpd/cgi-bin/checklink.pl +++ b/httpd/cgi-bin/checklink.pl @@ -5,7 +5,7 @@ # (c) 1999-2000 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink.pl,v 2.30 2000-02-09 15:41:34 hugo Exp $ +# $Id: checklink.pl,v 2.31 2000-02-10 23:03:16 hugo Exp $ # # This program is licensed under the W3C(r) License. # @@ -29,7 +29,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C checklink'; -my $VERSION = q$Revision: 2.30 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 2.31 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # State of the program @@ -345,6 +345,9 @@ sub check_uri() { } if ($results{$u}{$u}{success}) { my $fragment; + if ($results{$u}{$u}{display} >= 400) { + $broken{$u}{$u} = 1; + } foreach $fragment (keys %{$links{$u}}) { next if ($fragment eq $u); if ($_verbose) { |