W3C home > Mailing lists > Public > www-validator-cvs@w3.org > July 2007

perl/modules/W3C/LogValidator/lib/W3C LogValidator.pm,1.19,1.20

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Tue, 17 Jul 2007 04:15:34 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1IAeTG-0008UG-0s@lionel-hutz.w3.org>

Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C
In directory hutz:/tmp/cvs-serv32240

Modified Files:
	LogValidator.pm 
Log Message:
Adding patch provided by Nalin Singapuri, taking into account the presence of full URIs in some log formats (e.g squid reverse proxy). 



Index: LogValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- LogValidator.pm	22 Jun 2006 05:33:40 -0000	1.19
+++ LogValidator.pm	17 Jul 2007 04:15:31 -0000	1.20
@@ -330,7 +330,9 @@
 		{
 			$tmprecord = $record_arry[6];
 			$tmprecord = $self->remove_duplicates($tmprecord);
-			$tmprecord = join ("",'http://',$config{LogProcessor}{ServerName},$tmprecord);
+			if( !( $tmprecord =~ m/^https?\:/ ) ) {
+				$tmprecord = join ("",'http://',$config{LogProcessor}{ServerName},$tmprecord);
+			}
 		}
 	#print "$tmprecord \n" if ($verbose > 2);
 	return $tmprecord;
Received on Tuesday, 17 July 2007 04:15:36 GMT

This archive was generated by hypermail 2.2.0+W3C-0.50 : Thursday, 26 April 2012 12:54:58 GMT