validator/httpd/cgi-bin check,1.628,1.629

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

Modified Files:
	check 
Log Message:
gzip requests to validator.nu in non-debug mode if possible (compress-enabled LWP >= 5.817).

Index: check
===================================================================
RCS file: /sources/public/validator/httpd/cgi-bin/check,v
retrieving revision 1.628
retrieving revision 1.629
diff -u -d -r1.628 -r1.629
--- check	4 Jan 2009 21:05:43 -0000	1.628
+++ check	4 Jan 2009 21:52:22 -0000	1.629
@@ -848,6 +848,9 @@
   # Intentionally using direct header access instead of $req->last_modified
   $req->header('Last-Modified', $File->{Modified}) if $File->{Modified};
 
+  # If not in debug mode, gzip the request (LWP >= 5.817)
+  eval { $req->encode("gzip"); } unless $File->{Opt}->{Debug};
+
   my $res = $ua->request($req);
   if (! $res->is_success()) {
     $File->{'Error Flagged'} = TRUE;

Received on Sunday, 4 January 2009 21:52:34 UTC