<?php
+/**
+ * @copyright Copyright (C) 2010-2021, the Friendica project
+ *
+ * @license GNU AGPL version 3 or any later version
+ *
+ * This program is free software: you can redistribute it and/or modify
+ * it under the terms of the GNU Affero General Public License as
+ * published by the Free Software Foundation, either version 3 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 Affero General Public License for more details.
+ *
+ * You should have received a copy of the GNU Affero General Public License
+ * along with this program. If not, see <https://www.gnu.org/licenses/>.
+ *
+ */
use Friendica\App;
-use Friendica\Core\System;
-
-require_once('include/email.php');
-require_once('include/enotify.php');
-require_once('include/text.php');
-
-function lostpass_post(App $a) {
-
- $loginame = notags(trim($_POST['login-name']));
- if(! $loginame)
- goaway(z_root());
-
- $r = q("SELECT * FROM `user` WHERE ( `email` = '%s' OR `nickname` = '%s' ) AND `verified` = 1 AND `blocked` = 0 LIMIT 1",
- dbesc($loginame),
- dbesc($loginame)
- );
-
- if (! dbm::is_result($r)) {
- notice( t('No valid account found.') . EOL);
- goaway(z_root());
+use Friendica\Core\Renderer;
+use Friendica\Database\DBA;
+use Friendica\DI;
+use Friendica\Model\User;
+use Friendica\Util\DateTimeFormat;
+use Friendica\Util\Strings;
+
+function lostpass_post(App $a)
+{
+ $loginame = Strings::escapeTags(trim($_POST['login-name']));
+ if (!$loginame) {
+ DI::baseUrl()->redirect();
}
- $uid = $r[0]['uid'];
- $username = $r[0]['username'];
- $email = $r[0]['email'];
-
- $new_password = autoname(12) . mt_rand(100,9999);
- $new_password_encoded = hash('whirlpool',$new_password);
+ $condition = ['(`email` = ? OR `nickname` = ?) AND `verified` = 1 AND `blocked` = 0', $loginame, $loginame];
+ $user = DBA::selectFirst('user', ['uid', 'username', 'nickname', 'email', 'language'], $condition);
+ if (!DBA::isResult($user)) {
+ notice(DI::l10n()->t('No valid account found.'));
+ DI::baseUrl()->redirect();
+ }
- $r = q("UPDATE `user` SET `pwdreset` = '%s' WHERE `uid` = %d",
- dbesc($new_password_encoded),
- intval($uid)
- );
- if($r)
- info( t('Password reset request issued. Check your email.') . EOL);
+ $pwdreset_token = Strings::getRandomHex(32);
+ $fields = [
+ 'pwdreset' => hash('sha256', $pwdreset_token),
+ 'pwdreset_time' => DateTimeFormat::utcNow()
+ ];
+ $result = DBA::update('user', $fields, ['uid' => $user['uid']]);
+ if ($result) {
+ info(DI::l10n()->t('Password reset request issued. Check your email.'));
+ }
- $sitename = $a->config['sitename'];
- $resetlink = App::get_baseurl() . '/lostpass?verify=' . $new_password;
+ $sitename = DI::config()->get('config', 'sitename');
+ $resetlink = DI::baseUrl() . '/lostpass/' . $pwdreset_token;
- $preamble = deindent(t('
+ $preamble = Strings::deindent(DI::l10n()->t('
Dear %1$s,
A request was recently received at "%2$s" to reset your account
password. In order to confirm this request, please select the verification link
below or paste it into your web browser address bar.
If you did NOT request this change, please DO NOT follow the link
- provided and ignore and/or delete this email.
+ provided and ignore and/or delete this email, the request will expire shortly.
Your password will not be changed unless we can verify that you
- issued this request.'));
- $body = deindent(t('
- Follow this link to verify your identity:
+ issued this request.', $user['username'], $sitename));
+ $body = Strings::deindent(DI::l10n()->t('
+ Follow this link soon to verify your identity:
%1$s
The login details are as follows:
Site Location: %2$s
- Login Name: %3$s'));
+ Login Name: %3$s', $resetlink, DI::baseUrl(), $user['nickname']));
- $preamble = sprintf($preamble, $username, $sitename);
- $body = sprintf($body, $resetlink, App::get_baseurl(), $email);
-
- notification(array(
- 'type' => "SYSTEM_EMAIL",
- 'to_email' => $email,
- 'subject'=> sprintf( t('Password reset requested at %s'),$sitename),
- 'preamble'=> $preamble,
- 'body' => $body));
-
- goaway(z_root());
+ $email = DI::emailer()
+ ->newSystemMail()
+ ->withMessage(DI::l10n()->t('Password reset requested at %s', $sitename), $preamble, $body)
+ ->forUser($user)
+ ->withRecipient($user['email'])
+ ->build();
+ DI::emailer()->send($email);
+ DI::baseUrl()->redirect();
}
+function lostpass_content(App $a)
+{
+ if (DI::args()->getArgc() > 1) {
+ $pwdreset_token = DI::args()->getArgv()[1];
-function lostpass_content(App $a) {
+ $user = DBA::selectFirst('user', ['uid', 'username', 'nickname', 'email', 'pwdreset_time', 'language'], ['pwdreset' => hash('sha256', $pwdreset_token)]);
+ if (!DBA::isResult($user)) {
+ notice(DI::l10n()->t("Request could not be verified. \x28You may have previously submitted it.\x29 Password reset failed."));
+ return lostpass_form();
+ }
- if(x($_GET,'verify')) {
- $verify = $_GET['verify'];
- $hash = hash('whirlpool', $verify);
+ // Password reset requests expire in 60 minutes
+ if ($user['pwdreset_time'] < DateTimeFormat::utc('now - 1 hour')) {
+ $fields = [
+ 'pwdreset' => null,
+ 'pwdreset_time' => null
+ ];
+ DBA::update('user', $fields, ['uid' => $user['uid']]);
- $r = q("SELECT * FROM `user` WHERE `pwdreset` = '%s' LIMIT 1",
- dbesc($hash)
- );
- if (! dbm::is_result($r)) {
- $o = t("Request could not be verified. \x28You may have previously submitted it.\x29 Password reset failed.");
- return $o;
- }
- $uid = $r[0]['uid'];
- $username = $r[0]['username'];
- $email = $r[0]['email'];
-
- $new_password = autoname(6) . mt_rand(100,9999);
- $new_password_encoded = hash('whirlpool',$new_password);
-
- $r = q("UPDATE `user` SET `password` = '%s', `pwdreset` = '' WHERE `uid` = %d",
- dbesc($new_password_encoded),
- intval($uid)
- );
-
- /// @TODO Is dbm::is_result() okay here?
- if ($r) {
- $tpl = get_markup_template('pwdreset.tpl');
- $o .= replace_macros($tpl,array(
- '$lbl1' => t('Password Reset'),
- '$lbl2' => t('Your password has been reset as requested.'),
- '$lbl3' => t('Your new password is'),
- '$lbl4' => t('Save or copy your new password - and then'),
- '$lbl5' => '<a href="' . App::get_baseurl() . '">' . t('click here to login') . '</a>.',
- '$lbl6' => t('Your password may be changed from the <em>Settings</em> page after successful login.'),
- '$newpass' => $new_password,
- '$baseurl' => App::get_baseurl()
-
- ));
- info("Your password has been reset." . EOL);
-
-
- $sitename = $a->config['sitename'];
- // $username, $email, $new_password
- $preamble = deindent(t('
- Dear %1$s,
- Your password has been changed as requested. Please retain this
- information for your records (or change your password immediately to
- something that you will remember).
- '));
- $body = deindent(t('
- Your login details are as follows:
-
- Site Location: %1$s
- Login Name: %2$s
- Password: %3$s
-
- You may change that password from your account settings page after logging in.
- '));
-
- $preamble = sprintf($preamble, $username);
- $body = sprintf($body, App::get_baseurl(), $email, $new_password);
-
- notification(array(
- 'type' => "SYSTEM_EMAIL",
- 'to_email' => $email,
- 'subject'=> sprintf( t('Your password has been changed at %s'),$sitename),
- 'preamble'=> $preamble,
- 'body' => $body));
-
- return $o;
+ notice(DI::l10n()->t('Request has expired, please make a new one.'));
+
+ return lostpass_form();
}
+ return lostpass_generate_password($user);
+ } else {
+ return lostpass_form();
}
- else {
- $tpl = get_markup_template('lostpass.tpl');
+}
- $o .= replace_macros($tpl,array(
- '$title' => t('Forgot your Password?'),
- '$desc' => t('Enter your email address and submit to have your password reset. Then check your email for further instructions.'),
- '$name' => t('Nickname or Email: '),
- '$submit' => t('Reset')
- ));
+function lostpass_form()
+{
+ $tpl = Renderer::getMarkupTemplate('lostpass.tpl');
+ $o = Renderer::replaceMacros($tpl, [
+ '$title' => DI::l10n()->t('Forgot your Password?'),
+ '$desc' => DI::l10n()->t('Enter your email address and submit to have your password reset. Then check your email for further instructions.'),
+ '$name' => DI::l10n()->t('Nickname or Email: '),
+ '$submit' => DI::l10n()->t('Reset')
+ ]);
+
+ return $o;
+}
- return $o;
+function lostpass_generate_password($user)
+{
+ $o = '';
+
+ $new_password = User::generateNewPassword();
+ $result = User::updatePassword($user['uid'], $new_password);
+ if (DBA::isResult($result)) {
+ $tpl = Renderer::getMarkupTemplate('pwdreset.tpl');
+ $o .= Renderer::replaceMacros($tpl, [
+ '$lbl1' => DI::l10n()->t('Password Reset'),
+ '$lbl2' => DI::l10n()->t('Your password has been reset as requested.'),
+ '$lbl3' => DI::l10n()->t('Your new password is'),
+ '$lbl4' => DI::l10n()->t('Save or copy your new password - and then'),
+ '$lbl5' => '<a href="' . DI::baseUrl() . '">' . DI::l10n()->t('click here to login') . '</a>.',
+ '$lbl6' => DI::l10n()->t('Your password may be changed from the <em>Settings</em> page after successful login.'),
+ '$newpass' => $new_password,
+ ]);
+
+ info(DI::l10n()->t("Your password has been reset."));
+
+ $sitename = DI::config()->get('config', 'sitename');
+ $preamble = Strings::deindent(DI::l10n()->t('
+ Dear %1$s,
+ Your password has been changed as requested. Please retain this
+ information for your records ' . "\x28" . 'or change your password immediately to
+ something that you will remember' . "\x29" . '.
+ ', $user['username']));
+ $body = Strings::deindent(DI::l10n()->t('
+ Your login details are as follows:
+
+ Site Location: %1$s
+ Login Name: %2$s
+ Password: %3$s
+
+ You may change that password from your account settings page after logging in.
+ ', DI::baseUrl(), $user['nickname'], $new_password));
+
+ $email = DI::emailer()
+ ->newSystemMail()
+ ->withMessage(DI::l10n()->t('Your password has been changed at %s', $sitename), $preamble, $body)
+ ->forUser($user)
+ ->withRecipient($user['email'])
+ ->build();
+ DI::emailer()->send($email);
}
+ return $o;
}