v('backs')->count() >= 3) {
$alert .= "Fin d'une inscription hésitante.";
}
finishRegistration($subState);
}
}
}
break;
}
$_SESSION['subState'] = $subState->dict();
if (!empty($alert)) {
send_warning_mail($alert);
}
$page->changeTpl('register/step' . $subState->i('step') . '.tpl');
$page->addJsLink('motdepasse.js');
if (isset($error)) {
$page->trigError($error);
}
}
function handler_end(&$page, $hash = null)
{
global $globals;
$_SESSION['subState'] = array('step' => 5);
// Reject registration requests from unsafe IP addresses (and remove the
// registration information from the database, to prevent IP changes).
if (check_ip('unsafe')) {
send_warning_mail('Une IP surveillée a tenté de finaliser son inscription.');
XDB::execute("DELETE FROM register_pending
WHERE hash = {?} AND hash != 'INSCRIT'", $hash);
return PL_FORBIDDEN;
}
require_once 'directory.enums.inc.php';
$nameTypes = DirEnum::getOptions(DirEnum::NAMETYPES);
$nameTypes = array_flip($nameTypes);
// Retrieve the pre-registration information using the url-provided
// authentication token.
$res = XDB::query("SELECT r.uid, p.pid, r.forlife, r.bestalias, r.mailorg2,
r.password, r.email, r.services, r.naissance,
pnl.name AS lastname, pnf.name AS firstname,
pd.promo, p.sex, p.birthdate_ref
FROM register_pending AS r
INNER JOIN accounts AS a ON (r.uid = a.uid)
INNER JOIN account_profiles AS ap ON (a.uid = ap.uid AND FIND_IN_SET('owner', ap.perms))
INNER JOIN profiles AS p ON (p.pid = ap.uid)
INNER JOIN profile_name AS pnl ON (p.pid = pnl.pid AND pnl.typeid = {?})
INNER JOIN profile_name AS pnf ON (p.pid = pnf.pid AND pnf.typeid = {?})
INNER JOIN profile_display AS pd ON (p.pid = pd.pid)
WHERE hash = {?} AND hash != 'INSCRIT'",
$nameTypes['name_ini'], $nameTypes['firstname_ini'], $hash);
if (!$hash || $res->numRows() == 0) {
$page->kill("Cette adresse n'existe pas, ou plus, sur le serveur.
Causes probables :
- Vérifie que tu visites l'adresse du dernier
email reçu s'il y en a eu plusieurs.
- Tu as peut-être mal copié l'adresse reçue par
email, vérifie-la à la main.
- Tu as peut-être attendu trop longtemps pour
confirmer. Les pré-inscriptions sont annulées
tous les 30 jours.
- Tu es en fait déjà inscrit.
");
}
list($uid, $pid, $forlife, $bestalias, $emailXorg2, $password, $email, $services,
$birthdate, $lastname, $firstname, $promo, $sex, $birthdate_ref) = $res->fetchOneRow();
$yearpromo = substr($promo, 1, 4);
// Prepare the template for display.
$page->changeTpl('register/end.tpl');
$page->addJsLink('do_challenge_response_logged.js');
$page->assign('forlife', $forlife);
$page->assign('firstname', $firstname);
// Check if the user did enter a valid password; if not (or if none is found),
// get her an information page.
if (Post::has('response')) {
$expected_response = sha1("$forlife:$password:" . S::v('challenge'));
if (Post::v('response') != $expected_response) {
$page->trigError("Mot de passe invalide.");
S::logger($uid)->log('auth_fail', 'bad password (register/end)');
return;
}
} else {
return;
}
//
// Create the user account.
//
XDB::execute("UPDATE accounts
SET password = {?}, state = 'active',
registration_date = NOW()
WHERE uid = {?}", $password, $uid);
XDB::execute("UPDATE profiles
SET birthdate = {?}, last_change = NOW()
WHERE pid = {?}", $birthdate, $pid);
XDB::execute("INSERT INTO aliases (uid, alias, type)
VALUES ({?}, {?}, 'a_vie')", $uid, $forlife);
XDB::execute("INSERT INTO aliases (uid, alias, type, flags)
VALUES ({?}, {?}, 'alias', 'bestalias')", $uid, $bestalias);
if ($emailXorg2) {
XDB::execute("INSERT INTO aliases (uid, alias, type)
VALUES ({?}, {?}, 'alias')", $uid, $emailXorg2);
}
// Add the registration email address as first and only redirection.
require_once 'emails.inc.php';
$user = User::getSilentWithUID($uid);
$redirect = new Redirect($user);
$redirect->add_email($email);
// Try to start a session (so the user don't have to log in); we will use
// the password available in Post:: to authenticate the user.
$success = Platal::session()->start(AUTH_MDP);
// Subscribe the user to the services she did request at registration time.
foreach (explode(',', $services) as $service) {
switch ($service) {
case 'ax_letter':
Platal::load('axletter', 'axletter.inc.php');
AXLetter::subscribe($uid);
break;
case 'imap':
$storage = new EmailStorage($user, 'imap');
$storage->activate();
break;
case 'ml_promo':
$r = XDB::query('SELECT id FROM groups WHERE diminutif = {?}', $yearpromo);
if ($r->numRows()) {
$asso_id = $r->fetchOneCell();
XDB::execute('REPLACE INTO group_members (uid, asso_id)
VALUES ({?}, {?})',
$uid, $asso_id);
$mmlist = new MMList($uid, S::v('password'));
$mmlist->subscribe("promo" . S::v('promo'));
}
break;
case 'nl':
require_once 'newsletter.inc.php';
NewsLetter::subscribe($uid);
break;
}
}
// Log the registration in the user session.
S::logger($uid)->log('inscription', $email);
XDB::execute("UPDATE register_pending
SET hash = 'INSCRIT'
WHERE uid = {?}", $uid);
// Congratulate our newly registered user by email.
$mymail = new PlMailer('register/success.mail.tpl');
$mymail->assign('forlife', $forlife);
$mymail->assign('firstname', $firstname);
$mymail->send();
// Index the user, to allow her to appear in searches.
Profile::rebuildSearchTokens($uid);
// Notify other users which were watching for her arrival.
XDB::execute('REPLACE INTO contacts (uid, contact)
SELECT uid, ni_id
FROM watch_nonins
WHERE ni_id = {?}', $uid);
XDB::execute('DELETE FROM watch_nonins
WHERE ni_id = {?}', $uid);
Platal::session()->updateNbNotifs();
// Forcibly register the new user on default forums.
$promoForum = 'xorg.promo.' . strtolower($promo);
$registeredForums = array('xorg.general', 'xorg.pa.divers', 'xorg.pa.logements', $promoForum);
foreach ($registeredForums as $forum) {
XDB::execute("INSERT INTO forum_subs (fid, uid)
SELECT fid, {?}
FROM forums
WHERE name = {?}",
$uid, $val);
// Notify the newsgroup admin of the promotion forum needs be created.
if (XDB::affectedRows() == 0 && $forum == $promoForum) {
$promoFull = new UserFilter(new UFC_Promo('=', UserFilter::DISPLAY, $promo));
$promoRegistered = new UserFilter(new PFC_And(
new UFC_Promo('=', UserFilter::DISPLAY, $promo),
new UFC_Registered(true),
new PFC_Not(new UFC_Dead())
));
if ($promoRegistered->getTotalCount() > 0.2 * $promoFull->getTotalCount()) {
$mymail = new PlMailer('admin/forums-promo.mail.tpl');
$mymail->assign('promo', $promo);
$mymail->send();
}
}
}
// Update the global registration count stats.
$globals->updateNbIns();
//
// Update collateral data sources, and inform watchers by email.
//
// Email the referrer(s) of this new user.
$res = XDB::iterRow("SELECT sender, GROUP_CONCAT(email SEPARATOR ', ') AS mails, MAX(last) AS lastDate
FROM register_marketing
WHERE uid = {?}
GROUP BY sender
ORDER BY lastDate DESC", $uid);
XDB::execute("UPDATE register_mstats
SET success = NOW()
WHERE uid = {?}", $uid);
while (list($senderid, $maketingEmails, $lastDate) = $res->next()) {
$sender = User::getWithUID($senderid);
$market[] = " - par $sender->fullName() sur $maketingEmails (le plus récemment le $lastDate)";
$mymail = new PlMailer('register/marketer.mail.tpl');
$mymail->setSubject("$firstname $lastname s'est inscrit à Polytechnique.org !");
$mymail->addTo("\"$sender->fullName()\" <$sender->bestEmail()@{$globals->mail->domain}>");
$mymail->assign('sender', $sender);
$mymail->assign('firstname', $firstname);
$mymail->assign('lastname', $lastname);
$mymail->assign('promo', $promo);
$mymail->assign('sex', $sex);
$mymail->setTxtBody(wordwrap($msg, 72));
$mymail->send();
}
// Email the plat/al administrators about the registration.
if ($globals->register->notif) {
$mymail = new PlMailer('register/registration.mail.tpl');
$mymail->setSubject("Inscription de $firstname $lastname ($promo)");
$mymail->assign('firstname', $firstname);
$mymail->assign('lastname', $lastname);
$mymail->assign('promo', $promo);
$mymail->assign('sex', $sex);
$mymail->assign('birthdate', $birthdate);
$mymail->assign('birthdate_ref', $birthdate_ref);
$mymail->assign('forlife', $forlife);
$mymail->assign('email', $email);
$mymail->assign('logger', S::logger());
if (count($market) > 0) {
$mymail->assign('market', implode("\n", $market));
}
$mymail->setTxtBody($msg);
$mymail->send();
}
// Remove old pending marketing requests for the new user.
Marketing::clear($uid);
pl_redirect('profile/edit');
}
}
// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
?>