W3C home > Mailing lists > Public > www-validator-cvs@w3.org > August 2010

link-checker commit: Make self references in the results work whatever the script name is.

From: Mercurial notifier <nobody@w3.org>
Date: Thu, 05 Aug 2010 14:46:53 +0000
To: link-checker updates <www-validator-cvs@w3.org>
Message-Id: <E1Oh1if-0005Tp-26@blinky.w3.org>
changeset:   13:3df8b2412946
user:        ville
date:        Tue Mar 23 21:29:04 2004 +0000
files:       ChangeLog bin/checklink
description:
Make self references in the results work whatever the script name is.


diff -r aa0b18bcd248 -r 3df8b2412946 ChangeLog
--- a/ChangeLog	Tue Mar 23 20:16:26 2004 +0000
+++ b/ChangeLog	Tue Mar 23 21:29:04 2004 +0000
@@ -1,7 +1,8 @@
 2004-03-23  Ville Skyttä  <ville.skytta@iki.fi>
 
-	* Make markup and CSS validator URIs configurable.
+	* Make markup and CSS validator URIs configurable, and make
+	self references in the results work whatever the script name is.
 
 2004-02-18  Ville Skyttä  <ville.skytta@iki.fi>
 
-	* First CPAN version.
+	* First CPANified version.
diff -r aa0b18bcd248 -r 3df8b2412946 bin/checklink
--- a/bin/checklink	Tue Mar 23 20:16:26 2004 +0000
+++ b/bin/checklink	Tue Mar 23 21:29:04 2004 +0000
@@ -5,7 +5,7 @@
 # (c) 1999-2004 World Wide Web Consortium
 # based on Renaud Bruyeron's checklink.pl
 #
-# $Id: checklink,v 3.10 2004-03-23 20:16:26 ville Exp $
+# $Id: checklink,v 3.11 2004-03-23 21:29:04 ville Exp $
 #
 # This program is licensed under the W3C(r) Software License:
 #       http://www.w3.org/Consortium/Legal/copyright-software
@@ -88,7 +88,7 @@
   $PROGRAM       = 'W3C checklink';
   ($AGENT        = $PROGRAM) =~ s/\s+/-/g;
   $VERSION       = '3.9.1';
-  ($CVS_VERSION) = q$Revision: 3.10 $ =~ /(\d+[\d\.]*\.\d+)/;
+  ($CVS_VERSION) = q$Revision: 3.11 $ =~ /(\d+[\d\.]*\.\d+)/;
   $REVISION      = sprintf('version %s [%s] (c) 1999-2004 W3C',
                            $VERSION, $CVS_VERSION);
 
@@ -235,6 +235,7 @@
   $Opts{Verbose}   = 0;
   $Opts{Progress}  = 0;
   $Opts{HTML}      = 1;
+  $Opts{_Self_URI} = $query->url(-relative => 1);
 
   # Backwards compatibility
   if ($query->param('hide_dir_redirects')) {
@@ -542,9 +543,10 @@
       printf("<p>For reliable link checking results, check
 <a href=\"%s\">HTML validity</a> first.  See also
 <a href=\"%s\">CSS validity</a>.</p>
-<p>Back to the <a href=\"checklink\">link checker</a>.</p>\n",
+<p>Back to the <a href=\"%s\">link checker</a>.</p>\n",
              &encode(sprintf($Cfg{Markup_Validator_URI}, $esc_uri)),
-             &encode(sprintf($Cfg{CSS_Validator_URI}, $esc_uri)));
+             &encode(sprintf($Cfg{CSS_Validator_URI}, $esc_uri)),
+             &encode($Opts{_Self_URI}));
       print("<pre>\n");
     }
   }
Received on Thursday, 5 August 2010 14:46:55 UTC

This archive was generated by hypermail 2.3.1 : Wednesday, 7 January 2015 15:17:43 UTC