projects / platal.git / blame_incremental
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (non-incremental) | history | HEAD
Merge commit 'origin/master' into hruid.
[platal.git] / modules / marketing.php
... / ...
CommitLineData
1<?php
2/***************************************************************************
3 * Copyright (C) 2003-2008 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
5 * *
6 * This program is free software; you can redistribute it and/or modify *
7 * it under the terms of the GNU General Public License as published by *
8 * the Free Software Foundation; either version 2 of the License, or *
9 * (at your option) any later version. *
10 * *
11 * This program is distributed in the hope that it will be useful, *
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
14 * GNU General Public License for more details. *
15 * *
16 * You should have received a copy of the GNU General Public License *
17 * along with this program; if not, write to the Free Software *
18 * Foundation, Inc., *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
21
22class MarketingModule extends PLModule
23{
24 function handlers()
25 {
26 return array(
27 'marketing' => $this->make_hook('marketing', AUTH_MDP, 'admin'),
28 'marketing/promo' => $this->make_hook('promo', AUTH_MDP, 'admin'),
29 'marketing/relance' => $this->make_hook('relance', AUTH_MDP, 'admin'),
30 'marketing/this_week' => $this->make_hook('week', AUTH_MDP, 'admin'),
31 'marketing/volontaire' => $this->make_hook('volontaire', AUTH_MDP, 'admin'),
32
33 'marketing/private' => $this->make_hook('private', AUTH_MDP, 'admin'),
34 'marketing/public' => $this->make_hook('public', AUTH_COOKIE),
35 'marketing/broken' => $this->make_hook('broken', AUTH_COOKIE),
36 );
37 }
38
39 function handler_marketing(&$page)
40 {
41 $page->changeTpl('marketing/index.tpl');
42
43 $page->setTitle('Polytechnique.org - Marketing');
44
45 // Quelques statistiques
46
47 $res = XDB::query(
48 "SELECT COUNT(*) AS vivants,
49 COUNT(NULLIF(perms='admin' OR perms='user', 0)) AS inscrits,
50 100*COUNT(NULLIF(perms='admin' OR perms='user', 0))/COUNT(*) AS ins_rate,
51 COUNT(NULLIF(promo >= 1972, 0)) AS vivants72,
52 COUNT(NULLIF(promo >= 1972 AND (perms='admin' OR perms='user'), 0)) AS inscrits72,
53 100 * COUNT(NULLIF(promo >= 1972 AND (perms='admin' OR perms='user'), 0)) /
54 COUNT(NULLIF(promo >= 1972, 0)) AS ins72_rate,
55 COUNT(NULLIF(FIND_IN_SET('femme', flags), 0)) AS vivantes,
56 COUNT(NULLIF(FIND_IN_SET('femme', flags) AND (perms='admin' OR perms='user'), 0)) AS inscrites,
57 100 * COUNT(NULLIF(FIND_IN_SET('femme', flags) AND (perms='admin' OR perms='user'), 0)) /
58 COUNT(NULLIF(FIND_IN_SET('femme', flags), 0)) AS inse_rate
59 FROM auth_user_md5
60 WHERE deces = 0");
61 $stats = $res->fetchOneAssoc();
62 $page->assign('stats', $stats);
63
64 $res = XDB::query("SELECT count(*) FROM auth_user_md5 WHERE date_ins > ".
65 date('Ymd000000', strtotime('1 week ago')));
66 $page->assign('nbInsSem', $res->fetchOneCell());
67
68 $res = XDB::query("SELECT count(*) FROM register_pending WHERE hash != 'INSCRIT'");
69 $page->assign('nbInsEnCours', $res->fetchOneCell());
70
71 $res = XDB::query("SELECT count(*) FROM register_marketing");
72 $page->assign('nbInsMarket', $res->fetchOneCell());
73
74 $res = XDB::query("SELECT count(*) FROM register_mstats
75 WHERE TO_DAYS(NOW()) - TO_DAYS(success) <= 7");
76 $page->assign('nbInsMarkOK', $res->fetchOneCell());
77 }
78
79 function handler_private(&$page, $uid = null,
80 $action = null, $value = null)
81 {
82 global $globals;
83 $page->changeTpl('marketing/private.tpl');
84
85 if (is_null($uid)) {
86 return PL_NOT_FOUND;
87 }
88
89 $page->assign('path', 'marketing/private/'.$uid);
90
91 $res = XDB::query("SELECT nom, prenom, promo, matricule
92 FROM auth_user_md5
93 WHERE user_id={?} AND perms='pending'", $uid);
94
95 if (list($nom, $prenom, $promo, $matricule) = $res->fetchOneRow()) {
96 require_once('user.func.inc.php');
97 $matricule_X = get_X_mat($matricule);
98 $page->assign('nom', $nom);
99 $page->assign('prenom', $prenom);
100 $page->assign('promo', $promo);
101 $page->assign('matricule', $matricule);
102 $page->assign('matricule_X',$matricule_X);
103 } else {
104 $page->kill('uid invalide');
105 }
106
107 if ($action == 'del') {
108 Marketing::clear($uid, $value);
109 }
110
111 if ($action == 'rel') {
112 $market = Marketing::get($uid, $value);
113 if ($market == null) {
114 $page->trigWarning("Aucun marketing n'a été effectué vers $value");
115 } else {
116 $to = $market->user['to'];
117 $title = $market->getTitle();
118 $text = $market->getText();
119 $from = $market->sender_mail;
120 $page->assign('rel_from_user', $from);
121 $page->assign('rel_from_staff',
122 '"Equipe Polytechnique.org" <register@' . $globals->mail->domain . '>');
123 $page->assign('rel_to', $to);
124 $page->assign('rel_title', $title);
125 $page->assign('rel_text', $text);
126 $page->assign('rel_email', $value);
127 }
128 }
129
130 if ($action == 'relforce') {
131 $market = Marketing::get($uid, Post::v('to'));
132 if (is_null($market)) {
133 $market = new Marketing($uid, Post::v('to'), 'default', null, 'staff');
134 }
135 $market->send(Post::v('title'), Post::v('message'));
136 $page->trigSuccess("Mail envoyé");
137 }
138
139 if ($action == 'insrel') {
140 if (Marketing::relance($uid)) {
141 $page->trigSuccess('relance faite');
142 }
143 }
144
145 if ($action == 'add' && Post::has('email') && Post::has('type')) {
146 $market = new Marketing($uid, Post::v('email'), 'default', null, Post::v('type'), S::v('uid'));
147 $market->add(false);
148 }
149
150 $res = XDB::iterator(
151 "SELECT r.*, a.alias
152 FROM register_marketing AS r
153 INNER JOIN aliases AS a ON (r.sender=a.id AND a.type = 'a_vie')
154 WHERE uid={?}
155 ORDER BY date", $uid);
156 $page->assign('addr', $res);
157
158 $res = XDB::query("SELECT date, relance FROM register_pending
159 WHERE uid = {?}", $uid);
160 if (list($pending, $relance) = $res->fetchOneRow()) {
161 $page->assign('pending', $pending);
162 $page->assign('relance', $relance);
163 }
164 }
165
166 function handler_broken(&$page, $uid = null)
167 {
168 $page->changeTpl('marketing/broken.tpl');
169
170 if (is_null($uid)) {
171 return PL_NOT_FOUND;
172 }
173
174 $user = User::get($uid);
175 if (!$user) {
176 return PL_NOT_FOUND;
177 } elseif ($user->login() == S::user()->login()) {
178 pl_redirect('emails/redirect');
179 }
180
181 $res = Xdb::query("SELECT u.nom, u.prenom, u.promo, FIND_IN_SET('femme', u.flags) AS sexe,
182 u.deces = '0000-00-00' AS alive, u.hruid, a.alias AS forlife, b.alias AS bestalias,
183 IF(e.email IS NOT NULL, e.email, IF(FIND_IN_SET('googleapps', u.mail_storage), 'googleapps', NULL)) AS email, e.last
184 FROM auth_user_md5 AS u
185 INNER JOIN aliases AS a ON (a.id = u.user_id AND a.type = 'a_vie')
186 INNER JOIN aliases AS b ON (b.id = u.user_id AND FIND_IN_SET('bestalias', b.flags))
187 LEFT JOIN emails AS e ON (e.flags = 'active' AND e.uid = u.user_id)
188 WHERE u.hruid = {?}
189 ORDER BY e.panne_level, e.last", $user->login());
190 if (!$res->numRows()) {
191 return PL_NOT_FOUND;
192 }
193 $user_data = $res->fetchOneAssoc();
194 $page->assign('user', $user_data);
195
196 $email = null;
197 if (Post::has('mail')) {
198 require_once 'emails.inc.php';
199 $email = valide_email(Post::v('mail'));
200 }
201 if (Post::has('valide') && isvalid_email_redirection($email)) {
202 // security stuff
203 check_email($email, "Proposition d'une adresse surveillee pour " . $user->login() . " par " . S::user()->login());
204 $res = XDB::query("SELECT flags
205 FROM emails
206 WHERE email = {?} AND uid = {?}", $email, $user->id());
207 $state = $res->numRows() ? $res->fetchOneCell() : null;
208 if ($state == 'panne') {
209 $page->trigWarning("L'adresse que tu as fournie est l'adresse actuelle de {$user_data['prenom']} et est en panne.");
210 } elseif ($state == 'active') {
211 $page->trigWarning("L'adresse que tu as fournie est l'adresse actuelle de {$user_data['prenom']}");
212 } elseif ($user_data['email'] && !trim(Post::v('comment'))) {
213 $page->trigError("Il faut que tu ajoutes un commentaire à ta proposition pour justifier le "
214 . "besoin de changer la redirection de " . $user_data['prenom']);
215 } else {
216 require_once 'validations.inc.php';
217 $valid = new BrokenReq(S::i('uid'), $user_data, $email, trim(Post::v('comment')));
218 $valid->submit();
219 $page->assign('sent', true);
220 }
221 } elseif ($email) {
222 $page->trigError("L'adresse proposée n'est pas une adresse acceptable pour une redirection");
223 }
224 }
225
226 function handler_promo(&$page, $promo = null)
227 {
228 $page->changeTpl('marketing/promo.tpl');
229
230 if (is_null($promo)) {
231 $promo = S::v('promo');
232 }
233 $page->assign('promo', $promo);
234
235 $sql = "SELECT u.user_id, u.nom, u.prenom, u.last_known_email, u.matricule_ax,
236 IF(MAX(m.last) > p.relance, MAX(m.last), p.relance) AS dern_rel, p.email
237 FROM auth_user_md5 AS u
238 LEFT JOIN register_pending AS p ON p.uid = u.user_id
239 LEFT JOIN register_marketing AS m ON m.uid = u.user_id
240 WHERE u.promo = {?} AND u.deces = 0 AND u.perms='pending'
241 GROUP BY u.user_id
242 ORDER BY nom, prenom";
243 $page->assign('nonins', XDB::iterator($sql, $promo));
244 }
245
246 function handler_public(&$page, $uid = null)
247 {
248 $page->changeTpl('marketing/public.tpl');
249
250 if (is_null($uid)) {
251 return PL_NOT_FOUND;
252 }
253
254 $res = XDB::query("SELECT nom, prenom, promo FROM auth_user_md5
255 WHERE user_id={?} AND perms='pending'", $uid);
256
257 if (list($nom, $prenom, $promo) = $res->fetchOneRow()) {
258 $page->assign('prenom', $prenom);
259 $page->assign('nom', $nom);
260 $page->assign('promo', $promo);
261
262 if (Post::has('valide')) {
263 $email = trim(Post::v('mail'));
264
265 if (!isvalid_email_redirection($email)) {
266 $page->trigError("Email invalide !");
267 } else {
268 // On cherche les marketings précédents sur cette adresse
269 // email, en se restreignant au dernier mois
270
271 if (Marketing::get($uid, $email, true)) {
272 $page->assign('already', true);
273 } else {
274 $page->assign('ok', true);
275 check_email($email, "Une adresse surveillée est proposée au marketing par " . S::v('forlife'));
276 $market = new Marketing($uid, $email, 'default', null, Post::v('origine'), S::v('uid'));
277 $market->add();
278 }
279 }
280 }
281 }
282 }
283
284 function handler_week(&$page, $sorting = 'per_promo')
285 {
286 $page->changeTpl('marketing/this_week.tpl');
287
288 $sort = $sorting == 'per_promo' ? 'promo' : 'date_ins';
289
290 $sql = "SELECT a.alias AS forlife, u.date_ins, u.promo, u.nom, u.prenom
291 FROM auth_user_md5 AS u
292 INNER JOIN aliases AS a ON (u.user_id = a.id AND a.type='a_vie')
293 WHERE u.date_ins > ".date("Ymd000000", strtotime ('1 week ago'))."
294 ORDER BY u.$sort DESC";
295 $page->assign('ins', XDB::iterator($sql));
296 }
297
298 function handler_volontaire(&$page, $promo = null)
299 {
300 $page->changeTpl('marketing/volontaire.tpl');
301
302 $res = XDB::query(
303 "SELECT
304 DISTINCT a.promo
305 FROM register_marketing AS m
306 INNER JOIN auth_user_md5 AS a ON a.user_id = m.uid
307 ORDER BY a.promo");
308 $page->assign('promos', $res->fetchColumn());
309
310
311 if (!is_null($promo)) {
312 $sql = "SELECT a.nom, a.prenom, a.user_id,
313 m.email, sa.alias AS forlife
314 FROM register_marketing AS m
315 INNER JOIN auth_user_md5 AS a ON a.user_id = m.uid AND a.promo = {?}
316 INNER JOIN aliases AS sa ON (m.sender = sa.id AND sa.type='a_vie')
317 ORDER BY a.nom";
318 $page->assign('addr', XDB::iterator($sql, $promo));
319 }
320 }
321
322 function handler_relance(&$page)
323 {
324 $page->changeTpl('marketing/relance.tpl');
325
326 if (Post::has('relancer')) {
327 $res = XDB::query("SELECT COUNT(*) FROM auth_user_md5 WHERE deces=0");
328 $nbdix = $res->fetchOneCell();
329
330 $sent = Array();
331 foreach (array_keys($_POST['relance']) as $uid) {
332 if ($tmp = Marketing::relance($uid, $nbdix)) {
333 $sent[] = $tmp.' a été relancé';
334 }
335 }
336 $page->assign('sent', $sent);
337 }
338
339 $sql = "SELECT r.date, r.relance, r.uid, u.promo, u.nom, u.prenom
340 FROM register_pending AS r
341 INNER JOIN auth_user_md5 AS u ON r. uid = u.user_id
342 WHERE hash!='INSCRIT'
343 ORDER BY date DESC";
344 $page->assign('relance', XDB::iterator($sql));
345 }
346}
347
348// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
349?>
plat/al