<?php
/************************************************************************
 * MXChange v0.2.1                                    Start: 10/14/2003 *
 * ===============                              Last change: 04/28/2004 *
 *                                                                      *
 * -------------------------------------------------------------------- *
 * File              : what-login.php                                   *
 * -------------------------------------------------------------------- *
 * Short description : Login area (redirects to the real login module)  *
 * -------------------------------------------------------------------- *
 * Kurzbeschreibung  : Loginbereich (leitet an das richtige Lgin-Modul  *
 *                     weiter)                                          *
 * -------------------------------------------------------------------- *
 *                                                                      *
 * -------------------------------------------------------------------- *
 * 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                                                  *
 ************************************************************************/

// Some security stuff...
if (!defined('__SECURITY')) {
	$INC = substr(dirname(__FILE__), 0, strpos(dirname(__FILE__), "/inc") + 4) . "/security.php";
	require($INC);
}

// Add description as navigation point
ADD_DESCR("guest", __FILE__);

global $DATA, $FATAL;

// Initialize data
$probe_nickname = false; $uid = false; $hash = "";
unset($login); unset($online);

if ((!empty($GLOBALS['userid'])) && (isSessionVariableSet('u_hash'))) {
	// Already logged in?
	$uid = $GLOBALS['userid'];
} elseif ((!empty($_POST['id'])) && (!empty($_POST['password'])) && (isset($_POST['ok']))) {
	// Set userid and crypt password when login data was submitted
	$probe_nickname = ((EXT_IS_ACTIVE("nickname")) && (("".($_POST['id'] + 0)."") != $_POST['id']));
	if ($probe_nickname === true) {
		// Nickname entered
		$uid = SQL_ESCAPE($_POST['id']);
	} else {
		// Direct userid entered
		$uid  = bigintval($_POST['id']);
	}
} elseif (!empty($_POST['new_pass'])) {
	// New password requested
	$uid = 0;
	if (!empty($_POST['id'])) $uid = $_POST['id'];
} else {
	// Not logged in
	$uid = 0; $hash = "";
}

$URL = ""; $ADD = "";
// Set unset variables
if (empty($_POST['new_pass'])) $_POST['new_pass'] = "";
if (empty($_GET['login']))     $_GET['login']     = "";

