validator/httpd/cgi-bin check,1.455,1.456

• From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
• Date: Fri, 21 Oct 2005 06:01:15 +0000
• To: www-validator-cvs@w3.org
• Message-Id: <E1ESpxr-0008Ti-QA@lionel-hutz.w3.org>

Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv32574

Modified Files:
	check 
Log Message:
adding soap output - experimental - 

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.455
retrieving revision 1.456
diff -u -d -r1.455 -r1.456
--- check	25 Sep 2005 00:13:33 -0000	1.455
+++ check	21 Oct 2005 06:01:13 -0000	1.456
@@ -283,6 +283,20 @@
   loop_context_vars => TRUE,
   cache             => TRUE,
 );
+my $SOAPT = HTML::Template->new(
+  filename          => File::Spec->catfile($CFG->{Paths}->{Templates},
+                                          $lang, 'soap_output.tmpl'),
+  die_on_bad_params => FALSE,
+  loop_context_vars => TRUE,
+  cache             => TRUE,
+);
+my $SOAPFT = HTML::Template->new(
+  filename          => File::Spec->catfile($CFG->{Paths}->{Templates},
+                                          $lang, 'soap_fault.tmpl'),
+  die_on_bad_params => FALSE,
+  loop_context_vars => TRUE,
+  cache             => TRUE,
+);
 my $EARLT = HTML::Template->new(
   filename          => File::Spec->catfile($CFG->{Paths}->{Templates},
                                           $lang, 'earl_xml.tmpl'),
@@ -638,6 +652,12 @@
   $template = $EARLT;
 } elsif ($File->{Opt}->{Output} eq 'n3') {
   $template = $N3T;
+} elsif ($File->{Opt}->{Output} eq 'soap12') {
+  if ($File->{'Error Flagged'}) {
+    $template = $SOAPFT;
+  } else {
+    $template = $SOAPT;
+  }
 } else {
   $template = $T;
 }

Received on Friday, 21 October 2005 06:01:30 UTC