- From: Ville Skytta <ville@dev.w3.org>
- Date: Tue, 08 Jun 2004 19:23:12 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv24060
Modified Files:
checklink
Log Message:
Avoid warning when no realm is given in WWW-Authenticate.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 3.55
retrieving revision 3.56
diff -u -d -r3.55 -r3.56
--- checklink 8 Jun 2004 17:15:02 -0000 3.55
+++ checklink 8 Jun 2004 19:23:10 -0000 3.56
@@ -1391,12 +1391,13 @@
my $r = $_[0];
$r->headers->www_authenticate =~ /Basic realm=\"([^\"]+)\"/;
my $realm = $1;
+ $realm = '' unless defined($realm);
if ($Opts{Command_Line}) {
printf STDERR <<EOF, $r->request()->url(), $realm;
Authentication is required for %s.
-The realm is %s.
+The realm is "%s".
Use the -u and -p options to specify a username and password and the -d option
to specify trusted domains.
EOF
@@ -1412,7 +1413,7 @@
<body>", $DocType, $Head);
&banner(': 401 Authorization Required');
printf("<p>
- You need %s access to <a href=\"%s\">%s</a> to perform link checking.<br>
+ You need \"%s\" access to <a href=\"%s\">%s</a> to perform link checking.<br>
", &encode($realm), (&encode($r->request()->url())) x 2);
if ($Opts{Trusted}) {
Received on Tuesday, 8 June 2004 15:23:12 UTC