validator/httpd/cgi-bin check,1.529,1.530

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

Modified Files:
	check 
Log Message:
adding debug info to soap output. Useful for automation of test suite.



Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.529
retrieving revision 1.530
diff -u -d -r1.529 -r1.530
--- check	28 Jun 2007 00:13:26 -0000	1.529
+++ check	28 Jun 2007 06:01:50 -0000	1.530
@@ -757,6 +757,22 @@
 
             ],
            );
+   $File->{Templates}->{SOAP}->param(opt_debug => $DEBUG);
+   $File->{Templates}->{SOAP}->param(debug =>
+             [
+              map({name => $_, value => $ENV{$_}},
+                qw(no_proxy http_proxy https_proxy ftp_proxy FTP_PASSIVE)),
+              { name => 'Content-Encoding',  value => $File->{ContentEnc} },
+              { name => 'Content-Language', value => $File->{ContentLang} },
+              { name => 'Content-Location', value => $File->{ContentLoc} },
+              { name => 'Transfer-Encoding', value => $File->{TransferEnc} },
+              { name => 'Parse Mode', value => $File->{Mode} },
+              { name => 'Parse Mode Factor', value => $File->{ModeChoice} },
+              { name => 'Parser', value => $parser_name },
+              { name => 'Parser Options', value => join " ", @spopt },
+
+             ],
+            );
 
   my $h = W3C::Validator::SAXHandler->new($opensp, $File);