W3C home > Mailing lists > Public > www-validator-cvs@w3.org > March 2007

validator/httpd/cgi-bin check,1.480,1.481

From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
Date: Fri, 16 Mar 2007 03:20:19 +0000
To: www-validator-cvs@w3.org
Message-Id: <E1HS2zL-0001Mo-6e@lionel-hutz.w3.org>

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

Modified Files:
	check 
Log Message:
extra output in debug mode

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.480
retrieving revision 1.481
diff -u -d -r1.480 -r1.481
--- check	16 Mar 2007 00:34:17 -0000	1.480
+++ check	16 Mar 2007 03:20:16 -0000	1.481
@@ -610,13 +610,14 @@
 sub parse (\$) {
   my $File = shift;
 
+  # TODO switch parser on the fly
   my $opensp = SGML::Parser::OpenSP->new();
-
+  my $parser_name = "SGML::Parser::OpenSP";
   #
   # By default, use SGML catalog file and SGML Declaration.
   my $catalog  = File::Spec->catfile($CFG->{Paths}->{SGML}->{Library}, 'sgml.soc');
 
-  #
+  # default parsing options
   my @spopt = qw(valid non-sgml-char-ref no-duplicate);
 
   #
@@ -652,7 +653,12 @@
              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 => 'Transfer-Encoding', value => $File->{TransferEnc} },
+             { name => 'Parse Mode', value => $File->{Mode} },
+             { name => 'Parser', value => $parser_name },
+             { name => 'Parser Options', value => join " ", @spopt },
+             
             ],
            );
 
@@ -1114,6 +1120,7 @@
   $File->{Mode}            = $mode;
   $File->{ContentType}     = $ct;
   $File->{ContentEnc}      = $res->content_encoding;
+  $File->{ContentLang}      = $res->content_language;
   $File->{TransferEnc}     = $res->header('Client-Transfer-Encoding');
   $File->{Charset}->{HTTP} = lc $charset;
   $File->{Modified}        = $lastmod;
@@ -1176,6 +1183,8 @@
   $File->{'Is Upload'} = TRUE;
   $File->{'Direct Input'} = TRUE;
   $File->{Charset}->{HTTP} = "utf-8"; # by default, the form accepts utf-8 chars
+  
+  
   return $File;
 }
 
Received on Friday, 16 March 2007 03:20:25 UTC

This archive was generated by hypermail 2.4.0 : Friday, 17 January 2020 23:02:21 UTC