gzip圧縮転送

gzip 圧縮転送を使用すると、転送効率が上がるらしい。
このサーバでは gzip のパスが通っているので下記のソースで動作した。
この Wiki システムににも組み込んでみたが、そもそもコンテンツが軽いのでそんなに変わらないか？

# 12:25 2004/11/03 gzip圧縮対応
my $gzip = 'gzip';
print "Content-type: text/html; charset=$charset\n";
if($ENV{'HTTP_ACCEPT_ENCODING'} =~ /gzip/ && $gzip ne ''){  
  if($ENV{'HTTP_ACCEPT_ENCODING'} =~ /x-gzip/){
    print "Content-encoding: x-gzip\n\n";
  }else{
    print "Content-encoding: gzip\n\n";
  }
  open(STDOUT,"| $gzip -1 -c");
}else{
  print "\n";
}