- From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
- Date: Sun, 19 Apr 2009 11:13:25 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv18563/bin
Modified Files:
checklink
Log Message:
Don't output trusted regex in auth failed message if the hostname matches it, improve error message when it doesn't.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.157
retrieving revision 4.158
diff -u -d -r4.157 -r4.158
--- checklink 19 Apr 2009 10:50:38 -0000 4.157
+++ checklink 19 Apr 2009 11:13:23 -0000 4.158
@@ -1826,10 +1826,12 @@
&status_icon(401),
&encode($realm), (&encode($response->request()->url())) x 2);
- if ($Opts{Trusted}) {
- printf <<EOF, &encode($Opts{Trusted});
+ my $host = $response->request()->url()->host();
+ if ($Opts{Trusted} && $host !~ $Opts{Trusted}) {
+ printf <<EOF, &encode($Opts{Trusted}), &encode($host);
This service has been configured to send authentication only to hostnames
- matching the regular expression <code>%s</code>
+ matching the regular expression <code>%s</code>, but the hostname
+ <code>%s</code> does not match it.
EOF
}
Received on Sunday, 19 April 2009 11:13:34 UTC