<?php
/*
 --------------------------------------------
  LGF Referrer Log
  By Charles F. Johnson
  Copyright 2001 LGF Web Design
  All Rights Reserved.
  http://littlegreenfootballs.com

  This file may be freely distributed
  as long as the credits and copyright
  message above remain intact.
 --------------------------------------------
*/
/*
 ------------------==/\==-------------------
   LGF Referral Log 
   with modifications by Kristine Beeson
   modifications copyright 2002
   http://love-productions.com
   
   All original code is courtesy of LGF
 ------------------==\/==-------------------
*/   

$reflog = 'reflog.txt';
$semaphore = 'semaphore.ref';
$maxref = 100;

// what's the domains to ignore?
$mydomain = 'love-productions.com';
$bot1 = 'themis.hmdns.net:2086/scripts/command';
$bot2 = '64.247.33.2:2086/scripts/dialog?dialog=newnamed';
$bot3 = '64.247.33.2:2086/scripts/command';
$bot4 = 'www.aqhost.com:2087/installsslmain';

// what's the data we need?
$ref = getenv("HTTP_REFERER");
$time = date("m.d.y - h:i", strtotime("-3 hours"));

// what's the function to get out the data?
if (($ref) and (!strstr($ref, $mydomain)) and (!strstr($ref,$bot1)) and (!strstr($ref,$bot2)) and (!strstr($ref,$bot3)) and (!strstr($ref,$bot4)) ) { // if there's a referrer, and it's not someone bouncing around this site
  $refarray = array($time, $ref, "\n");  //sets array up with time, ref, and linebreak
  $sp = fopen($semaphore, "w");          // open the semaphore file
  if (flock($sp, 2)) {                   // lock the semaphore; other processes will stop and wait here
  $rfile = file($reflog);                // read the referrer log into an array
  if ($ref <> $rfile[0]) {               // if this referrer is different from the last one
     if (count($rfile) == $maxref)       // if the file is full
     array_pop($rfile);                  // pop the last element
     $refsep = implode("|", $refarray);  // put separator between info
     array_unshift($rfile, $refsep);     // push the new referrer onto the front
     $r = join("", $rfile);              // make the array into a string
     $rp = fopen($reflog, "w");          // open the referrer log in write mode
     $status = fwrite($rp, $r);          // write out the referrer URLs
     $status = fclose($rp);              // close the log
     }
   }
$status = fclose($sp);      // close the semaphore (and release the lock)
}
?>