At the very top of your individual archive template:

<$MTInclude module="referrals"$>
<?
$path_parts = pathinfo($_SERVER['PHP_SELF']);
if (!empty($_SERVER['HTTP_REFERER'])){
  saveReferrer($path_parts['basename'], $_SERVER['HTTP_REFERER']);
  }
?>


In the spot in your individual archive template where you want the list:

<? echo listReferrers($path_parts['basename']); ?>


In a template module named referrals:

<?
$backlink_dir = "/local/path/to/chmodded/777/dir/";
$suffix = "_refer.txt";
$blacklist = array('example.com', 'www.example.com');
$my_email = "me@example.com";
$pre_links = "<div class=\"comments-head\">Referrals</div>\n<div class=\"comments-body\">\n";
$post_links = "\n</div>\n";

/*
call saveReferrer with
$path_parts = pathinfo($_SERVER['PHP_SELF']);
if (!empty($_SERVER['HTTP_REFERER'])){
  saveReferrer($path_parts['basename'], $_SERVER['HTTP_REFERER']);
	}
*/

// save new referrer
function saveReferrer($post, $referrer){
global $blacklist, $backlink_dir, $suffix;
$url = parse_url($referrer);
if (!in_array($url['host'], $blacklist)){
  $referrer = normalizeUrl($referrer);
  // if file exists, read it
  if($referrals = @file($backlink_dir . $post . $suffix)){
    // look for our referrer
    reset($referrals);
    $repeat = false;
    while( list($key, $line) = each($referrals) ){
      $line = explode('[+]', trim($line));
      if ($line[0] == $referrer){
        $repeat = true;
        $new_ip = true;
        for ($i=0;$i<sizeof($line);$i++){
          if ($line[$i] == $_SERVER['REMOTE_ADDR']){
           $new_ip = false;
           }
        }
        if ($new_ip){
          $line[1]++;
          $line[2] = time();
          $line[] = $_SERVER['REMOTE_ADDR'];
          $line = implode('[+]', $line) . "\n";
          $referrals[$key] = $line;
          }
        break;
      } 
    }
    if (!$repeat && checkUrl($referrer)){
      $referrals[] = $referrer . "[+]1[+]" . time() . "[+]" . $_SERVER['REMOTE_ADDR'] . "\n";
      sendNotification($post, $referrer);
      }
    $fp = fopen($backlink_dir . $post . $suffix, 'w');
    foreach ($referrals as $value){
      if ($value != ""){
        fwrite($fp, $value);
        }
      }
    fclose($fp);
  }else{
    // file doesn't exist
    if (checkUrl($referrer)){
      $fp = fopen($backlink_dir . $post . $suffix, 'w');
      fwrite($fp, $referrer . "[+]1[+]" . time() . "[+]" . $_SERVER['REMOTE_ADDR'] . "\n");
      fclose($fp);
      sendNotification($post, $referrer);
      }
    }
  }

}

function sendNotification ($post, $referrer){
  global $my_email;
  mail($my_email, "New referrer [$post]", "Post : http://philringnalda.com/archives/$post \n\n--\n Referrer : $referrer ", "From: referrer_notify@example.com");
}

function normalizeUrl($referrer){
$url = parse_url($referrer);
if ($url['path'] == "" && substr($referrer, -1) != "/"){
  $referrer .= "/";
  }
$referrer = preg_replace('/ikonboard.cgi\?s=[a-f0-9]+;/i', 'ikonboard.cgi?', $referrer);
return $referrer;
}

function checkUrl($referrer){
  $good_link = false;
  if ($html_file = getFile($referrer)){
    if (stristr($html_file, $_SERVER['PHP_SELF'])){
      $good_link = true;
      }
    }
  return $good_link;
}


function getFile($location){
  $fp = @fopen($location, 'r');
  if ($fp){
    $response = fread($fp, 1000000);
  }else{
    $response = false;
    }
  return $response;
}

// list all referrers
function listReferrers($post){
  global $blacklist, $backlink_dir, $suffix, $pre_links, $post_links;
  $ob = "";
  if($referrers = @file($backlink_dir . $post . $suffix)){
    $ob = $pre_links;
    // sort?
		foreach ($referrers as $line){
      $line_parts = explode("[+]", trim($line));
			$ob .= "<a href=\"" . $line_parts[0] . "\">" . displayUrl($line_parts[0]) . "</a> (" . $line_parts[1] . ")<br />";
		  }
		$ob .= $post_links;
	  }
  return $ob;
}

function displayUrl ($url){
  $parts = parse_url($url);
  if ($parts['path'] == "/"){
    $parts['path'] = "";
    }
  $pretty_url = $parts['host'] . $parts['path'];
  return $pretty_url;
}

?>