if (IS_MEMBER()) {
	// Login immidiately...
	$URL = URL."/modules.php?module=login";
} elseif ((isset($_POST['ok'])) && ("".$uid."" != "".$_POST['id']."")) {
	// Invalid input (no nickname extension installed but nickname entered)
	$ERROR = CODE_EXTENSION_PROBLEM;
} elseif (isset($_POST['ok'])) {
	// Add last_login if available
	$LAST = "";
	if (GET_EXT_VERSION("sql_patches") >= "0.2.8") {
		$LAST = ", last_login";
	} // END - if

	// Check login data
	$password = ""; $uid2 = ""; $dmy = "";
	if ($probe_nickname === true) {
		// Nickname entered
		$result = SQL_QUERY_ESC("SELECT userid, password, last_online".$LAST." FROM "._MYSQL_PREFIX."_user_data WHERE nickname='%s' AND status='CONFIRMED' LIMIT 1",
			array($uid), __FILE__, __LINE__);
		list($uid2, $password, $online, $login) = SQL_FETCHROW($result);
		if (!empty($uid2)) $uid = bigintval($uid2);
	} else {
		// Direct userid entered
		$result = SQL_QUERY_ESC("SELECT userid, password, last_online".$LAST." FROM "._MYSQL_PREFIX."_user_data WHERE userid=%s AND status='CONFIRMED' LIMIT 1",
			array($uid, $hash), __FILE__, __LINE__);
		list($uid2, $password, $online, $login) = SQL_FETCHROW($result);
	}

	// Is there an entry?
	if ((SQL_NUMROWS($result) == 1) && ((($probe_nickname) && (!empty($uid2))) || ($uid2 == $uid))) {
		// Free result
		SQL_FREERESULT($result);

		// By default the hash is empty
		$hash = "";

		// Check for old MD5 passwords
		if ((strlen($password) == 32) && (md5($_POST['password']) == $password)) {
			// Just set the hash to the password from DB... :)
			$hash = $password;
		} else {
			// Hash password with improved way for comparsion
			$hash = generateHash($_POST['password'], substr($password, 0, -40));
		}

		if ($hash == $password) {
			// New hashed password found so let's generate a new one
			$hash = generateHash($_POST['password']);

			// ... and update database
			SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_data SET password='%s' WHERE userid=%s AND status='CONFIRMED' LIMIT 1",
				array($hash, $uid), __FILE__, __LINE__);

			// No login bonus by default
			$BONUS = false;

			// Probe for last online timemark
			$probe = time() -  $online;
			if (!empty($login)) $probe = time() - $login;
			if ((GET_EXT_VERSION("bonus") >= "0.2.2") && ($probe >= $_CONFIG['login_timeout'])) {
				// Add login bonus to user's account
				$ADD = sprintf(", login_bonus=login_bonus+%s",
					(float)$_CONFIG['login_bonus']
				);
				$BONUS = true;

				// Subtract login bonus from userid's account or jackpot
				if ((GET_EXT_VERSION("bonus") >= "0.3.5") && ($_CONFIG['bonus_mode'] != "ADD")) BONUS_POINTS_HANDLER('login_bonus');
			} // END - if

			// Init variables
			$life = "-1"; $login = false;

			// Secure lifetime from input form
			$l = bigintval($_POST['lifetime']);

			// Is the lifetime set?
			if ($l > 0) {
				// Calculate lifetime of cookies
				$life = time() + $l;

				// Calculate new hash with the secret key and master salt together
				$hash = generatePassString($hash);

				// Update cookies
				$login = (set_session("userid"  , $uid , $life, COOKIE_PATH)
				       && set_session("u_hash"  , $hash, $life, COOKIE_PATH)
				       && set_session("lifetime", $l   , $life, COOKIE_PATH)
				);

				// Update global array
				$GLOBALS['userid'] = $uid;
			} else {
				// Check for login data
				$login = IS_MEMBER();
			}

			if ($login) {
				// Update database records
				$result = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_data SET total_logins=total_logins+1".$ADD." WHERE userid=%s LIMIT 1",
					array($uid), __FILE__, __LINE__);
				if (SQL_AFFECTEDROWS() == 1) {
					// Procedure to checking for login data
					if (($BONUS) && (EXT_IS_ACTIVE("bonus"))) {
						// Bonus added (just displaying!)
						$URL = URL."/modules.php?module=chk_login&amp;mode=bonus";
					} else {
						// Bonus not added
						$URL = URL."/modules.php?module=chk_login&amp;mode=login";
					}
				} else {
					// Cannot update counter!
					$URL = URL."/modules.php?module=index&amp;what=login&amp;login=".CODE_CNTR_FAILED;
				}
			} else {
				// Cookies not setable!
				$URL = URL."/modules.php?module=index&amp;what=login&amp;login=".CODE_NO_COOKIES;
			}
		} else {
			// Update failture counter
			SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_data SET login_failtures=login_failtures+1,last_failture=NOW() WHERE userid=%s LIMIT 1",
				array($uid), __FILE__, __LINE__);

			// Wrong password!
			$ERROR = CODE_WRONG_PASS;
		}
	} elseif ((($probe_nickname) && (!empty($uid2))) || ($uid2 == $uid)) {
		// Other account status?
		$result = SQL_QUERY_ESC("SELECT status FROM "._MYSQL_PREFIX."_user_data WHERE userid=%s LIMIT 1",
			array($uid), __FILE__, __LINE__);

		// Entry found?
		if (SQL_NUMROWS($result) == 1) {
			// Load status
			list($status) = SQL_FETCHROW($result);
			switch ($status) {
				case "LOCKED":
					$ERROR = CODE_ID_LOCKED;
					break;

				case "UNCONFIRMED":
					$ERROR = CODE_ID_UNCONFIRMED;
					break;

				default:
					DEBUG_LOG(__FILE__, __LINE__, sprintf("Unknown error status %s detected.", $status));
					$ERROR = CODE_UNKNOWN_STATUS;
					break;
			}
		} else {
			// ID not found!
			$ERROR = CODE_WRONG_ID;
		}

		// Construct URL
		$URL = URL."/modules.php?module=index&amp;what=login&amp;login=".$ERROR;
	} else {
		// ID not found!
		$ERROR = CODE_WRONG_ID;
	}
} elseif ((!empty($_POST['new_pass'])) && (isset($uid))) {
	// Compile email when found in address (only secure chars!)
	if (!empty($_POST['email'])) $_POST['email'] = str_replace("{DOT}", '.', $_POST['email']);

	// Set ID number when left empty
	if (empty($_POST['id'])) $_POST['id'] = 0;

	// Probe userid/nickname
	$probe_nickname = ((EXT_IS_ACTIVE("nickname")) && (("".round($_POST['id'])."") != $_POST['id']));
	if ($probe_nickname) {
		// Nickname entered
		$result = SQL_QUERY_ESC("SELECT userid, status FROM "._MYSQL_PREFIX."_user_data WHERE nickname='%s' OR email='%s' LIMIT 1",
			array($uid, $_POST['email']), __FILE__, __LINE__);
	} else {
		// Direct userid entered
		$result = SQL_QUERY_ESC("SELECT userid, status FROM "._MYSQL_PREFIX."_user_data WHERE userid=%s OR email='%s' LIMIT 1",
			array(bigintval($uid), $_POST['email']), __FILE__, __LINE__);
	}

	// Any entry found?
	if (SQL_NUMROWS($result) == 1) {
		// This data is valid, so we create a new pass... :-)
		list($uid, $status) = SQL_FETCHROW($result);

		if ($status == "CONFIRMED") {
			// Ooppps, this was missing! ;-) We should update the database...
			$NEW_PASS = GEN_PASS();
			$result = SQL_QUERY_ESC("UPDATE "._MYSQL_PREFIX."_user_data SET password='%s' WHERE userid=%s LIMIT 1",
			 array(generateHash($NEW_PASS), $uid), __FILE__, __LINE__);

			// Prepare data and message for email
			$msg = LOAD_EMAIL_TEMPLATE("new-pass", array('new_pass' => $NEW_PASS), $uid);

			// ... and send it away
			SEND_EMAIL($uid, GUEST_NEW_PASSWORD, $msg);

			// Output note to user
			LOAD_TEMPLATE("admin_settings_saved", false, GUEST_NEW_PASSWORD_SEND);
		} else {
			// Account is locked or unconfirmed
			switch ($status) {
				case "LOCKED"     : $MSG = CODE_ID_LOCKED;      break;
				case "UNCONFIRMED": $MSG = CODE_ID_UNCONFIRMED; break;
			}

			// Load URL
			LOAD_URL("modules.php?module=index&amp;what=login&amp;login=".$MSG);
		}
	} else {
		// ID or email is wrong
		LOAD_TEMPLATE("admin_settings_saved", false, "<SPAN class=\"guest_failed\">".GUEST_WRONG_ID_EMAIL."</SPAN>");
	}
}

