
<?php

// Tracking of visitors

$bytesize = 5000;
$filename = "/home/scienticity/logs/efshits.txt";
$mailrecipients = "jns@bearcastle.com";
$hostaddr = $_SERVER['REMOTE_ADDR'];
$hostname = gethostbyaddr($hostaddr);
$hostref  = $_SERVER['HTTP_REFERER'];

$visitor  = $_SERVER["REQUEST_URI"];
$visitor  = $visitor . "\n<-- $hostref";
$visitor  = $visitor . "\n$hostname ($hostaddr)";
$thetime  = date("d M H:i: ");
$visitor  = "\n\n" . $thetime . $visitor;

preg_match("/[^\.\/]+\.[^\.\/]+$/", $hostname, $dn);

if( $hostname != "" && $hostref != "" && $hostname != $hostaddr &&
    $dn[0] != "googlebot.com" &&
    $dn[0] != "yahoo.net" &&
    $dn[0] != "live.com" &&
    $dn[0] != "archive.org" &&
    $dn[0] != "dotnetdotcom.org" &&
    $dn[0] != "turnitin.com" &&
    $dn[0] != "kosmix.com" &&
    $dn[0] != "cuill.com" &&
    $dn[0] != "picsearch.com" &&
    $dn[0] != "inktomisearch.com" &&
    $dn[0] != "amazonaws.com" &&
    $dn[0] != "attributor.com" &&
    $dn[0] != "your-server.de" &&
    $dn[0] != "seekbot.net" &&
    $dn[0] != "net.tw" &&
    $dn[0] != "nuigalway.ie" &&
    $dn[0] != "internetserviceteam.com" &&
    $dn[0] != "phx.gbl" &&
    $dn[0] != "fti.net" &&
    $dn[0] != "msn.com" )
{

	if( !file_exists($filename) ) { touch($filename); }
	
		// Check the current hostname against the last
		// one written, and write a full record for new
		// names, but just an indicator for last visitor
		// repeating.

	$lfp = fopen( $filename, "r+");
	if (flock($lfp, LOCK_EX)) 
	{
			// Read the last visitor hostname

		while (!feof($lfp))
		{
			$lasthostname = fgets($lfp, 4096);
		}
		
		$hbits = explode(" ", $lasthostname);

			// Write the record

		fseek($lfp, 0, SEEK_END);   // Maybe at end already?

		if( $hbits[0] != $hostname )
		{
			fwrite( $lfp, $visitor);
		} else {
			fwrite( $lfp, " /" );
		}

		flock($lfp, LOCK_UN); 
	}
	fclose( $lfp );

	if( filesize($filename) > $bytesize )
	{
		$filetext = file_get_contents( $filename );
		$mailsubject = "Eye4Science log";
		mail($mailrecipients, $mailsubject, $filetext);

		if( file_exists($filename) ) { unlink($filename); }
	}
}

?>