- From: Olivier Thereaux via cvs-syncmail <cvsmail@w3.org>
- Date: Mon, 30 Jun 2008 18:45:59 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv14467/httpd/cgi-bin
Modified Files:
check
Log Message:
adding param for user-agent + escaping input for all the params that affect HTTP headers
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.589
retrieving revision 1.590
diff -u -d -r1.589 -r1.590
--- check 20 Jun 2008 08:51:01 -0000 1.589
+++ check 30 Jun 2008 18:45:56 -0000 1.590
@@ -446,9 +446,20 @@
$File->{Opt}->{'Prefill'} = $q->param('prefill') ? TRUE : FALSE;
$File->{Opt}->{'Prefill Doctype'} = $q->param('prefill_doctype') ? $q->param('prefill_doctype') : 'html401';
+$File->{Opt}->{'User Agent'} = $q->param('user-agent') && $q->param('user-agent') ne 1 ? $q->param('user-agent') : "W3C_Validator/$VERSION";
+$File->{Opt}->{'User Agent'} =~ tr/\x00-\x09\x0b\x0c-\x1f//d;
+
+if ($File->{Opt}->{'User Agent'} eq 'mobileok') {
+ $File->{Opt}->{'User Agent'} = 'W3C-mobileOK/DDC-1.0 (see http://www.w3.org/2006/07/mobileok-ddc)';
+}
+
+
$File->{Opt}->{'Accept Header'} = $q->param('accept') ? $q->param('accept') : '';
+$File->{Opt}->{'Accept Header'} =~ tr/\x00-\x09\x0b\x0c-\x1f//d;
$File->{Opt}->{'Accept-Language Header'} = $q->param('accept-language') ? $q->param('accept-language') : '';
+$File->{Opt}->{'Accept-Language Header'} =~ tr/\x00-\x09\x0b\x0c-\x1f//d;
$File->{Opt}->{'Accept-Charset Header'} = $q->param('accept-charset') ? $q->param('accept-charset') : '';
+$File->{Opt}->{'Accept-Charset Header'} =~ tr/\x00-\x09\x0b\x0c-\x1f//d;
#
# "Fallback" info for Character Encoding (fbc), Content-Type (fbt),
@@ -1126,7 +1137,9 @@
if ($File->{Opt}->{'Accept-Charset Header'}) {
$T->param('accept-charset' => $File->{Opt}->{'Accept-Charset Header'});
}
-
+ if ($File->{Opt}->{'User Agent'}) {
+ $T->param('user-agent' => $File->{Opt}->{'User Agent'});
+ }
if ($File->{'Error Flagged'}) {
$T->param(fatal_error => TRUE);
}
@@ -1324,7 +1337,7 @@
my $ua = new W3C::Validator::UserAgent ($CFG, $File);
$ua->env_proxy();
- $ua->agent("W3C_Validator/$VERSION");
+ $ua->agent($File->{Opt}->{'User Agent'});
$ua->parse_head(0); # Don't parse the http-equiv stuff.
$ua->protocols_allowed($CFG->{Protocols}->{Allow} || ['http', 'https']);
Received on Monday, 30 June 2008 18:46:32 UTC