<?php
/************************************************************************
 * MXChange v0.2.1                                    Start: 02/13/2005 *
 * ===============                              Last change: 02/13/2005 *
 *                                                                      *
 * -------------------------------------------------------------------- *
 * File              : doubler.php                                      *
 * -------------------------------------------------------------------- *
 * Short description : Points doubler                                   *
 * -------------------------------------------------------------------- *
 * Kurzbeschreibung  : Punkteverdoppler                                 *
 * -------------------------------------------------------------------- *
 *                                                                      *
 * -------------------------------------------------------------------- *
 * Copyright (c) 2003 - 2008 by Roland Haeder                           *
 * For more information visit: http://www.mxchange.org                  *
 *                                                                      *
 * This program is free software; you can redistribute it and/or modify *
 * it under the terms of the GNU General Public License as published by *
 * the Free Software Foundation; either version 2 of the License, or    *
 * (at your option) any later version.                                  *
 *                                                                      *
 * This program is distributed in the hope that it will be useful,      *
 * but WITHOUT ANY WARRANTY; without even the implied warranty of       *
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the        *
 * GNU General Public License for more details.                         *
 *                                                                      *
 * You should have received a copy of the GNU General Public License    *
 * along with this program; if not, write to the Free Software          *
 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston,               *
 * MA  02110-1301  USA                                                  *
 ************************************************************************/

// Load security stuff here (Oh, I hope this is not unsecure? Am I paranoia??? ;-) )
require_once("inc/libs/security_functions.php");

// Init "action" and "what"
global $what, $action, $startTime;
$GLOBALS['startTime'] = microtime(true);
$GLOBALS['what'] = "";
$GLOBALS['action'] = "";

// Set module
$GLOBALS['module'] = "doubler";
$GLOBALS['refid'] = 0;
$CSS = 0;

// Load the required file(s)
require ("inc/config.php");

