- From: Olivier Thereaux <ot@dev.w3.org>
- Date: Mon, 07 Jun 2004 14:25:56 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv2215
Modified Files:
Basic.pm
Log Message:
Basic module is a non-validating module => changing it to use MaxDocuments instead of MaxInvalid as limit of documents to be processed
Index: Basic.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/Basic.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -d -r1.3 -r1.4
--- Basic.pm 26 Aug 2003 20:06:07 -0000 1.3
+++ Basic.pm 7 Jun 2004 14:25:54 -0000 1.4
@@ -52,6 +52,12 @@
{
my $self = shift;
my $max_invalid = undef;
+ my $max_documents = undef;
+ if (exists $config{MaxDocuments}) {$max_documents = $config{MaxDocuments}}
+ else {$max_documents = 0}
+
+# This basic module does not actually "validates"
+# so MaxInvalid is not relevant... Keeping it anyway
if (exists $config{MaxInvalid}) {$max_invalid = $config{MaxInvalid}}
else {$max_invalid = 0}
my $name = "";
@@ -75,7 +81,7 @@
push @result_head, "Hits";
push @result_head, "Address";
my $census = 0;
- while ( (@uris) and (($census < $max_invalid) or (!$max_invalid)) )
+ while ( (@uris) and (($census < $max_documents) or (!$max_documents)) )
{
my $uri = shift (@uris);
chomp ($uri);
@@ -122,10 +128,10 @@
use W3C::LogValidator::Basic;
my $validator = new W3C::LogValidator::Basic;
- my $max_invalid = 12;
+ my $max_documents = 12;
# how many log entries are parsed and returned before we stop
# 0 -> processes everything
- my $result_string= $validator->process_list($max_invalid);
+ my $result_string= $validator->process_list($max_documents);
=head1 DESCRIPTION
Received on Monday, 7 June 2004 10:25:56 UTC