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

perl/modules/W3C/LogValidator/lib/W3C/LogValidator CSSValidator.pm,1.13,1.14

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Fri, 29 Jul 2005 01:39:25 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1DyJqP-0006Mw-NL@lionel-hutz.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 GMT

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