-sub need_gzip {
- my $title = 'gzipped mbox not available';
- my $body = <<EOF;
-<html><head><title>$title</title><body><pre>$title
-The administrator needs to install the Compress::Raw::Zlib Perl module
-to support gzipped mboxes.
-<a href="../">Return to index</a></pre></body></html>
-EOF
-
- [501,[qw(Content-Type text/html Content-Length), bytes::length($body)],
- [ $body ] ];
-}
-