modules/xnetgrp/mail.inc.php

   1 <?php
   2 /***************************************************************************
   3  *  Copyright (C) 2003-2006 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
  22 // {{{ get_all_redirects
  23
  24 function get_all_redirects($membres, $exclude, $mls, &$client)
  25 {
  26     global $globals;
  27
  28     $tos = array();
  29
  30     if (!empty($membres)) {
  31         $membres = array_map(create_function('$str', 'return "\"$str\"";'), $membres);
  32         $membres = join(',', $membres);
  33         $res = XDB::query(
  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")
  41                       WHERE  asso_id = {?}
  42                              AND m.origine IN (' . $membres . ')
  43                              AND (m.email <> "" OR u.perms <> "pending")', $globals->asso('id'));
  44         $tos = $res->fetchAllAssoc();
  45     }
  46
  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];
  58                         $tos[] = $person;
  59                     }
  60                 } else {
  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];
  64                         $tos[] = $person;
  65                     } else {
  66                         $tos[] = array('email' => $mem[1]);
  67                     }
  68                 }
  69             }
  70         }
  71     }
  72
  73     return $tos;
  74 }
  75
  76 // }}}
  77 // {{{ _send_xnet_mail
  78
  79 function _send_xnet_mail($user, $body, $mailer, $replyto = null)
  80 {
  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('!@.*!', '', $user['email']);
  84     $to   = isset($user['prenom']) ? "\"{$user['prenom']} {$user['nom']}\" <{$user['email']}>" : $user['email'];
  85
  86     $text = $body;
  87     $text = preg_replace('!<cher>!i',   $cher, $text);
  88     $text = preg_replace('!<nom>!i',    $nom,  $text);
  89     $text = preg_replace('!<prenom>!i', $pnom, $text);
  90
  91     $mailer->addHeader('To', $to);
  92     if ($replyto) {
  93         $mailer->addHeader('Reply-To', $replyto);
  94     }
  95     $mailer->setTxtBody(wordwrap($text, 72));
  96 //    $mailer->send();
  97 }
  98
  99 // }}}
 100 // {{{ send_xnet_mails
 101
 102 function send_xnet_mails($from, $sujet, $body, $tos, $replyto = null)
 103 {
 104     global $globals;
 105     $sent = array();
 106
 107     $mailer = new PlMailer();
 108     $mailer->setSubject($sujet);
 109     $mailer->setFrom($from);
 110
 111     foreach ($tos as $user) {
 112         if ($sent[$user['email']]) continue;
 113         _send_xnet_mail($user, $body, $mailer, $replyto);
 114         $sent[$user['email']] = true;
 115     }
 116 }
 117
 118 // }}}
 119
 120 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
 121 ?>