[CentOS] Openwebmail emergency (Perl)
David Hrbáč
hrbac.conf at seznam.cz
Tue Oct 12 07:29:50 UTC 2010
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
More information about the CentOS
mailing list