<?PHP  
// File: $Id: referer.php,v 1.18 2001/12/16 02:30:23 varchar Exp $ $Name:  $
/******************************************************************************* 
 * This is a new referer function for PostNuke Instead of logging each URL 
 * as its coming in, it logs the frequency of that URL. This function was written 
 * first by Michael Yarbrough [hide@address.com]. Bjorn Sodergren re-wrote 
 * it to what it is now and added more complete/descriptive comments.  
 * 
 * modified from PHP-Nuke 4.4 to Postnuke .6* by
 * Timothy Litwiller [hide@address.com]
 * 
 * Re-Written by 
 * Bjorn Sodergren [hide@address.com] 
 * 
 * Originally written by 
 * Michael Yarbrough [hide@address.com] 
 * 
 ******************************************************************************/ 

function httpreferer() 
{ 
	global $HTTP_SERVER_VARS;
    /*** 
     * Here we set up some variables for the rest of the script. 
     * if you want to see whats going on, set $DEBUG to 1 
     * I use $HTTP_HOST here because i dont want to deal with the need to have 
     * to see if $nuke_url is set correctly and whatnot. if you prefer to use 
     * $nuke_url isntead of HTTP_HOST, just uncomment the appropriate lines. 
     */ 

    $DEBUG = 0; 
    $HTTP_REFERER = getenv('HTTP_REFERER'); 
    $HTTP_HOST = getenv('HTTP_HOST');
	// nkame: PWS/IIS doesn't put those variables in the environment
	if(empty($HTTP_HOST)) {
		$HTTP_HOST = 'http://'.$HTTP_SERVER_VARS['HTTP_HOST'];
		$HTTP_REFERER = $HTTP_SERVER_VARS['HTTP_REFERER']; 
	}
    global $dbconn;
    # global $nuke_url; 
    # $HTTP_HOST = $nuke_url; 

    if($DEBUG == 1) { 
        echo "HTTP_HOST = ".$HTTP_HOST."<br> HTTP_REFERER = ".$HTTP_REFERER."<br>"; 
    } 
     
    /*** 
     * This is the first thing we need to check. what this does is see if  
     * HTTP_HOST is anywhere in HTTP_REFERER. This is so we dont log hits coming 
     * from our own domain. 
     */ 
     
    if (!ereg("$HTTP_HOST",$HTTP_REFERER)) { 
     
        /*** 
         * If $HTTP_REFERER is not set, set $HTTP_REFERER to value "bookmark" 
         * This is to show how many people have this bookmarked or type in the 
         * URL into the browser. also so we dont have empty referers. 
         */ 

        if ( $HTTP_REFERER == "" ) { 
            $HTTP_REFERER = "bookmark"; 
        } 
        global $pntable;

        // grab a reference to our table column defs for easier reading below
        $column = &$pntable['referer_column'];

        /*** 
         * Lets select from the table where we have $HTTP_REFERER (whether it be 
         * a valid referer or 'bookmark'. if we return 1 row, that means someones 
         * used this referer before and update the set appropriatly.  
         * 
         * If we dont have any rows (it returns 0), we have a new entry in the 
         * table, update accordingly. 
         * 
         * After we figure out what SQL statement we are using, lets perform the 
         * query and we're done ! 
         */ 

        $check_sql = "SELECT count($column[rid]) as c 
                      FROM $pntable[referer] 
                      WHERE $column[url] = '" . $HTTP_REFERER . "'"; 
        $result = $dbconn->Execute($check_sql);
        if ($result === false) {
            PN_DBMsgError($dbconn, __FILE__, __LINE__, "Error accesing to the database");
        }
        $row = $result->fields;
        $count = $row[0];

        if ($count == 1 ) { 
            $update_sql = "UPDATE $pntable[referer]
                           SET $column[frequency] = $column[frequency] + 1
                           WHERE $column[url] = '" . $HTTP_REFERER . "'"; 
        } else { 

            /***
             * "auto-increment" isn't portable so we have to use the standard
             * interface for grabbing sequence numbers.  The underlying
             * implementation handles the correct method for the RDBMS we are
             * using.
             */

//FTO : Add SEQ suffix to avoid conflic with existing tables
//
            $rid = $dbconn->GenId("{$pntable['referer']}_SEQ", true);
            $update_sql = "INSERT INTO $pntable[referer]
                          ($column[rid], $column[url], $column[frequency])
                          VALUES ($rid, '$HTTP_REFERER', 1)"; 
        } 

        $result = $dbconn->Execute($update_sql);
        if ($result === false) {
            error_log ("error in referer.php, " . __LINE__ . ", sql='$update_sql'");
            PN_DBMsgError($dbconn, __FILE__, __LINE__, "Error accesing to the database");
        }

        if ( $DEBUG == 1) { 
            echo "<br>".$check_sql."<br>".$update_sql."<br>"; 
             
        } 
    } 
} 
?>