- From: Mercurial notifier <nobody@w3.org>
- Date: Thu, 26 Mar 2015 15:51:34 +0000
- To: link-checker updates <www-validator-cvs@w3.org>
changeset: 415:ea3721e298df
user: Yves Lafon <ylafon@w3.org>
date: Thu Mar 26 16:41:55 2015 +0100
files: bin/checklink
description:
use relative URLs
diff -r 7e6d8d569e24 -r ea3721e298df bin/checklink
--- a/bin/checklink Mon Sep 23 16:21:14 2013 +0200
+++ b/bin/checklink Thu Mar 26 16:41:55 2015 +0100
@@ -354,7 +354,9 @@
$Cfg{Markup_Validator_URI} ||= 'http://validator.w3.org/check?uri=%s';
$Cfg{CSS_Validator_URI} ||=
'http://jigsaw.w3.org/css-validator/validator?uri=%s';
- $Cfg{Doc_URI} ||= 'http://validator.w3.org/docs/checklink.html';
+ $Cfg{Doc_URI} ||= 'http://validator.w3.org/checklink/docs/checklink.html';
+ $Cfg{Doc_Base_URI} ||= '/checklink/docs/';
+ $Cfg{Doc_Images_URI} ||= '/checklink/images/';
# Untaint config params that are used as the format argument to (s)printf(),
# Perl 5.10 does not want to see that in taint mode.
@@ -363,8 +365,8 @@
$DocType =
'<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">';
- my $css_url = URI->new_abs('linkchecker.css', $Cfg{Doc_URI});
- my $js_url = URI->new_abs('linkchecker.js', $Cfg{Doc_URI});
+ my $css_url = $Cfg{Doc_Base_URI} . 'linkchecker.css';
+ my $js_url = $Cfg{Doc_Base_URI} . 'linkchecker.js';
$Head =
sprintf(<<'EOF', HTML::Entities::encode($AGENT), $css_url, $js_url);
<meta http-equiv="Content-Script-Type" content="text/javascript" />
@@ -3022,7 +3024,7 @@
my $tagline = "Check links and anchors in Web pages or full Web sites";
printf(
- <<'EOF', URI->new_abs("../images/no_w3c.png", $Cfg{Doc_URI}), $tagline);
+ <<'EOF', $Cfg{Doc_Images_URI} . 'no_w3c.png', $tagline);
<div id="banner"><h1 id="title"><a href="http://www.w3.org/" title="W3C"><img alt="W3C" id="logo" src="%s" width="110" height="61" /></a>
<a href="checklink"><span>Link Checker</span></a></h1>
<p id="tagline">%s</p></div>
@@ -3059,7 +3061,7 @@
$icon_type = 'error';
}
return sprintf('<span class="err_type"><img src="%s" alt="%s" /></span>',
- URI->new_abs("../images/info_icons/$icon_type.png", $Cfg{Doc_URI}),
+ $Cfg{Doc_Images_URI} . 'info_icons/'. $icon_type . '.png',
$icon_type);
}
Received on Thursday, 26 March 2015 15:51:39 UTC