- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Fri, 16 Mar 2007 03:20:19 +0000
- To: www-validator-cvs@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