<?

/*
StatFast 1.1 - A free web statistics script
Copyright (C) 2004 Emiliano Principi

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 2
of the License, or (at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.

Camerino, June 1st 2004
Emiliano Principi
*/


// ----------- COUNTER.php by E. Principi -------------------------------------
// -----------       StatFast 1.1         -------------------------------------


$datehour = date ("d/m/Y H:i:s"); 

// ------ insert the correct FULL path  ---------------------------------------
// ------ W A R N I N G : chmod 666 for external_LOG.dat ----------------------
$fileLOG   = "/__FULL_path_to__/external_LOG.dat";


// ----------------------------------------------------------------------------

$logfile   = fopen ($fileLOG , "a"); 
$ip =    $_SERVER["REMOTE_ADDR"]; $host = gethostbyaddr($ip);
if ( checkdnsrr ($host,ANY) ){} else {$host = "unknown host";}
$page = $_SERVER["REQUEST_URI"];
$browser = $_SERVER["HTTP_USER_AGENT"];
$agent = substr ("$browser", 0, 5); 
// ---- lines for excluding robots connections --------------------------------
if ( 
 $agent <> "Mozil" & 
 $agent <> "Opera" & 
 $agent <> "Inter" &
 $agent <> "MSIE " &
 $agent <> "Gener" &
 $agent <> "libww" &
 $agent <> "Cache" &
 $agent <> "Lynx/" &
 $agent <> "Links" &
 $agent <> ""
){exit;}
$Slurp = strstr($browser, 'Slurp');
$ZyBorg = strstr($browser, 'ZyBorg');
$Jeeves = strstr($browser, 'Jeeves');
$Cerberian = strstr($browser, 'Cerberian');
$Girafabot = strstr($browser, 'Girafabot');
$Grubclient = strstr($browser, 'grub-client');
$Indy = strstr($browser, 'Indy');
$FrontPage = strstr($browser, 'FrontPage');
$VoilaBot = strstr($browser, 'VoilaBot');
if ($Slurp){exit;};
if ($ZyBorg){exit;};
if ($Jeeves){exit;};
if ($Cerberian){exit;};
if ($Girafabot){exit;};
if ($Grubclient){exit;};
if ($Indy){exit;};
if ($FrontPage){exit;};
if ($VoilaBot){exit;};
// ----------------------------------------------------------------------------


// -----  IP numbers not included in your statistics  -------------------------
// -----  (uncomment the lines "// elseif" to exclude other IP numbers) -------

if ( $ip == "216.239.59.99"  ) {}
// elseif ( $ip == "xxx.xxx.xxx.xxx" ) {}
// elseif ( $ip == "xxx.xxx.xxx.xxx" ) {}
// elseif ( $ip == "xxx.xxx.xxx.xxx" ) {}

// ----------------------------------------------------------------------------
else   
{ $wr = fwrite ( $logfile , "$datehour ]---[ $ip ]---[ $page ]---[ $browser ]---[ $host ]---[ \n");}; 

// ----------------------------------------------------------------------------
?>