NAME
CGI::Gzip - CGI with automatically compressed output
SYNOPSIS
use CGI::Gzip;
my $cgi = new CGI::Gzip;
print $cgi->header();
print "<html> ...";DESCRIPTION
CGI::Gzip extends the CGI class to auto-detect whether the client browser wants compressed output and, if so and if the script chooses HTML output, apply gzip compression on any output. This module is intended to be a drop-in replacement for CGI.pm in a typical scripting environment.
Apache mod_perl users may wish to consider the Apache::Compress or Apache::GzipChain modules, which allow more transparent output compression than this module can provide.
Headers
At the time that a header is requested, CGI::Gzip checks the HTTP_ACCEPT_ENCODING environment variable (passed by Apache). If this variable includes the flag "gzip" and the mime-type is "text/html", then gzipped output is prefered. The header is altered to add the "Content-Encoding: gzip" flag compression is turned on.
Naturally, it is crucial that the CGI application output nothing before the header is printed. If this is violated, things will go badly.
Compression
When the header is created, this module sets up a new filehandle to accept data. The Perl select() function is used to direct all print() calls which lacka filehandle argument (i.e. those which would normally go to STDOUT) to this filehandle. The new filehandle passes data verbatim until it detects the end of the CGI header. At that time, it switches over to Gzip output for the remainder of the CGI run.
CLASS METHODS
- new <CGI-ARGS>
-
Create a new object. This resets the environment before creating a CGI.pm object. This should not be called more than once per script run! All arguments are passed to the parent class.
- useCompression 1|0
-
Turn compression on/off for all CGI::Gzip objects. If turned on, compression will be used only if the prerequisite compression libraries are available and if the client browser requests compression.
INSTANCE METHODS
- header HEADER-ARGS
-
Return a CGI header with the compression flags set properly. Returns an empty string is a header has already been printed.
This method engages the Gzip output by fiddling with the default output filehandle. All subsequent output via usual Perl print() will be automatically gzipped except for this header (which must go out as plain text).
Any arguments will be passed on to CGI::header. This method should NOT be called if you don't want your header or STDOUT to be fiddled with.
- DESTROY
-
Override the CGI destructor so we can close the Gzip output stream, if there is one open.
HELPER CLASS
CGI::Gzip also implements a helper class in package my::Zlibwrapper which subclasses IO::Zlib. This helper is needed to make sure that output is not compressed util the CGI header is emitted. This wrappers delays the ignition of the zlib filter until it sees the exact same header generated by CGI::Gzip::header() pass through it's WRITE() method. If you change the header before printing it, this class will throw an exception.
This class hold one global variable representing the previous default filehandle used before the gzip filter is put in place. This filehandle, usually STDOUT, is replaced after the gzip stream finishes (which is usually when the CGI object goes out of scope and is destroyed).
TO DO
* Improve the header mangling code
* Test in mod_perl or FastCGI environments
* Clean up the filehandle manipulation in _startCompression() since the effects of my experimentation are still apparent.
* Test under Perl versions earlier than 5.8.0
* Handle errors more gracefully in WRITE()
SEE ALSO
CGI::Gzip depends on CGI and IO::Zlib. Related functionality is available from Apache::Compress or Apache::GzipChain.
AUTHOR
Chris Dolan, Clotho Advanced Media, chris@clotho.com
LICENSE
GPL v2, see the COPYING file in this distribution.