( '-')ノ これなんですが……。
if($COMMAND{'gzip'} eq 'checked'
&& $ENV{'HTTP_ACCEPT_ENCODING'} =~ /gzip/) {
if($ENV{'HTTP_ACCEPT_ENCODING'} =~ /x-gzip/) {
print "Content-encoding: x-gzip\n\n";
} else {
print "Content-type: text/html\n";
print "Content-encoding: gzip\n\n";
}
open(STDOUT, "| /bin/gzip -1 -c");
print "<!-- gzip_ed -->\n";
} else {
print "\n";
print "<!-- no gzip_ed -->\n";
}
http://jo.st22.arena.ne.jp/cgi-bin/strangeworld/getlog2.cgi