[CentOS] Openwebmail emergency (Perl)

[David Hrbáč]

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