2 /***************************************************************************
3 * Copyright (C) 2003-2008 Polytechnique.org *
4 * http://opensource.polytechnique.org/ *
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. *
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. *
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 *
19 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
20 ***************************************************************************/
22 // {{{ get_all_redirects
24 function get_all_redirects($membres, $mls, &$client)
30 if (!empty($membres)) {
31 $membres = array_map(create_function('$str', 'return "\"$str\"";'), $membres);
32 $membres = join(',', $membres);
34 'SELECT IF(u.nom <> "", u.nom, m.nom) AS nom,
35 IF(u.prenom <> "", u.prenom, m.prenom) AS prenom,
36 IF(m.email <> "", m.email, CONCAT(a.alias, "@polytechnique.org")) as email,
37 IF(m.sexe IS NULL, FIND_IN_SET("femme", u.flags), m.sexe) AS sexe
38 FROM groupex.membres AS m
39 LEFT JOIN auth_user_md5 AS u ON (m.uid=u.user_id AND m.uid<50000)
40 LEFT JOIN aliases AS a ON (a.id=u.user_id and a.type="a_vie")
42 AND m.origine IN (' . $membres . ')
43 AND (m.email <> "" OR u.perms <> "pending")', $globals->asso('id'));
44 $tos = $res->fetchAllAssoc();
47 foreach ($mls as $ml) {
48 if (list(,$members) = $client->get_members($ml)) {
49 foreach ($members as $mem) {
50 list($m, $dom) = explode('@',$mem[1]);
51 if ($dom == $globals->mail
->domain ||
$dom == $globals->mail
->domain2
) {
52 $res = XDB
::query('SELECT prenom, nom, FIND_IN_SET("femme", u.flags) AS sexe
53 FROM auth_user_md5 AS u
54 INNER JOIN aliases AS a ON u.user_id = a.id
55 WHERE a.alias = {?}', $m);
56 if ($person = $res->fetchOneAssoc()) {
57 $person['email'] = $mem[1];
61 $res = XDB
::query('SELECT prenom, nom, sexe FROM groupex.membres WHERE email={?}', $mem[1]);
62 if ($person = $res->fetchOneAssoc()) {
63 $person['email'] = $mem[1];
66 $tos[] = array('email' => $mem[1]);
77 // {{{ _send_xnet_mail
79 function _send_xnet_mail($user, $body, $wiki, $mailer, $replyto = null
)
81 $cher = isset($user['sexe']) ?
($user['sexe'] ?
'Chère' : 'Cher') : 'Cher(e)';
82 $nom = isset($user['nom']) ?
$user['nom'] : "";
83 $pnom = isset($user['prenom']) ?
$user['prenom'] : preg_replace('!@.*!u', '', $user['email']);
84 $to = isset($user['prenom']) ?
"\"{$user['prenom']} {$user['nom']}\" <{$user['email']}>" : $user['email'];
87 $text = preg_replace('!<cher>!i', $cher, $text);
88 $text = preg_replace('!<nom>!i', $nom, $text);
89 $text = preg_replace('!<prenom>!i', $pnom, $text);
91 $mailer->addHeader('To', $to);
93 $mailer->addHeader('Reply-To', $replyto);
96 $mailer->setWikiBody($text);
98 $mailer->setTxtBody(wordwrap($text, 72));
104 // {{{ send_xnet_mails
106 function send_xnet_mails($from, $sujet, $body, $wiki, $tos, $replyto = null
, $upload = null
, $name = null
)
111 $mailer = new PlMailer();
112 $mailer->setSubject($sujet);
113 $mailer->setFrom($from);
114 if ($upload && $upload->exists()) {
115 $mailer->addUploadAttachment($upload, $name);
118 foreach ($tos as $user) {
119 if ($sent[$user['email']]) continue;
120 _send_xnet_mail($user, $body, $wiki, $mailer, $replyto);
121 $sent[$user['email']] = true
;
127 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8: