".__FUNCTION__." - ENTRY ------------------------- \n");
// Back ref depths
$GLOBALS['refback_depth'][$userid][$ref] = $GLOBALS['ref_level'];
// Init points
$return = $points;
// Get all ref levels
$result_refs = SQL_QUERY('SELECT `level`, `percents` FROM `{?_MYSQL_PREFIX?}_refdepths` WHERE `level` > 0 ORDER BY `level` ASC',
__FUNCTION__, __LINE__);
// "Walk" through all level
while ($content = SQL_FETCHARRAY($result_refs)) {
// Reset ref depths
// @TODO Try to rewrite the following unset()
unset($GLOBALS['ref_level']);
// "Walk" through all refids
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},ref={$ref},level={$content['level']},points={$points}
");
foreach (getArrayFromRefbackLevel($userid, $content['level']) as $refid) {
// Skip level zero or if both are the same
if ($userid == $refid) continue;
// Get refback percents
$percents = getRefbackPercents($userid, $refid);
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},ref={$ref},refid={$refid},points={$points},percents={$percents}
");
// Some percents given?
if ($percents > 0) {
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):points={$points},perc={$content['percents']},percents={$percents},level={$content['level']}
");
// Calculate points for refback
$refback = $points * ($content['percents'] / 100) * ($percents / 100);
// Update refback table ('refid' and 'userid' must be exchanged!)
SQL_QUERY_ESC("UPDATE `{?_MYSQL_PREFIX?}_user_refs` SET `points`=`points`+%s WHERE `userid`=%s AND `refid`=%s LIMIT 1",
array($refback, $refid, $userid), __FUNCTION__, __LINE__);
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):refback={$refback},userid={$userid},refid={$refid} - UPDATE! (".SQL_AFFECTEDROWS().")
");
// Add points again, but only directly
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):refback={$refback}
");
addPointsDirectly(sprintf("refback:%s", $refid), $userid, $refback);
// Reduce points if refid is found
if ($refid == $ref) {
// Reduce points here!
$return = $points * ($content['percents'] / 100) - $refback;
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):points={$return} - REDUCED
");
} // END - if
} // END - if
} // END foreach
} // END - while
// Free result
SQL_FREERESULT($result_refs);
// Restore ref depth
$GLOBALS['ref_level'] = $GLOBALS['refback_depth'][$userid][$ref];
// Return them
//* DEBUG: */ print("
----------------------- ".__FUNCTION__." - EXIT ------------------------
");
return $return;
}
// "Getter" for refback percents
function getRefbackPercents ($userid, $ref) {
//* DEBUG: */ print("----------------------- ".__FUNCTION__." - ENTRY ------------------------- \n");
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},ref={$ref}
");
// Skip identical ids
if ($userid == $ref) return 0;
// Is it cached?
if (!isset($GLOBALS['refback_percents'][$userid][$ref])) {
// Default is zero
$GLOBALS['refback_percents'][$userid][$ref] = '0';
// Get percents from database
$result = SQL_QUERY_ESC("SELECT `refback` FROM `{?_MYSQL_PREFIX?}_user_refs` WHERE `userid`=%s AND `refid`=%s LIMIT 1",
array($ref, $userid), __FUNCTION__, __LINE__);
// Entry found? (Should be!)
if (SQL_NUMROWS($result) == 1) {
// Fetch percents
list($GLOBALS['refback_percents'][$userid][$ref]) = SQL_FETCHROW($result);
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):percents=".$GLOBALS['refback_percents'][$userid][$ref]."
");
} else {
// Debug log
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."): NO ENTRY FOUND! :-(
");
logDebugMessage(__FUNCTION__, __LINE__, 'userid=' . $userid . ',ref=' . $ref . ' - No entry found. :-(');
}
// Free result
SQL_FREERESULT($result);
} // END - if
// Return percents
//* DEBUG: */ print("
----------------------- ".__FUNCTION__." - EXIT ------------------------
");
return $GLOBALS['refback_percents'][$userid][$ref];
}
// "Getter" for userid array which will return only one entry
function getArrayFromRefbackLevel ($refid, $level) {
//* DEBUG: */ print("----------------------- ".__FUNCTION__." - ENTRY ------------------------- \n");
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):refid={$refid},level={$level}
");
// Init userids
$userIds = array();
// Look for all
$result = SQL_QUERY_ESC("SELECT
`userid`
FROM
`{?_MYSQL_PREFIX?}_user_refs`
WHERE
`refid`=%s AND `level`=%s
ORDER BY
`userid` ASC",
array($refid, $level), __FUNCTION__, __LINE__);
// Entries found?
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):numRows=".SQL_NUMROWS($result)."
");
if (!SQL_HASZERONUMS($result)) {
// Add all
while ($content = SQL_FETCHARRAY($result)) {
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):refid={$refid},level={$level},userid={$content['userid']}
");
$userIds[] = $content['userid'];
} // END - while
} // END - if
// Free result
SQL_FREERESULT($result);
// Return array
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):refid={$refid},count()=".count($userIds)."
");
//* DEBUG: */ print("
----------------------- ".__FUNCTION__." - EXIT ------------------------
");
return $userIds;
}
// Update "refback table"
function updateRefbackTable ($userid) {
//* DEBUG: */ print("----------------------- ".__FUNCTION__." - ENTRY ------------------------- \n");
// Make it sure referal level zero (member him-/herself) is at least selected
if (empty($GLOBALS['refback_level'])) $GLOBALS['refback_level'] = 1;
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},level={$GLOBALS['refback_level']}
");
// Init refid
$GLOBALS['refback_refid'][$GLOBALS['refback_level']] = '0';
$old = '0'; $minus = '0';
// Check for his referal
$result_refid = SQL_QUERY_ESC("SELECT `userid` FROM `{?_MYSQL_PREFIX?}_user_data` WHERE `refid`=%s ORDER BY `userid` ASC",
array(bigintval($userid)), __FUNCTION__, __LINE__);
// When no entry was updated then we have to create it here
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):found=".SQL_NUMROWS($result_refid)."
");
if (!SQL_HASZERONUMS($result_refid)) {
// Load all refids
while (list($GLOBALS['refback_refid'][$GLOBALS['refback_level']]) = SQL_FETCHROW($result_refid)) {
// Remmber userid
$GLOBALS['refback_userid'][$GLOBALS['refback_refid'][$GLOBALS['refback_level']]] = $userid;
// Refid set?
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]}
");
if (($GLOBALS['refback_refid'][$GLOBALS['refback_level']] > 0) && ($GLOBALS['refback_refid'][$GLOBALS['refback_level']] != $userid) && (isset($GLOBALS['refback_refid'][$GLOBALS['refback_level']]))) {
// New userid?
if ((isset($GLOBALS['refback_refid'][$GLOBALS['refback_level']-1])) && (isset($GLOBALS['refback_userid'][$GLOBALS['refback_refid'][$GLOBALS['refback_level']-1]]))) {
// New userid!
$old = $userid;
$userid = $GLOBALS['refback_userid'][$GLOBALS['refback_refid'][$GLOBALS['refback_level']-1]];
$minus = 1;
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},old={$old},level={$GLOBALS['refback_level']},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]} - NEW UID!
");
} // END - if
// Check existence
$result = SQL_QUERY_ESC("SELECT `id` FROM `{?_MYSQL_PREFIX?}_user_refs` WHERE `userid`=%s AND `level`='%s' AND `refid`=%s LIMIT 1",
array(bigintval($userid), $GLOBALS['refback_level'], bigintval($GLOBALS['refback_refid'][$GLOBALS['refback_level']])), __FUNCTION__, __LINE__);
// Do we have no entry?
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},level={$GLOBALS['refback_level']},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]},minus={$minus},numRows=".SQL_NUMROWS($result)." - FOUND!
");
if (SQL_HASZERONUMS($result)) {
// Insert this level
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},level={$GLOBALS['refback_level']},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]} - ADD!
");
SQL_QUERY_ESC("INSERT INTO `{?_MYSQL_PREFIX?}_user_refs` (`userid`,`level`,`refid`) VALUES (%s,%s,%s)",
array(bigintval($userid), $GLOBALS['refback_level'], bigintval($GLOBALS['refback_refid'][$GLOBALS['refback_level']])), __FUNCTION__, __LINE__);
// Move to next referal level and count his counter one up!
$GLOBALS['refback_level']++;
updateRefbackTable($GLOBALS['refback_refid'][($GLOBALS['refback_level'] - 1)]);
} // END - if
// Do we have another level here?
if ((($GLOBALS['refback_level']-$minus) > 0) && ($old > 0)) {
// Restore old one
$userid = $old;
// Shall we add this as well?
$result = SQL_QUERY_ESC("SELECT `id` FROM `{?_MYSQL_PREFIX?}_user_refs` WHERE `userid`=%s AND `level`='%s' AND `refid`=%s LIMIT 1",
array(bigintval($userid), ($GLOBALS['refback_level']-$minus), bigintval($GLOBALS['refback_refid'][$GLOBALS['refback_level']])), __FUNCTION__, __LINE__);
// Do we have no entry?
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},level=".($GLOBALS['refback_level']-$minus).",ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]},numRows=".SQL_NUMROWS($result)." - BACK!
");
if (SQL_HASZERONUMS($result)) {
// Insert this level
SQL_QUERY_ESC("INSERT INTO `{?_MYSQL_PREFIX?}_user_refs` (`userid`,`level`,`refid`) VALUES (%s,%s,%s)",
array(bigintval($userid), ($GLOBALS['refback_level']-$minus), bigintval($GLOBALS['refback_refid'][$GLOBALS['refback_level']])), __FUNCTION__, __LINE__);
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},level=".($GLOBALS['refback_level']-$minus).",ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]} - RETURNED!
");
} // END - if
} // END - if
} // END - if
} // END - while
// Free memory
SQL_FREERESULT($result_refid);
} // END - if
// When he has a referal...
if ((($GLOBALS['refback_refid'][$GLOBALS['refback_level']] == $userid) || ($GLOBALS['refback_refid'][$GLOBALS['refback_level']] == '0')) && (isExtensionInstalledAndNewer('cache', '0.1.2')) && (!isset($GLOBALS['refback_cached']))) {
// Remove cache here
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']]} - CACHE!
");
if ($GLOBALS['cache_instance']->loadCacheFile('refback')) $GLOBALS['cache_instance']->removeCacheFile();
$GLOBALS['refback_cached'] = 1;
} // END - if
// "Walk" back here
$GLOBALS['refback_level']--;
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},level={$GLOBALS['refback_level']} - LEVEL!
");
// Fix empty refid
if (!isset($GLOBALS['refback_refid'][$GLOBALS['refback_level']-1])) $GLOBALS['refback_refid'][$GLOBALS['refback_level']-1] = '0';
//* DEBUG: */ print(__FUNCTION__ . '(' . __LINE__."):userid={$userid},level={$GLOBALS['refback_level']},ref={$GLOBALS['refback_refid'][$GLOBALS['refback_level']-1]} - BACK!
");
//* DEBUG: */ print("
----------------------- ".__FUNCTION__." - EXIT ------------------------
");
}
// "Getter" for array for user refs in given level
function getArrayFromRefbackUserRefs ($userid, $level) {
//* DEBUG: */ print("----------------------- ".__FUNCTION__." - ENTRY ------------------------- \n");
// Default is no refs and no nickname
$add = '';
$refs = array();
// Do we have nickname extension installed?
if (isExtensionActive('nickname')) {
$add = ", d.nickname";
} // END - if
// Get refs from database
$result = SQL_QUERY_ESC("SELECT
r.id,
r.refid,
r.refback,
r.points,
d.status".$add.",
d.joined,
d.refid AS level_refid
FROM
`{?_MYSQL_PREFIX?}_user_refs` AS r
LEFT JOIN
`{?_MYSQL_PREFIX?}_user_data` AS d
ON
r.refid=d.userid
WHERE
r.userid=%s AND r.level=%s
ORDER BY
r.refid ASC",
array(bigintval($userid), bigintval($level)), __FUNCTION__, __LINE__);
// Are there some entries?
if (!SQL_HASZERONUMS($result)) {
// Fetch all entries
while ($row = SQL_FETCHARRAY($result)) {
// Add row
$refs[$row['id']] = $row;
} // END - while
} // END - if
// Free result
SQL_FREERESULT($result);
// Return result
//* DEBUG: */ print("
----------------------- ".__FUNCTION__." - EXIT ------------------------
");
return $refs;
}
// "Getter" for refback entry
function getArrayFromUserRefbackData ($id) {
//* DEBUG: */ print("----------------------- ".__FUNCTION__." - ENTRY ------------------------- \n");
// Default data is nothing
$data = array();
// Secure id number
$id = bigintval($id);
// Get entry from database
$result = SQL_QUERY_ESC("SELECT `id`, `userid`, `refid`, `refback`, `level`, `points` FROM `{?_MYSQL_PREFIX?}_user_refs` WHERE `id`=%s AND `userid`=%s LIMIT 1",
array($id, getMemberId()), __FUNCTION__, __LINE__);
// Is there an entry?
if (SQL_NUMROWS($result) == 1) {
// Fetch data
$data = SQL_FETCHARRAY($result);
} // END - if
// Free result
SQL_FREERESULT($result);
// Return entry
//* DEBUG: */ print("
----------------------- ".__FUNCTION__." - EXIT ------------------------
");
return $data;
}
// Update refback percents (but with some sanity-checks!
function updateMemberRefbackPercents ($id, $percents) {
//* DEBUG: */ print("----------------------- ".__FUNCTION__." - ENTRY ------------------------- \n");
// Default status is failed
$status['message'] = '{--MEMBER_REFBACK_ERROR_GENERAL--}';
// Do some sanity-checks
if (!isMember()) {
// No member!
$status['message'] = '{--MEMBER_REFBACK_ERROR_NO_MEMBER--}';
return $status;
} elseif (''.$id.'' != ''.($id + 0).'') {
// No number!
$status['message'] = '{--MEMBER_REFBACK_ERROR_INVALID_ID_NUMBER--}';
return $status;
} elseif (($percents < 0) || ($percents > 100)) {
// Percentage is not valid!
$status['message'] = '{--MEMBER_REFBACK_ERROR_INVALID_PERCENTAGE--}';
return $status;
}
// Get ref entry
$dummy = getArrayFromUserRefbackData($id);
// Is this valid?
if (count($dummy) == 0) {
// id does not belong to user!
$status['message'] = '{--MEMBER_REFBACK_ERROR_ID_MISMATCH--}';
return $status;
} // END - if
// Revert german commata
$percents = convertCommaToDot($percents);
// Update entry
SQL_QUERY_ESC("UPDATE `{?_MYSQL_PREFIX?}_user_refs` SET `refback`='%s' WHERE `id`=%s AND `userid`=%s LIMIT 1",
array($percents, $id, getMemberId()), __FUNCTION__, __LINE__);
// Entry updated?
if (SQL_HASZEROAFFECTED()) {
// Entry not updated!
$status['message'] = '{--MEMBER_REFBACK_ERROR_NOT_UPDATED--}';
return $status;
} // END - if
// Prepare email content
$dummy['percents'] = $percents;
// Load member email template
$mail = loadEmailTemplate('member_refback', $dummy, $dummy['refid']);
// Send email to user
sendEmail($dummy['refid'], '{--MEMBER_REFBACK_SUBJECT--}', $mail);
// Send admin notification
sendAdminNotification('{--ADMIN_REFBACK_SUBJECT--}', 'admin_refback', $dummy, getMemberId());
// All fine!
$status['ok'] = true;
// Return status array
//* DEBUG: */ print("
----------------------- ".__FUNCTION__." - EXIT ------------------------
");
return $status;
}
// Checks wether refback is enabled
function isRefbackEnabled () {
// Do we have cache?
if (!isset($GLOBALS[__FUNCTION__])) {
// Determine it
$GLOBALS[__FUNCTION__] = (getConfig('refback_enabled') == 'Y');
} // END - if
// Return cache
return $GLOBALS[__FUNCTION__];
}
// [EOF]
?>