adding soap output - experimental -

1 files changed, 22 insertions, 2 deletions

diff --git a/httpd/cgi-bin/check b/httpd/cgi-bin/check
index 95dc1dd..4cb877b 100755
--- a/httpd/cgi-bin/check
+++ b/httpd/cgi-bin/check
@@ -9,7 +9,7 @@
 # This source code is available under the license at:
 #     http://www.w3.org/Consortium/Legal/copyright-software
 #
-# $Id: check,v 1.455 2005-09-25 00:13:33 bjoern Exp $
+# $Id: check,v 1.456 2005-10-21 06:01:13 ot Exp $
 
 #
 # Disable buffering on STDOUT!
@@ -175,7 +175,7 @@ Directory not readable (permission denied): @_r
 
   #
   # Strings
-  $VERSION =  q$Revision: 1.455 $;
+  $VERSION =  q$Revision: 1.456 $;
   $VERSION =~ s/Revision: ([\d\.]+) /$1/;
 
   #
@@ -283,6 +283,20 @@ my $XMLT = HTML::Template->new(
   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 @@ if ($File->{Opt}->{Output} eq 'xml') {
   $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;
 }