UBB.Developers Forums UBB.classic V6.4 - 6.7 Modifications [6.7] [beta] UBB Compression

	if ($cgi_buffer::compress_content) {
		foreach $encoding ('x-gzip', 'gzip') {
			$_ = lc($ENV{'HTTP_ACCEPT_ENCODING'});
			if ( m/$encoding/i && lc($content_type[0]) eq 'text') {
				my $size_normal = length($body);
				$body = Compress::Zlib::memGzip($body);
				my $size_gzip = length($body);
				my $ubb_gzipr = sprintf("%.2f",100-($size_gzip * 100 / $size_normal));
				push @o, "Content-Encoding: $encoding";
				push @o, "Vary: Accept-Encoding";
				push @o, "Set-Cookie: UBBGZIPRATIO=$ubb_gzipr; path=/";
				last;
			}
		}
	}

<script>document.write("Page compression ratio: "+read_cookie('UBBGZIPRATIO'))</script>