Index: check =================================================================== RCS file: /home/cvs/W3C/validator/httpd/cgi-bin/check,v retrieving revision 1.1.1.2 retrieving revision 1.5 diff -r1.1.1.2 -r1.5 13d12 < use LWP::UserAgent; 14a14,16 > use LWP::UserAgent; > use URI::Escape; > use CGI qw(:cgi -newstyle_urls -private_tempfiles); 45,46c47 < my ( $uri, < $validity, $version, $document_type, $xmlflags, %FORM, %undef_frag, --- > my ($validity, $version, $document_type, $xmlflags, %undef_frag, 51c52 < $pedantic_blurb, $level, $prevlevel, $i, $prevdata ); --- > $pedantic_blurb, $level, $prevlevel, $i, $prevdata); 58,59c59 < my $html32_doctype = < qq{}; --- > my $html32_doctype = qq{}; 167,175c167,191 < # accept either check/foo or check?foo < my $parameters = $ENV{PATH_INFO} || $ENV{QUERY_STRING}; < < if ( ! $parameters ) { < &redirect_to_home_page; < } < < my $pair; < foreach $pair (split(/[&;,]/, $parameters)) { --- > # > # Create a new CGI object. > my $q = new CGI; > > # > # Futz the URI so "/referer" works. > if ($q->path_info eq '/referer') { > $q->param('uri', $q->referer); > } > > # > # Use "url" unless a "uri" was also given. > if ($q->param('url') and not $q->param('uri')) { > $q->param('uri', $q->param('url')); > } > > # > # Send them to the homepage unless we can extract a URI from either of the > # acceptable sources: uri, url or /referer. > &redirect_to_home_page unless $q->param('uri'); > > # > # Munge the URI to include commonly omitted prefixes/suffixes. > $q->param('uri', $q->param('uri') . '/') unless $q->param('uri') =~ m(/); > $q->param('uri', 'http://' . $q->param('uri')) if $q->param('uri') =~ m(^www)i; 177,207d192 < # this referer handling probably needs fixing to handle strange cases < # (possibly tied to the explanation given when connections fail; < # the referer could be on an intranet, etc.) < < if ( $pair eq "/referer" && $ENV{HTTP_REFERER} =~ m,^http://, ) { < $FORM{uri} = $ENV{HTTP_REFERER}; < next; < } < < my ($name, $value) = split(/=/, $pair); < $value =~ tr/+/ /; < $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; < < $FORM{$name} = $value || "true"; < } < < # accept "url=foo" for backwards compatibility (but uri=foo is preferred) < $uri = URI::URL->new($FORM{uri} || $FORM{url}); < < if ( ( $uri eq "true" || length( $uri ) == 0 ) && < ( $ENV{REQUEST_URI} =~ /check/ ) ) { < &redirect_to_home_page; < } < < if ( $uri !~ /\// ) { < $uri .= "/"; < } < < if ( $uri =~ /^www/i ) { < $uri = "http://$uri"; < } 217c202,206 < --- > > > W3C HTML Validation Service Results > > 219,232c208,209 < < W3C HTML Validation Service Results < < < < < <

< W3C <

< <

W3C HTML Validation Service Results

--- > >

W3C HTML Validation Service Results

237c214 < if ( $uri !~ m#^http://# ) { --- > unless($q->param('uri') =~ m(^http://)) { 265c242 < my $request = new HTTP::Request(GET => $uri); --- > my $request = new HTTP::Request(GET => $q->param('uri')); 277d253 < my $optionstring = &build_options; 287,288c263,264 < &print_unknown_http_error_message( $uri, $response->code, < $response->message ); --- > &print_unknown_http_error_message($q->param('uri'), $response->code, > $response->message); 307c283 < Sorry, I can't validate this document because its returned --- > Sorry, I am unable to validate this document because its returned 377c353,354 < print qq{