- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Thu, 20 Oct 2005 05:54:32 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/perl/modules/WebService/Validator/CSS/lib/WebService/Validator/CSS
In directory hutz:/tmp/cvs-serv21807/lib/WebService/Validator/CSS
Modified Files:
W3C.pm
Log Message:
The CSS validator now properly outputs SOAP faults if validation could
not be performed (e.g illformed xml). Removing workaround for lack of fault.
Index: W3C.pm
===================================================================
RCS file: /sources/public/perl/modules/WebService/Validator/CSS/lib/WebService/Validator/CSS/W3C.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- W3C.pm 20 Oct 2005 03:17:28 -0000 1.4
+++ W3C.pm 20 Oct 2005 05:54:30 -0000 1.5
@@ -64,10 +64,7 @@
local $_ = $res->content;
- # workaround for http://www.w3.org/Bugs/Public/show_bug.cgi?id=751
- # workaround for http://www.w3.org/Bugs/Public/show_bug.cgi?id=757
- return 0 if /<html/ || not m{http://www.w3.org/2003/05/soap-envelope};
-
+
# workaround for SOAP::Lite's lack of support for SOAP 1.2
s{xmlns:env="http://www.w3.org/2003/05/soap-envelope"}
{xmlns:env="http://www.w3.org/2001/06/soap-envelope"};
@@ -94,8 +91,12 @@
# check whether this is really the CSS Validator responding
if ($som->match("/Envelope/Body/cssvalidationresponse")) {
$self->{'success'} = 1;
- }
-
+ }
+ # if the response was a SOAP fault
+ elsif ($som->match("/Envelope/Body/Fault")) {
+ $self->{'success'} = 0;
+ }
+
# return whether the response was successfully processed
return $self->{'success'};
}
Received on Thursday, 20 October 2005 05:54:35 UTC