- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Tue, 17 Jul 2007 04:15:34 +0000
- To: www-validator-cvs@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 UTC