- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Fri, 29 Jul 2005 01:39:25 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator
In directory hutz:/tmp/cvs-serv23657/lib/W3C/LogValidator
Modified Files:
CSSValidator.pm
Log Message:
Making the server used by the CSS validator module a configurable option.
Index: CSSValidator.pm
===================================================================
RCS file: /sources/public/perl/modules/W3C/LogValidator/lib/W3C/LogValidator/CSSValidator.pm,v
retrieving revision 1.13
retrieving revision 1.14
diff -u -d -r1.13 -r1.14
--- CSSValidator.pm 12 Nov 2004 07:10:47 -0000 1.13
+++ CSSValidator.pm 29 Jul 2005 01:39:23 -0000 1.14
@@ -45,6 +45,9 @@
{
$self->{AUTH_EXT} = ".css";
}
+ $config{ValidatorHost} = "jigsaw.w3.org" if (! exists $config{ValidatorHost});
+ $config{ValidatorPort} = "80" if (!exists $config{ValidatorPort});
+ $config{ValidatorString} = "/css-validator/validator" if (!exists $config{ValidatorString});
bless($self, $class);
return $self;
}
@@ -227,6 +230,8 @@
$total_census++;
print " processing #$total_census $uri... " if ($verbose > 1);
my $val = WebService::Validator::CSS::W3C->new;
+ my $cssvalidator_server=join ("", "http://",$config{ValidatorHost},":",$config{ValidatorPort}, $config{ValidatorString}
+ $val->validator_uri($cssvalidator_server);
$val->validate(uri => $uri);
$self->valid_success($val->success);
$self->valid($val->is_valid);
Received on Friday, 29 July 2005 01:39:30 UTC