Re: Gzip compression for dynamically generated content

[prev] [thread] [next] [Date index for 2004/11/26]

Hi Alex,


> Can anyone shed any light on this, or suggest an alternative way to 
> dynamically compress the output from mod_perl?

We are using Compress::Zlib

use Compress::Zlib

my $compress = Compress::Zlib::memGzip($output);
my $length   = length($compress);

my $header = "Content-Type: text/html\n";
$header .= "Content-Encoding: gzip\n";
$header .= "Content-Length: $length\n";
$header .= "Cache-Control: max-age=1\n";
$header .= "Expires: $now\n";
$header .= "Last-Modified: $now\n\n";

if ( $ENV{HTTP_ACCEPT_ENCODING} =~ /gzip/o && $length_output > 200 )  {

	print $header;
	print $compress;

} else {
	
	# Normal Header
	print $output;
}

Regards,
Jens


        -- 
        Lieber von Picasso gemalt als vom Leben gezeichnet

E-Mail:   jens.gassmann@xxxxxx.xx
NEU:	  http://www.atomix.de/
AISware:  http://www.aisware.de/ <- mod_perl CMS


-- 
Report problems: http://perl.apache.org/bugs/
Mail list info: http://perl.apache.org/maillist/modperl.html
List etiquette: http://perl.apache.org/maillist/email-etiquette.html