使用php4加速网络传输

标题: 使用php4加速网络传输。

<?
/***************************************
** Title.........: PHP4 HTTP Compression Speeds up the Web
** Version.......: 1.10
** Author........: catoc <catoc@163.net>
** Filename......: gzdoc.php
** Last changed..: 25/08/2000
** Requirments...: PHP4 >= 4.0.1
** PHP was configured with --with-zlib[=DIR]
** Notes.........: Dynamic Content Acceleration compresses
** the data transmission data on the fly
** code by sun jin hu (catoc) <catoc@163.net>
** Most newer browsers since 1998/1999 have
** been equipped to support the HTTP 1.1
** standard known as "content-encoding."
** Essentially the browser indicates to the
** server that it can accept "content encoding"
** and if the server is capable it will then
** compress the data and transmit it. The
** browser decompresses it and then renders
** the page.
** Useage........:
** No space before the beginning of the first '<?' tag
.
** ------------Start of file----------
** |<?
** | include('gzdoc.php');
** | print "Start output !!";
** |?>
** |<HTML>
** |... the page ...
** |</HTML>
** |<?
** | gzdocout();
** |?>
** -------------End of file-----------
***************************************/
ob_start();
ob_implicit_flush(0);
function GetHeader(){
 $headers = getallheaders();
 while (list($header, $value) = each($headers)) {
 $Message .= "$header: $value ";
 }
 return $Message;
}
function CheckCanGzip(){
 global $HTTP_ACCEPT_ENCODING, $PHP_SELF, $Wget, $REMOTE_ADDR,
$S_UserName;
 if (connection_timeout() || connection_aborted()){
 return 0;
 }
 if ((strpos('catoc'.$HTTP_ACCEPT_ENCODING, 'gzip')) || $Wget =
= 'Y'){
 if (strpos('catoc'.$HTTP_ACCEPT_ENCODING, 'x-gzip')){

 $ENCODING = "x-gzip";
 $Error_Msg = str_replace(' ','',GetHeader()
);
 $Error_Msg .= "Time: ".date("Y-m-d H:i:s")."
";
 $Error_Msg .= "Remote-Address: ".$REMOTE_ADDR.
" ";
 //mail('your@none.net', "User have x-gzip outp
ut in file $PHP_SELF!!!", $Error_Msg);
 }else{
 $ENCODING = "gzip";
 }
 return $ENCODING;
 }else{
 return 0;
 }
}
function GzDocOut(){
 global $PHP_SELF, $CatocGz, $REMOTE_ADDR, $S_UserName;
 $ENCODING = CheckCanGzip();
 if ($ENCODING){
 print "  ";
 $Contents = ob_get_contents();
 ob_end_clean();
 if ($CatocGz == 'Y'){
 print "Not compress lenth: ".strlen($Contents)
." ";
 print "Compressed lenth: ".strlen(gzcompress($
Contents))." ";
 exit;
 }else{
 header("Content-Encoding: $ENCODING");
 }
 print pack('cccccccc',0x1f,0x8b,0x08,0x00,0x00,0x00,0x
00,0x00);
 $Size = strlen($Contents);
 $Crc = crc32($Contents);
 $Contents = gzcompress($Contents);
 $Contents = substr($Contents, 0, strlen($Contents) - 4
);
 print $Contents;
 print pack('V',$Crc);
 print pack('V',$Size);
 exit;
 }else{
 ob_end_flush();
 $Error_Msg = str_replace(' ','',GetHeader());
 $Error_Msg .= "Time: ".date("Y-m-d H:i:s")." ";
 $Error_Msg .= "Remote-Address: ".$REMOTE_ADDR." ";
 //mail('your@none.net', "User can not use gzip output
in file $PHP_SELF!!!", $Error_Msg);
 exit;
 }
}
?>