validator/httpd/cgi-bin check,1.575,1.576

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

Modified Files:
	check 
Log Message:
Include some warning info from LWP in fatal HTTP error messages.

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.575
retrieving revision 1.576
diff -u -d -r1.575 -r1.576
--- check	9 Oct 2007 16:37:05 -0000	1.575
+++ check	19 Oct 2007 19:37:39 -0000	1.576
@@ -1337,10 +1337,14 @@
     } else {
       $File->{'Error Flagged'} = TRUE;
 
+      my $warning = $res->header("Client-Warning");
+      $warning = undef if ($warning && $warning =~ /Internal response/i);
+
       $File->{Templates}->{Error}->param(fatal_http_error => TRUE);
       $File->{Templates}->{Error}->param(fatal_http_uri   => $uri->as_string);
       $File->{Templates}->{Error}->param(fatal_http_code  => $res->code);
       $File->{Templates}->{Error}->param(fatal_http_msg   => $res->message);
+      $File->{Templates}->{Error}->param(fatal_http_warn  => $warning);
       $File->{Templates}->{Error}->param(fatal_http_dns   => TRUE)
         if $res->code == 500;
     }

Received on Friday, 19 October 2007 19:37:48 UTC