- $_SESSION['auth'] = AUTH_MDP;
-
- /***********************************************************/
- /************* envoi d'un mail au démarcheur ***************/
- /***********************************************************/
- $res = XDB::iterRow(
- "SELECT DISTINCT sa.alias, IF(s.nom_usage,s.nom_usage,s.nom) AS nom,
- s.prenom, FIND_IN_SET('femme', s.flags) AS femme
- FROM register_marketing AS m
- INNER JOIN auth_user_md5 AS s ON ( m.sender = s.user_id )
- INNER JOIN aliases AS sa ON ( sa.id = m.sender
- AND FIND_IN_SET('bestalias', sa.flags) )
- WHERE m.uid = {?}", $uid);
- XDB::execute("UPDATE register_mstats SET success=NOW() WHERE uid={?}", $uid);
-
- while (list($salias, $snom, $sprenom, $sfemme) = $res->next()) {
- $mymail = new PlMailer();
- $mymail->setSubject("$prenom $nom s'est inscrit à Polytechnique.org !");
- $mymail->setFrom('"Marketing Polytechnique.org" <register@' . $globals->mail->domain . '>');
- $mymail->addTo("\"$sprenom $snom\" <$salias@{$globals->mail->domain}>");
- $msg = ($sfemme?'Chère':'Cher')." $sprenom,\n\n"
- . "Nous t'écrivons pour t'informer que $prenom $nom (X$promo), "
- . "que tu avais incité".($femme?'e':'')." à s'inscrire à Polytechnique.org, "
- . "vient à l'instant de terminer son inscription.\n\n"
- . "Merci de ta participation active à la reconnaissance de ce site !!!\n\n"
- . "Bien cordialement,\n"
- . "L'équipe Polytechnique.org";
+
+ // 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);