<?
  $logdir
="./log/";
//  $suf=".dat";
  
$jisa 0;
extract($_SERVER);
    
$now mktime()+$jisa*60*60;
    
$now_date date"Y/m/d [D] H:i:s",mktime()+$jisa*60*60);
    
$prefix date"Y_m",mktime()+$jisa*60*60);

    
$host=$REMOTE_HOST;
    
$addr=$REMOTE_ADDR;
    if ((
$host == $addr || $host == "") && isset($addr))
        
$host gethostbyaddr($addr);

    
$agent=$HTTP_USER_AGENT;
    
$agent=ereg_replace("\t"""$agent);

    
$ref=$HTTP_REFERER;
    if(
$ref==""
        
$ref="none";
    else
        
$ref urldecode($ref);
        
$ref=ereg_replace("\t"""$ref);

    
$log=$logdir $prefix $suf;
    
$data="$now\t$now_date\t$host\t$agent\t$ref\n";

    
$fp fopen($log,"a");
    
fputs($fp$data);
    
fclose($fp);
?>