Geeklog Forums

function countElements($needle, $haystack)
{
    $match = 0;
    foreach($haystack as $key => $value) {
        if($needle == $value)
            $match ++;
    }
    return $match;
}

function phpblock_referrers() {
    global $_CONF;
    require_once($_CONF['path'] . 'reflog.php');

    $reflog = $_CONF['path'] . 'reflog.txt';
    $rfile = file($reflog);                             // read the referrer log into an array

    $tmpArray = array();
    $output = "";                                       //  start constructing output string

    if(count($rfile) > 0) {                             //  if file is non-empty
        foreach($rfile as $r) {
            $refLink = chop($r);                        //  chop trailing whitespace
            $tmp = parse_url($refLink);
            $refName = $tmp['host'];                    //  extract domain name from string
            $hostArray[] = $refName;                    //  array of domain names
            $linkArray[] = $refLink;                    //  array of URL
        }

        $uniqueElements = array_unique($hostArray);     //  get unique referring domains

        foreach($uniqueElements as $key=>$value) {      //  get hits per domain, assign to hitsArray[]
            $count = countElements($value, $hostArray);
            $hitsArray[] =  array($value, $count);
        }

        foreach($hitsArray as $key=>$value) {           //  match up unique domains, hits, and 1 URL for each
            $matchKey = array_search($value[0], $hostArray);
            $outputArray[] = array($value[0], $linkArray[$matchKey], $value[1]);
        }

        uasort($outputArray,compare1);
        $output .= "<p><table width="50%" border="0">n";
        $output .= "<tr><td><b>Referrer</b></td><td><b>Hits</b></td></tr>";
        while(list($key, $val) = each($outputArray)) {
            $urlName = substr($val[0], 0, 25);
            //place strings to search for here
            $search = array("www.", "sourceforge", "mail.");
            //Replace strings with
            $replace = array("", "sf", "");
            $urlName = str_replace($search, $replace, $urlName);
            $urlHits = $val[2];
            $output .= "<tr><td><a href="$val[1]" target=_blank>$urlName</a></td>";
            $output .=  "<td align=right>$urlHits</td></tr>";
        }
        $output .="</table>";
    } else
        $output .= "No recent referrersn";
    return $output;
}

function compare1($arg1, $arg2)
{
    if ($arg1[2] > $arg2[2])
        return -1;
    elseif ($arg1[2] < $arg2[2])
        return 1;
    return 0;
}

 

<?php
// "Referrer Back Links"
// Originally by: http://www.squatty.com - Version: 0.2 - Date: 08.25.02
// Modified by: http://lior.weissbrod.com  - Date: 24/12/2003

$path = '/geeklog/';

// Name of referrer log file
$reflog = $path . 'reflog.txt';

// Name of semaphore file
$semaphore = $path . 'reflog.tmp';

// Maximum number of referrers to log
$maxref = 10;

// Domain name of this site (minus "http://www.")
$mydomain = 'weissbrod.com';

// From whence did Bunky come?
$ref = getenv("HTTP_REFERER");

// Cover me. I'm going in.

if (($ref) and (!strstr($ref, $mydomain))) {
// if there's a referrer, and it's not someone bouncing around this site
        $ref .= "n";                             // append a line feed
        $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
                        array_unshift($rfile, $ref);            // 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)
}
?>