- From: Mercurial notifier <nobody@w3.org>
- Date: Thu, 05 Aug 2010 14:46:53 +0000
- To: link-checker updates <www-validator-cvs@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