- From: Ville Skytta <ville@dev.w3.org>
- Date: Sun, 07 Nov 2004 10:23:46 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LinkChecker/bin
In directory hutz:/tmp/cvs-serv17501
Modified Files:
checklink
Log Message:
Remove CVS revision from user visible version strings to make them less scary.
Add meta generator tag to emitted HTML containing the full user agent string.
Index: checklink
===================================================================
RCS file: /sources/public/perl/modules/W3C/LinkChecker/bin/checklink,v
retrieving revision 4.10
retrieving revision 4.11
diff -u -d -r4.10 -r4.11
--- checklink 7 Nov 2004 09:47:43 -0000 4.10
+++ checklink 7 Nov 2004 10:23:44 -0000 4.11
@@ -106,14 +106,13 @@
BEGIN
{
# Version info
- $PACKAGE = 'W3C Link Checker';
- $PROGRAM = 'W3C-checklink';
- $VERSION = '4.0';
- my ($cvsver) = q$Revision$ =~ /(\d+[\d\.]*\.\d+)/;
- $REVISION = sprintf('version %s [%s] (c) 1999-2004 W3C',
- $VERSION, $cvsver);
- $AGENT = sprintf('%s/%s [%s] %s',
- $PROGRAM, $VERSION, $cvsver,LWP::RobotUA->_agent());
+ $PACKAGE = 'W3C Link Checker';
+ $PROGRAM = 'W3C-checklink';
+ $VERSION = '4.0';
+ $REVISION = sprintf('version %s (c) 1999-2004 W3C', $VERSION);
+ my ($cvsver) = q$Revision$ =~ /(\d+[\d\.]*\.\d+)/;
+ $AGENT = sprintf('%s/%s [%s] %s',
+ $PROGRAM, $VERSION, $cvsver, LWP::RobotUA->_agent());
# Pull in mod_perl modules if applicable.
if ($ENV{MOD_PERL}) {
@@ -163,9 +162,10 @@
'http://validator.w3.org/docs/linkchecker.css';
$DocType = '<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN">';
- $Head = <<EOF;
+ $Head = sprintf(<<'EOF', HTML::Entities::encode($AGENT), $Cfg{Style_URI});
<meta http-equiv="Content-Script-Type" content="text/javascript">
-<link rel="stylesheet" type="text/css" href="$Cfg{Style_URI}">
+<meta name="generator" content="%s">
+<link rel="stylesheet" type="text/css" href="%s">
EOF
# Trusted environment variables that need laundering in taint mode.
Received on Sunday, 7 November 2004 10:23:47 UTC