sub transform_upload {
my $request = shift;

my $origLen = 0;
my $fh = new File::Temp;
my $filename = $fh->filename;
print "Temp file is $filenamen";
my $cs = gzopen($fh, "wb");
my $request_c = $request->content();
while (my $data = $request_c->()) {
$cs->gzwrite($data);
$origLen += length($data);
}
$cs->gzclose();

$fh = new FileHandle("<$filename");
$request->content(sub {
my $buffer;
if (0 < read $fh, $buffer, 4096) {
return $buffer;
} else {
close $fh;
return undef;
}
});
$request->content_length(-s $filename);
$request->headers->header('X-Uncompressed-Length' => $origLen);
}

Then the CGI script should have the following added before the CGI constructor:-
#
# As apache has nicely uncompressed the content
# it DID NOT change the Content-Length header
# So we use a frig to get round this done by the client
#
$ENV{CONTENT_LENGTH} = $ENV{HTTP_X_UNCOMPRESSED_LENGTH}
if $ENV{HTTP_X_UNCOMPRESSED_LENGTH};

my $q = new CGI;

This ensured the compression is seamless.

If you are a mod_perl2 (or mod_perl) guy, you’ll hit a similar problem to the one you describe.

Make sure to set the content-length (set_content_length) and *do NOT call rflush!!!!*. If you rflush() before or after you print() your content, mod_deflate will drop the content-length header!!

Also, this shows just how complex “simple” protocols like HTTP or MIME have become.