Dne 12.10.2010 9:10, Jussi Hirvi napsal(a):
sub httpprint { my ($r_headers, $r_htmls)=@_; if (is_http_compression_enabled()) { my $zhtml=Compress::Zlib::memGzip(join('',@{$r_htmls})); if ($zhtml ne '') { print httpheader(@{$r_headers}, '-Content-Encoding'=>'gzip', '-Vary'=>'Accept-Encoding', '-Content-Length'=>length($zhtml)), $zhtml; return; } } my $len; foreach (@{$r_htmls}) { $len+=length($_); } print httpheader(@{$r_headers}, '-Content-Length'=>$len), @{$r_htmls}; return; }
1) Does it include: use Compress::Zlib; 2) What repo are you using for Openwebmail? 3) You can always use temp hack - disbale gzip - "is_http_compression_enabled()".... DH