// Is the script installed?
if (isBooleanConstantAndTrue('mxchange_installed')) {
	// Probe for referral ID
	if (!empty($_GET['refid'])) $GLOBALS['refid'] = bigintval($_GET['refid']);

	// Probe for nickname extension and if a nickname was supplied by URL
	$probe_nickname = ((EXT_IS_ACTIVE("nickname")) && (("".round($GLOBALS['refid'])."") != $GLOBALS['refid']));
	if ($probe_nickname) {
		// Nickname in URL, so load the ID
		$result = SQL_QUERY_ESC("SELECT userid, status FROM "._MYSQL_PREFIX."_user_data WHERE nickname='%s' LIMIT 1",
		 array(bigintval($GLOBALS['refid'])), __FILE__, __LINE__);
	} else {
		// Direct userid entered
		$result = SQL_QUERY_ESC("SELECT userid, status FROM "._MYSQL_PREFIX."_user_data WHERE userid=%s LIMIT 1",
		 array(bigintval($GLOBALS['refid'])), __FILE__, __LINE__);
	}

	// Load data
	list($rid, $status_ref) = SQL_FETCHROW($result);
	$GLOBALS['refid'] = bigintval($rid);

	// Free memory
	SQL_FREERESULT($result);
	$uid = 0;

	// If no account was found set default refid and status to CONFIRMED
	if (empty($GLOBALS['refid'])) {
		$GLOBALS['refid'] = $_CONFIG['def_refid'];
		$status = "CONFIRMED";
	} // END - if

	// Begin with doubler script...
	if (isset($_POST['ok'])) {
		// Secure points (so only integer/double values are allowed
		$_POST['points'] = bigintval($_POST['points']);

		// Begin with doubling process
		if ((!empty($_POST['userid'])) && (!empty($_POST['pass'])) && (!empty($_POST['points']))) {
			// Probe for nickname extension and if a nickname was entered
			$probe_nickname = ((EXT_IS_ACTIVE("nickname")) && (("".round($_POST['userid'])."") != $_POST['userid']));
			if ($probe_nickname) {
				// Nickname in URL, so load the ID
				$result = SQL_QUERY_ESC("SELECT userid, status, password FROM "._MYSQL_PREFIX."_user_data WHERE nickname='%s' LIMIT 1",
				 array($_POST['userid']), __FILE__, __LINE__);
			} else {
				// Direct userid entered
				$result = SQL_QUERY_ESC("SELECT userid, status, password FROM "._MYSQL_PREFIX."_user_data WHERE userid=%s LIMIT 1",
				 array(bigintval($_POST['userid'])), __FILE__, __LINE__);
			}

			// Load data
			list($uid, $status, $password) = SQL_FETCHROW($result);
			$uid = bigintval($uid);

			// Free result
			SQL_FREERESULT($result);

			// Remove any dots and unwanted chars from the points
			$_POST['points'] = bigintval(round(str_replace(",", ".", $_POST['points'])));

			// Probe for enough points
			$probe_points = (($_POST['points'] >= $_CONFIG['doubler_min']) && ($_POST['points'] <= $_CONFIG['doubler_max']));

			// Check all together
			if ((!empty($uid)) && ($password == generateHash($_POST['pass'], substr($password, 0, -40))) && ($status == "CONFIRMED") && ($probe_points)) {
				// Nickname resolved to a unique userid or direct userid entered by the member
				$DOUBLER_UID = $uid;

				// Calulcate points
				$points = GET_TOTAL_DATA($uid, "user_points", "points") - GET_TOTAL_DATA($uid, "user_data", "used_points");

				// So let's continue with probing his points amount
				if (($points - $_CONFIG['doubler_left'] - $_POST['points'] * $_CONFIG['doubler_charge']) >= 0)
				{
					// Enough points are left so let's continue with the doubling process
					// Create doubling "account" width *DOUBLED* points
					$result = SQL_QUERY_ESC("INSERT INTO "._MYSQL_PREFIX."_doubler (userid, refid, points, remote_ip, timemark, completed, is_ref) VALUES ('%s','%s','%s','".$_SERVER['REMOTE_ADDR']."', UNIX_TIMESTAMP(), 'N','N')",
					 array($uid, bigintval($GLOBALS['refid']), bigintval($_POST['points'] * 2)), __FILE__, __LINE__);

					// Subtract entered points
					SUB_POINTS($uid, $_POST['points']);

					// Add points to "total payed" including charge
					$points = $_POST['points'] - $_POST['points'] * $_CONFIG['doubler_charge'];
					UPDATE_CONFIG("doubler_points", $points, "+");
					$_CONFIG['doubler_points'] += $points;

					// Add second line for the referral but only when uid != refid
					if (($GLOBALS['refid'] > 0) && ($GLOBALS['refid'] != $uid)) {
						// Okay add a refid line and apply refid percents
						$result = SQL_QUERY_ESC("INSERT INTO "._MYSQL_PREFIX."_doubler (userid,refid,points,remote_ip,timemark,completed,is_ref) VALUES ('%s',0,'%s','".$_SERVER['REMOTE_ADDR']."',UNIX_TIMESTAMP(),'N','Y')",
							array(bigintval($GLOBALS['refid']), bigintval($_POST['points'] * 2 * $_CONFIG['doubler_ref'])), __FILE__, __LINE__);

						// And that's why we dont't want to you more than one referral level of doubler-points. ^^^
					} // END - if

					// Update usage counter
					UPDATE_CONFIG("doubler_counter", 1, "+");
					$_CONFIG['doubler_counter']++;

					// Set constant
					define('__DOUBLER_MSG', LOAD_TEMPLATE("doubler_reflink", true, $_POST['userid']));
				} else {
					// Not enougth points left
					define('__ERROR_MSG', DOUBLER_FORM_NO_POINTS_LEFT);
				}
			} elseif ($status == "CONFIRMED") {
				// Account is unconfirmed!
				define('__ERROR_MSG', DOUBLER_FORM_WRONG_PASS);
			} elseif ($status == "UNCONFIRMED") {
				// Account is unconfirmed!
				define('__ERROR_MSG', DOUBLER_FORM_STATUS_UNCONFIRMED);
			} elseif ($status == "LOCKED") {
				// Account is locked by admin / holiday!
				define('__ERROR_MSG', DOUBLER_FORM_STATUS_LOCKED);
			} elseif ($_POST['points'] < $_CONFIG['doubler_min']) {
				// Not enougth points entered
				define('__ERROR_MSG', DOUBLER_FORM_POINTS_MIN);
			} elseif ($_POST['points'] > $_CONFIG['doubler_max']) {
				// Too much points entered
				define('__ERROR_MSG', DOUBLER_FORM_POINTS_MAX);
			} elseif ($probe_nickname) {
				// Cannot resolv nickname -> userid
				define('__ERROR_MSG', DOUBLER_FORM_404_NICKNAME);
			} else {
				// Wrong password or account not found
				define('__ERROR_MSG', DOUBLER_FORM_404_MEMBER);
			}
		} elseif (empty($_POST['userid'])) {
			// Login not entered
			define('__ERROR_MSG', DOUBLER_FORM_404_LOGIN);
		} elseif (empty($_POST['pass'])) {
			// Password not entered
			define('__ERROR_MSG', DOUBLER_FORM_404_PASSWORD);
		} elseif (empty($_POST['points'])) {
			// points not entered
			define('__ERROR_MSG', DOUBLER_FORM_404_POINTS);
		}
	}

	// Set messages to nothing
	if (!defined('__DOUBLER_MSG')) define('__DOUBLER_MSG', "");
	if (!defined('__ERROR_MSG'))   define('__ERROR_MSG'  , "");

	// Shall I check for points immediately?
	if ($_CONFIG['doubler_send_mode'] == "DIRECT") require(PATH."inc/doubler_send.php");

	// Output header
	include(PATH."inc/header.php");

	// Banner in text
	define('__DOUBLER_BANNER', LOAD_TEMPLATE("doubler_banner", true));

	// Load header/footer templates
	define('__DOUBLER_HEADER', LOAD_TEMPLATE("doubler_header", true));
	define('__DOUBLER_FOOTER', LOAD_TEMPLATE("doubler_footer", true));

	if (!empty($uid)) {
		// Transfer userid/nickname to constant
		define('__REFID', $uid);
	} elseif (!empty($GLOBALS['refid'])) {
		// Transfer userid/nickname to constant
		define('__REFID', $GLOBALS['refid']);
	} else {
		// Transfer default refid to constant
		define('__REFID', $_CONFIG['def_refid']);
	}

	// Percent values etc.
	define('__CHARGE_VALUE', TRANSLATE_COMMA($_CONFIG['doubler_charge'] * 100));
	define('__REF_VALUE'   , TRANSLATE_COMMA($_CONFIG['doubler_ref'] * 100));
	define('__TOTAL_VALUE' , TRANSLATE_COMMA($_CONFIG['doubler_points']));
	define('__MIN_VALUE'   , TRANSLATE_COMMA($_CONFIG['doubler_min']));
	define('__MAX_VALUE'   , TRANSLATE_COMMA($_CONFIG['doubler_max']));

	// Text "Enter login"
	if (EXT_IS_ACTIVE("nickname")) {
		// Choose login/nickname
		define('DOUBLER_ENTER_LOGIN', GUEST_ENTER_LOGIN_NICKNAME);
	} else {
		// Simple login ID
		define('DOUBLER_ENTER_LOGIN', GUEST_ENTER_LOGIN);
	}

	// Which mail-send-mode did the admin setup?
	switch ($_CONFIG['doubler_send_mode'])
	{
	case "DIRECT":
		define('DOUBLER_PAYOUT_TIME', DOUBLER_PAYOUT_TIME_DIRECT);
		break;

	case "RESET":
		define('DOUBLER_PAYOUT_TIME', DOUBLER_PAYOUT_TIME_RESET);
		break;
	}

	// Generate table with already payed out doubles
	define('__DOUBLER_PAYOUT_HISTORY', DOUBLER_GENERATE_TABLE("0", "Y", "N", "DESC"));

	// Generate timemark
	define('__TIMEOUT_MARK', CREATE_FANCY_TIME($_CONFIG['doubler_timeout']));

	// Usage counter
	define('__DOUBLER_COUNTER', $_CONFIG['doubler_counter']);

	// Points left to doubler
	define('__LEFT_VALUE', TRANSLATE_COMMA(DOUBLER_GET_TOTAL_POINTS_LEFT()));

	// Output neccessary form for this
	LOAD_TEMPLATE("doubler_index");

	// Output footer
	include(PATH."inc/footer.php");
} else {
	// You have to configure first!
	LOAD_URL("install.php");
}

// Really all done here... ;-)
?>