friendica/mod/lostpass.php

124 lines
3.5 KiB
PHP
Raw Normal View History

2010-07-18 08:24:51 +00:00
<?php
function lostpass_post(&$a) {
$email = notags(trim($_POST['login-name']));
if(! $email)
goaway($a->get_baseurl());
$r = q("SELECT * FROM `user` WHERE ( `email` = '%s' OR `nickname` = '%s' ) LIMIT 1",
dbesc($email),
2010-07-18 08:24:51 +00:00
dbesc($email)
);
if(! count($r))
goaway($a->get_baseurl());
$uid = $r[0]['uid'];
$username = $r[0]['username'];
$new_password = autoname(12) . mt_rand(100,9999);
$new_password_encoded = hash('whirlpool',$new_password);
$r = q("UPDATE `user` SET `pwdreset` = '%s' WHERE `uid` = %d LIMIT 1",
dbesc($new_password_encoded),
intval($uid)
);
if($r)
info( t('Password reset request issued. Check your email.') . EOL);
2010-07-18 08:24:51 +00:00
2011-05-11 11:37:13 +00:00
$email_tpl = get_intltext_template("lostpass_eml.tpl");
2010-07-18 08:24:51 +00:00
$email_tpl = replace_macros($email_tpl, array(
'$sitename' => $a->config['sitename'],
'$siteurl' => $a->get_baseurl(),
'$username' => $username,
'$email' => $email,
'$reset_link' => $a->get_baseurl() . '/lostpass?verify=' . $new_password
));
2011-04-07 06:03:54 +00:00
$res = mail($email, sprintf( t('Password reset requested at %s'),$a->config['sitename']),
2011-04-15 00:13:13 +00:00
$email_tpl,
'From: ' . t('Administrator') . '@' . $_SERVER['SERVER_NAME'] . "\n"
. 'Content-type: text/plain; charset=UTF-8' . "\n"
. 'Content-transfer-encoding: 8bit' );
2010-07-18 08:24:51 +00:00
goaway($a->get_baseurl());
}
function lostpass_content(&$a) {
if(x($_GET,'verify')) {
$verify = $_GET['verify'];
$hash = hash('whirlpool', $verify);
$r = q("SELECT * FROM `user` WHERE `pwdreset` = '%s' LIMIT 1",
dbesc($hash)
);
if(! count($r)) {
2011-04-07 06:03:54 +00:00
notice( t("Request could not be verified. \x28You may have previously submitted it.\x29 Password reset failed.") . EOL);
2010-07-18 08:24:51 +00:00
goaway($a->get_baseurl());
return;
}
$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 LIMIT 1",
dbesc($new_password_encoded),
intval($uid)
);
if($r) {
2011-05-11 11:37:13 +00:00
$tpl = get_markup_template('pwdreset.tpl');
2010-07-18 08:24:51 +00:00
$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="' . $a->get_baseurl() . '">' . t('click here to login') . '</a>.',
'$lbl6' => t('Your password may be changed from the <em>Settings</em> page after successful login.'),
2010-07-18 08:24:51 +00:00
'$newpass' => $new_password,
'$baseurl' => $a->get_baseurl()
2010-07-18 08:24:51 +00:00
));
info("Your password has been reset." . EOL);
2010-07-18 08:24:51 +00:00
2011-05-11 11:37:13 +00:00
$email_tpl = get_intltext_template("passchanged_eml.tpl");
2010-07-18 08:24:51 +00:00
$email_tpl = replace_macros($email_tpl, array(
'$sitename' => $a->config['sitename'],
'$siteurl' => $a->get_baseurl(),
'$username' => $username,
'$email' => $email,
'$new_password' => $new_password,
'$uid' => $newuid ));
2011-04-15 00:13:13 +00:00
$res = mail($email,"Your password has changed at {$a->config['sitename']}",$email_tpl,
'From: ' . t('Administrator') . '@' . $_SERVER['SERVER_NAME'] . "\n"
. 'Content-type: text/plain; charset=UTF-8' . "\n"
. 'Content-transfer-encoding: 8bit' );
2010-07-18 08:24:51 +00:00
return $o;
}
}
else {
2011-05-11 11:37:13 +00:00
$tpl = get_markup_template('lostpass.tpl');
2010-07-18 08:24:51 +00:00
2011-04-07 06:03:54 +00:00
$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')
));
2010-07-18 08:24:51 +00:00
return $o;
}
}