W3C home > Mailing lists > Public > www-validator-cvs@w3.org > April 2009

perl/modules/W3C/LinkChecker/bin checklink,4.157,4.158

From: Ville Skytta via cvs-syncmail <cvsmail@w3.org>
Date: Sun, 19 Apr 2009 11:13:25 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1LvUxh-0004pl-D0@lionel-hutz.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 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:55:09 GMT