W3C home > Mailing lists > Public > www-validator-cvs@w3.org > November 2004

perl/modules/W3C/LinkChecker/bin checklink,4.10,4.11

From: Ville Skytta <ville@dev.w3.org>
Date: Sun, 07 Nov 2004 10:23:46 +0000
To: www-validator-cvs@w3.org
Message-ID: <E1CQkD4-0004ZD-SO@lionel-hutz.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

This archive was generated by hypermail 2.4.0 : Friday, 17 January 2020 23:02:08 UTC