- From: Olivier Thereaux <ot@hutz.w3.org>
- Date: Wed, 14 Apr 2004 05:53:47 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C
In directory hutz:/tmp/cvs-serv8159/lib/W3C
Modified Files:
LogValidator.pm
Log Message:
adding support for w3 log format
Index: LogValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- LogValidator.pm 28 Mar 2004 19:23:15 -0000 1.5
+++ LogValidator.pm 14 Apr 2004 05:53:43 -0000 1.6
@@ -218,6 +218,18 @@
{
$tmprecord = $record_arry[0];
}
+ elsif ($logtype eq "w3") # our W3C in-house log format
+ {
+ $tmprecord = $record_arry[4];
+ # an oddity of W3C log formats
+ my $serverstring = join ("",'http://',$config{LogProcessor}{ServerName});
+ $tmprecord =~ s/$serverstring//;
+ my $path = $config{LogProcessor}{DocumentRoot};
+ $tmprecord =~ s/$path/\//;
+ $tmprecord = $self->remove_duplicates($tmprecord);
+ $tmprecord = join ("",'http://',$config{LogProcessor}{ServerName},$tmprecord);
+
+ }
else #common combined or full
{
$tmprecord = $record_arry[6];
Received on Wednesday, 14 April 2004 01:53:57 UTC