// Login problems?
if (!empty($_GET['login'])) {
	// Use code from URL
	$ERROR = SQL_ESCAPE($_GET['login']);
} // END  - if

// Login problems?
if (!empty($ERROR)) {
	// Ok, which one now?
	$MSG = "<TR>
  <TD width=\"10\">&nbsp;</TD>
  <TD colspan=\"7\" align=\"center\">
    <STRONG><SPAN class=\"guest_failed\">";

	switch ($ERROR) {
		case CODE_WRONG_PASS:
			$MSG .= LOGIN_WRONG_PASS;
			break;

		case CODE_WRONG_ID:
			$MSG .= LOGIN_WRONG_ID;
			break;

		case CODE_ID_LOCKED:
			$MSG .= LOGIN_ID_LOCKED;
			break;

		case CODE_ID_UNCONFIRMED:
			$MSG .= LOGIN_ID_UNCONFIRMED;
			break;

		case CODE_NO_COOKIES:
			$MSG .= LOGIN_NO_COOKIES;
			break;

		case CODE_EXTENSION_PROBLEM:
			if (IS_ADMIN()) {
				$MSG .= sprintf(EXTENSION_PROBLEM_NOT_INSTALLED, "nickname");
			} else {
				$MSG .= LOGIN_WRONG_ID;
			}
			break;

		default:
			DEBUG_LOG(__FILE__, __LINE__, sprintf("Unhandled error code %s detected.", $ERROR));
			$MSG .= LOGIN_WRONG_ID;
			break;
		}
		$MSG .= "</SPAN></STRONG>
  </TD>
  <TD width=\"10\">&nbsp;</TD>
</TR>\n";
		define('LOGIN_FAILURE_MSG', $MSG);
} else {
	// No problems, no output
	define('LOGIN_FAILURE_MSG', "");
}

// Display login form with resend-password form
if (EXT_IS_ACTIVE("nickname")) {
	LOAD_TEMPLATE("guest_nickname_login");
} else {
	LOAD_TEMPLATE("guest_login");
}

// Was an URL constructed?
if (!empty($URL)) {
	// URL was constructed
	if (!empty($FATAL[0])) {
		// Fatal errors!
		require_once(PATH."inc/fatal_errors.php");
	} else {
		// Load URL
		LOAD_URL($URL);
	}
} // END - if

//
?>