- From: Ville Skytta <ville@dev.w3.org>
- Date: Sat, 13 Nov 2004 15:55:25 +0000
- To: www-validator-cvs@w3.org
Update of /sources/public/validator/httpd/cgi-bin
In directory hutz:/tmp/cvs-serv18401
Modified Files:
check
Log Message:
Canonicalize URIs for output (#786).
Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.357
retrieving revision 1.358
diff -u -d -r1.357 -r1.358
--- check 13 Nov 2004 15:52:36 -0000 1.357
+++ check 13 Nov 2004 15:55:23 -0000 1.358
@@ -1178,7 +1178,7 @@
my $q = shift; # The CGI object.
my $File = shift; # The master datastructure.
- my $uri = new URI (ref $q ? $q->param('uri') : $q);
+ my $uri = new URI (ref $q ? $q->param('uri') : $q)->canonical();
my $ua = new LWP::UserAgent;
$ua->env_proxy();
@@ -1248,7 +1248,7 @@
$File->{Modified} = $lastmod;
$File->{Server} = &ent(scalar $res->server);
$File->{Size} = scalar $res->content_length;
- $File->{URI} = scalar $res->request->uri;
+ $File->{URI} = scalar $res->request->uri->canonical;
$File->{'Is Upload'} = FALSE;
return $File;
Received on Saturday, 13 November 2004 15:55:25 UTC