Improve safeguards for NLs : send to admins first, and notify br@ when a new NL is...
[platal.git] / bin / cron / newsletters.send.php
CommitLineData
a0f05027 1#!/usr/bin/php5 -q
2<?php
3/***************************************************************************
12262f13 4 * Copyright (C) 2003-2011 Polytechnique.org *
a0f05027 5 * http://opensource.polytechnique.org/ *
6 * *
7 * This program is free software; you can redistribute it and/or modify *
8 * it under the terms of the GNU General Public License as published by *
9 * the Free Software Foundation; either version 2 of the License, or *
10 * (at your option) any later version. *
11 * *
12 * This program is distributed in the hope that it will be useful, *
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of *
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
15 * GNU General Public License for more details. *
16 * *
17 * You should have received a copy of the GNU General Public License *
18 * along with this program; if not, write to the Free Software *
19 * Foundation, Inc., *
20 * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA *
21 ***************************************************************************/
22
16925f01 23require_once './connect.db.inc.php';
84163d58 24require_once 'newsletter.inc.php';
7db71529 25ini_set('memory_limit', '128M');
a0f05027 26
84163d58
RB
27$nls = NewsLetter::getIssuesToSend();
28foreach ($nls as $nl) {
29 echo "Envoi de la lettre \"{$nl->title()}\" (Groupe {$nl->group})\n\n";
16925f01 30 echo ' ' . date("H:i:s") . " -> début de l'envoi\n";
84163d58 31 $emailsCount = $nl->sendToAll();
16925f01 32 echo ' ' . date("H:i:s") . " -> fin de l'envoi\n\n";
84163d58 33 echo $emailsCount . " emails ont été envoyés lors de cet envoi.\n\n";
a0f05027 34}
35
a7de4ef7 36// vim:set et sw=4 sts=4 sws=4 foldmethod=marker enc=utf-8:
a0f05027 37?>