include/xnet/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 require_once 'diogenes/diogenes.hermes.inc.php';
  23
  24 // {{{ get_all_redirects
  25
  26 function get_all_redirects($membres, $mls, &$client)
  27 {
  28     global $globals;
  29
  30     $tos = array();
  31
  32     if ($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 = {?}', $globals->asso('id'));
  42         $tos = $res->fetchAllAssoc();
  43     }
  44
  45     foreach ($mls as $ml) {
  46         if (list(,$members) = $client->get_members($ml)) {
  47             foreach ($members as $mem) {
  48                 list($m, $dom) = explode('@',$mem[1]);
  49                 if ($dom == $globals->mail->domain || $dom == $globals->mail->domain2) {
  50                     $res = XDB::query('SELECT  prenom, nom, FIND_IN_SET("femme", u.flags) AS sexe
  51                                          FROM  auth_user_md5 AS u
  52                                    INNER JOIN  aliases       AS a ON u.user_id = a.id
  53                                         WHERE  a.alias = {?}', $m);
  54                     if ($person = $res->fetchOneAssoc()) {
  55                         $person['email'] = $mem[1];
  56                         $tos[] = $person;
  57                     }
  58                 } else {
  59                     $res = XDB::query('SELECT prenom, nom, sexe FROM groupex.membres WHERE email={?}', $mem[1]);
  60                     if ($person = $res->fetchOneAssoc()) {
  61                         $person['email'] = $mem[1];
  62                         $tos[] = $person;
  63                     } else {
  64                         $tos[] = array('email' => $mem[1]);
  65                     }
  66                 }
  67             }
  68         }
  69     }
  70
  71     return $tos;
  72 }
  73
  74 // }}}
  75 // {{{ _send_xnet_mail
  76
  77 function _send_xnet_mail($user, $body, $mailer, $replyto = null)
  78 {
  79     $cher = isset($user['sexe']) ? ($user['sexe'] ? 'Chère' : 'Cher') : 'Cher(e)';
  80     $nom  = isset($user['nom']) ? $user['nom'] : "";
  81     $pnom = isset($user['prenom']) ? $user['prenom'] : preg_replace('!@.*!', '', $user['email']);
  82     $to   = isset($user['prenom']) ? "\"{$user['prenom']} {$user['nom']}\" <{$user['email']}>" : $user['email'];
  83
  84     $text = $body;
  85     $text = preg_replace('!<cher>!i',   $cher, $text);
  86     $text = preg_replace('!<nom>!i',    $nom,  $text);
  87     $text = preg_replace('!<prenom>!i', $pnom, $text);
  88
  89     $mailer->addHeader('To', $to);
  90     if ($replyto) {
  91         $mailer->addHeader('Reply-To', $replyto);
  92     }
  93     $mailer->setTxtBody(wordwrap($text, 72));
  94     $mailer->send();
  95 }
  96
  97 // }}}
  98 // {{{ send_xnet_mails
  99
 100 function send_xnet_mails($from, $sujet, $body, $tos, $replyto = null)
 101 {
 102     global $globals;
 103     $sent = array();
 104
 105     $mailer = new HermesMailer();
 106     $mailer->setSubject($sujet);
 107     $mailer->setFrom($from);
 108     $mailer->addHeader('X-Xorg-Login', S::v('bestalias') . '@' . $globals->mail->domain);
 109
 110     foreach ($tos as $user) {
 111         if ($sent[$user['email']]) continue;
 112         _send_xnet_mail($user, $body, $mailer, $replyto);
 113         $sent[$user['email']] = true;
 114     }
 115 }
 116
 117 // }}}
 118
 119 // vim:set et sw=4 sts=4 sws=4 foldmethod=marker:
 120 ?>