$log="contador.txt"; //arquivo q armazena numero de acessos.
$open=@fopen($log,'r');
$counter=@fread($open,filesize($log));
@fclose($open);
$counter++;
$write=fopen($log,'w');
fputs($write,$counter);
fclose($write);
$ip = getenv( REMOTE_ADDR );
if ($ip == "200.220.209.130 "){
$ip = "»» (Acessototal) ";
} else if ($ip == "200.220.210.145"){
$ip = "»» (UniNetworks)";
}
$porta = getenv( SERVER_PORT );
$PRO = getenv( SERVER_PROTOCOL);
$browser = getenv( HTTP_USER_AGENT);
$servidor = getenv( HTTP_REFERER );
$diaehora = date("j/m/y h:i" );
$os = "WINDOWS";
#VERIFICAÇÃO DO SO
if ($browser == "Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.0)"){
$browser = "INTERNET EXPLORER 6.0";
$os = "WINDOWS 2000/NT";
}else if ($browser == "Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0)"){
$browser = "INTERNET EXPLORER 5.0";
$os = "WINDOWS 2000/NT";
}else if ($browser == "Mozilla/4.51 [pt] (WinNT; I)"){
$browser = "NETSCAPE 4.51";
$os = "WINDOWS 2000/NT";
}else if ($browser == "Mozilla/4.77 [pt] (WinNT; I)"){
$browser = "NETSCAPE 4.77";
$os = "WINDOWS 2000/NT";
}else if ($browser == "Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)"){
$browser = "INTERNET EXPLORER 5.0";
$os = "WINDOWS 98";
}else if ($browser == "Mozilla/4.0 (compatible; MSIE 6.0; Windows 98; DigExt)"){
$browser = "INTERNET EXPLORER 6.0";
$os = "WINDOWS 98";
}else if ($browser == "Mozilla/4.51 [pt] (Win98; I)"){
$browser = "NETSCAPE 4.51";
$os = "WINDOWS 98";
}else if ($browser == "Mozilla/4.77 [pt] (Win98; I)"){
$browser = "NETSCAPE 4.77";
$os = "WINDOWS 98";
}else if ($browser == "Mozilla/4.0 (compatible; MSIE 5.0; Windows 95; DigExt)"){
$browser = "INTERNET EXPLORER 5.0";
$os = "WINDOWS 95";
}else if ($browser == "Mozilla/4.0 (compatible; MSIE 6.0; Windows 95; DigExt)"){
$browser = "INTERNET EXPLORER 6.0";
$os = "WINDOWS 95";
}else if ($browser == "Mozilla/4.51 [pt] (Win95; I)"){
$browser = "NETSCAPE 4.51";
$os = "WINDOWS 95";
}else if ($browser == "Mozilla/4.77 [pt] (Win98; I)"){
$browser = "NETSCAPE 4.77";
$os = "WINDOWS 95";
}
$arquivolog="status.html"; //arquivo q armazena os dados.
$abrir=@fopen($arquivolog,'r');
$contador=@fread($abrir,filesize($arquivolog));
$numero = $counter;
if ($servidor==""){
$tudo ="
N°:$numero DT:$diaehora IP:$ip LINK:$servidor PORTA:$porta PROT:$PRO SO:$os";
}else{
$tudo ="
N°:$numero DT:$diaehora IP:$ip LINK:$servidor PORTA:$porta PROT:$PRO SO:$os"; }
@fclose($abrir);
$gravar=fopen($arquivolog,'a+');
fputs($gravar,$tudo);
fclose($gravar);
?>