view release on metacpan or  search on metacpan

Precompress.pm  view on Meta::CPAN

        	return error($r->log,"Error reading from " . $r->filename . ".gz: $gzerrno\n");
		}
        $gz->gzclose();
		undef $gz;
	} 
	else
	{
		$r->content_encoding('gzip');
		$r->send_http_header;
		open(FILE, $r->filename . '.gz') || return NOT_FOUND;
		binmode(FILE);
		while( read(FILE, $buffer, 4096) > 0)
		{
			$r->print($buffer);
		}
		close(FILE);
  	}
	
  return OK;
}

t/01-gzip.t  view on Meta::CPAN

	return 404;
}

Apache::Precompress::handler($request);

# We now have compressed content. Check that it matches the
# file. Decompress here and check that it matches the 
# baseline.

open($fh, '>', $filename);
binmode($fh);
print $fh $data;
close($fh);

# Open the temp file
my $contents = "";
my $buffer;
my $gz = gzopen($filename, "rb") 
            or die(".gz: $gzerrno\n");
while($gz->gzread($buffer,4096) > 0)
{