array_push($files, 'newsletter/files/' . $row['file_real_name']);
$logdata['log_body_html'] = preg_replace('/<(.+?)"cid:' . preg_quote($row['file_real_name'], '/') . '"([^>]*)?>/si', '<\\1"files/' . $row['file_real_name'] . '"\\2>', $logdata['log_body_html']);
}
//
// Traitement des caractères invalides provenant de Windows-1252
// - Pour le format texte, passage à l'utf-8, pas d'alternative
// - Pour le format HTML, transformation des caractères en cause
// dans leur équivalent en référence d'entité numérique.
//
if (preg_match('/[\\x80-\\x9F]/', $logdata['log_body_text'])) {
$logdata['log_body_text'] = wan_utf8_encode($logdata['log_body_text']);
$logdata['log_body_text'] = "" . $logdata['log_body_text'];
// Ajout du BOM
}
if (preg_match('/[\\x80-\\x9F]/', $logdata['log_body_html'])) {
$logdata['log_body_html'] = purge_latin1($logdata['log_body_html']);
}
$fw = fopen('newsletter/newsletter.txt', 'wb');
fwrite($fw, $logdata['log_body_text']);
fclose($fw);
$fw = fopen('newsletter/newsletter.html', 'wb');
fwrite($fw, $logdata['log_body_html']);
fclose($fw);
$archive->create($files);
foreach ($files as $file) {
unlink($file);
}
require WA_ROOTDIR . '/includes/class.attach.php';
Attach::send_file($archive_name, $mime_type, implode('', file($archive_name)));
} else {
if ($mode == 'iframe') {
/**
* Envoi des en-têtes appropriés et d'une page html simplifiée avec les données fournies
* Termine également l'exécution du script
*
* @param string $content
* @param string $page_title
*
* @access public
* @return void
*/
function basic($content, $page_title = '')
{
global $lang;
$lg = !empty($lang['CONTENT_LANG']) ? $lang['CONTENT_LANG'] : 'fr';
$dir = !empty($lang['CONTENT_DIR']) ? $lang['CONTENT_DIR'] : 'ltr';
$charset = !empty($lang['CHARSET']) ? $lang['CHARSET'] : 'ISO-8859-1';
$content = purge_latin1($content);
$this->send_headers();
echo <<<BASIC
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="{$lg}" lang="{$lg}" dir="{$dir}">
<head>
\t{$this->meta_redirect}
\t<title>{$page_title}</title>
\t
\t<style type="text/css" media="screen">
\tbody { margin: 10px; text-align: left; }
\t</style>
</head>
<body>
\t<div>{$content}</div>
</body>
</html>
BASIC;
exit;
}
$listdata = $abodata['listes'][$row['liste_id']];
$format = $abodata['listes'][$row['liste_id']]['format'];
//
// On traite les données de la newsletter à envoyer
//
if (preg_match('/[\\x80-\\x9F]/', $row['log_subject']) || preg_match('/[\\x80-\\x9F]/', $row['log_body_text']) || preg_match('/[\\x80-\\x9F]/', $row['log_body_html'])) {
if (TRANSLITE_INVALID_CHARS == false) {
$row['log_subject'] = wan_utf8_encode($row['log_subject']);
$row['log_body_text'] = wan_utf8_encode($row['log_body_text']);
$row['log_body_html'] = wan_utf8_encode($row['log_body_html']);
$lang['Label_link'] = $lang['Label_link::utf8'];
$mailer->set_charset('UTF-8');
} else {
$row['log_subject'] = purge_latin1($row['log_subject'], true);
$row['log_body_text'] = purge_latin1($row['log_body_text'], true);
$row['log_body_html'] = purge_latin1($row['log_body_html']);
}
}
$mailer->clear_all();
$mailer->set_from($listdata['sender_email'], unhtmlspecialchars($listdata['liste_name']));
$mailer->set_address($address);
$mailer->set_format($format);
$mailer->set_subject($row['log_subject']);
if ($listdata['return_email'] != '') {
$mailer->set_return_path($listdata['return_email']);
}
if ($format == FORMAT_TEXTE) {
$body = $row['log_body_text'];
} else {
$body = $row['log_body_html'];
}
/**
* launch_sending()
*
* Cette fonction est appellée soit dans envoi.php lors de l'envoi, soit
* dans le fichier appellé originellement cron.php
*
* @param array $listdata Tableau des données de la liste concernée
* @param array $logdata Tableau des données de la newsletter
* @param array $supp_address Adresses de destinataires supplémentaires
*
* @return string
*/
function launch_sending($listdata, $logdata, $supp_address = array())
{
global $nl_config, $db, $lang, $other_tags;
//
// On commence par poser un verrou sur un fichier lock,
// il ne faut pas qu'il y ait simultanément plusieurs flôts d'envois
// pour une même liste de diffusion.
//
$lockfile = sprintf(WA_LOCKFILE, $listdata['liste_id']);
if (file_exists($lockfile)) {
$isBeginning = false;
$fp = fopen($lockfile, 'r+');
$supp_address = array();
// On en tient pas compte, ça l'a déjà été lors du premier flôt
} else {
$isBeginning = true;
$fp = fopen($lockfile, 'w');
@chmod($lockfile, 0600);
}
if (!flock($fp, LOCK_EX | LOCK_NB)) {
fclose($fp);
return $lang['Message']['List_is_busy'];
}
if (filesize($lockfile) > 0) {
//
// L'envoi a planté au cours d'un "flôt" précédent. On récupère les éventuels
// identifiants d'abonnés stockés dans le fichier lock et on met à jour la table
//
$abo_ids = fread($fp, filesize($lockfile));
$abo_ids = array_map('trim', explode("\n", trim($abo_ids)));
if (count($abo_ids) > 0) {
$abo_ids = array_unique(array_map('intval', $abo_ids));
$sql = "UPDATE " . ABO_LISTE_TABLE . "\n\t\t\t\tSET send = 1\n\t\t\t\tWHERE abo_id IN(" . implode(', ', $abo_ids) . ")\n\t\t\t\t\tAND liste_id = " . $listdata['liste_id'];
if (!$db->query($sql)) {
trigger_error('Impossible de mettre à jour la table des abonnés', ERROR);
}
}
ftruncate($fp, 0);
fseek($fp, 0);
}
//
// Initialisation de la classe mailer
//
require WAMAILER_DIR . '/class.mailer.php';
$mailer = new Mailer(WA_ROOTDIR . '/language/email_' . $nl_config['language'] . '/');
if ($nl_config['use_smtp']) {
$mailer->smtp_path = WAMAILER_DIR . '/';
$mailer->use_smtp($nl_config['smtp_host'], $nl_config['smtp_port'], $nl_config['smtp_user'], $nl_config['smtp_pass']);
}
$mailer->set_charset($lang['CHARSET']);
$mailer->set_from($listdata['sender_email'], unhtmlspecialchars($listdata['liste_name']));
if ($listdata['return_email'] != '') {
$mailer->set_return_path($listdata['return_email']);
}
//
// On traite les données de la newsletter à envoyer
//
if (preg_match('/[\\x80-\\x9F]/', $logdata['log_subject']) || preg_match('/[\\x80-\\x9F]/', $logdata['log_body_text']) || preg_match('/[\\x80-\\x9F]/', $logdata['log_body_html'])) {
if (TRANSLITE_INVALID_CHARS == false) {
$logdata['log_subject'] = wan_utf8_encode($logdata['log_subject']);
$logdata['log_body_text'] = wan_utf8_encode($logdata['log_body_text']);
$logdata['log_body_html'] = wan_utf8_encode($logdata['log_body_html']);
$lang['Label_link'] = wan_utf8_encode($lang['Label_link']);
$mailer->set_charset('UTF-8');
} else {
$logdata['log_subject'] = purge_latin1($logdata['log_subject'], true);
$logdata['log_body_text'] = purge_latin1($logdata['log_body_text'], true);
$logdata['log_body_html'] = purge_latin1($logdata['log_body_html']);
}
}
$mailer->set_subject($logdata['log_subject']);
$body = array(FORMAT_TEXTE => $logdata['log_body_text'], FORMAT_HTML => $logdata['log_body_html']);
//
// Ajout du lien de désinscription, selon les méthodes d'envoi/format utilisés
//
$link = newsletter_links($listdata);
if ($listdata['use_cron'] || $nl_config['engine_send'] == ENGINE_BCC) {
$body[FORMAT_TEXTE] = str_replace('{LINKS}', $link[FORMAT_TEXTE], $body[FORMAT_TEXTE]);
$body[FORMAT_HTML] = str_replace('{LINKS}', $link[FORMAT_HTML], $body[FORMAT_HTML]);
}
//
// On s'occupe maintenant des fichiers joints ou incorporés
// Si les fichiers sont stockés sur un serveur ftp, on les rapatrie le temps du flot d'envoi
//
$total_files = count($logdata['joined_files']);
$tmp_files = array();
require WA_ROOTDIR . '/includes/class.attach.php';
$attach = new Attach();
hasCidReferences($body[FORMAT_HTML], $refs);
for ($i = 0; $i < $total_files; $i++) {
$real_name = $logdata['joined_files'][$i]['file_real_name'];
$physical_name = $logdata['joined_files'][$i]['file_physical_name'];
$mime_type = $logdata['joined_files'][$i]['file_mimetype'];
$error = FALSE;
$msg = array();
$attach->joined_file_exists($physical_name, $error, $msg);
if ($error) {
$error = FALSE;
continue;
}
if ($nl_config['use_ftp']) {
$file_path = $attach->ftp_to_tmp($logdata['joined_files'][$i]);
array_push($tmp_files, $file_path);
} else {
$file_path = WA_ROOTDIR . '/' . $nl_config['upload_path'] . $physical_name;
}
if (is_array($refs) && in_array($real_name, $refs)) {
$embedded = TRUE;
} else {
$embedded = FALSE;
}
$mailer->attachment($file_path, $real_name, 'attachment', $mime_type, $embedded);
}
//
// Récupération des champs des tags personnalisés
//
if (count($other_tags) > 0) {
$fields_str = '';
foreach ($other_tags as $data) {
$fields_str .= 'a.' . $data['column_name'] . ', ';
}
} else {
$fields_str = '';
}
//
// Si on en est au premier flôt, on récupère également les adresses email
// des administrateurs ayant activés l'option de réception de copie
//
if ($isBeginning) {
$sql = "SELECT a.admin_email\n\t\t\tFROM " . ADMIN_TABLE . " AS a\n\t\t\t\tINNER JOIN " . AUTH_ADMIN_TABLE . " AS aa ON aa.admin_id = a.admin_id\n\t\t\t\t\tAND aa.cc_admin = " . TRUE;
if (!($result = $db->query($sql))) {
trigger_error('Impossible d\'obtenir la liste des fichiers joints', ERROR);
}
while ($email = $result->column('admin_email')) {
array_push($supp_address, $email);
}
$result->free();
$supp_address = array_unique($supp_address);
// Au cas où...
}
//
// On récupère les infos sur les abonnés destinataires
//
$sql = "SELECT COUNT(a.abo_id) AS total\n\t\tFROM " . ABONNES_TABLE . " AS a\n\t\t\tINNER JOIN " . ABO_LISTE_TABLE . " AS al ON al.abo_id = a.abo_id\n\t\t\t\tAND al.liste_id = {$listdata['liste_id']}\n\t\t\t\tAND al.confirmed = " . SUBSCRIBE_CONFIRMED . "\n\t\t\t\tAND al.send = 0\n\t\tWHERE a.abo_status = " . ABO_ACTIF;
if (!($result = $db->query($sql))) {
trigger_error('Impossible d\'obtenir le nombre d\'adresses emails', ERROR);
}
$total_abo = $result->column('total');
if ($nl_config['emails_sended'] > 0) {
$total_abo = min($total_abo, $nl_config['emails_sended']);
}
$sql = "SELECT a.abo_id, a.abo_pseudo, {$fields_str} a.abo_email, al.register_key, al.format\n\t\tFROM " . ABONNES_TABLE . " AS a\n\t\t\tINNER JOIN " . ABO_LISTE_TABLE . " AS al ON al.abo_id = a.abo_id\n\t\t\t\tAND al.liste_id = {$listdata['liste_id']}\n\t\t\t\tAND al.confirmed = " . SUBSCRIBE_CONFIRMED . "\n\t\t\t\tAND al.send = 0\n\t\tWHERE a.abo_status = " . ABO_ACTIF;
if ($nl_config['emails_sended'] > 0) {
$sql .= " LIMIT {$nl_config['emails_sended']} OFFSET 0";
}
if (!($result = $db->query($sql))) {
trigger_error('Impossible d\'obtenir la liste des adresses emails', ERROR);
}
$abo_ids = array();
$format = $listdata['liste_format'] != FORMAT_MULTIPLE ? $listdata['liste_format'] : false;
if ($row = $result->fetch()) {
if ($nl_config['engine_send'] == ENGINE_BCC) {
fake_header(false);
$abonnes = array(FORMAT_TEXTE => array(), FORMAT_HTML => array());
$abo_ids = array(FORMAT_TEXTE => array(), FORMAT_HTML => array());
do {
$abo_format = !$format ? $row['format'] : $format;
array_push($abo_ids[$abo_format], $row['abo_id']);
array_push($abonnes[$abo_format], $row['abo_email']);
fake_header(true);
} while ($row = $result->fetch());
if ($listdata['liste_format'] != FORMAT_HTML) {
$abonnes[FORMAT_TEXTE] = array_merge($abonnes[FORMAT_TEXTE], $supp_address);
}
if ($listdata['liste_format'] != FORMAT_TEXTE) {
$abonnes[FORMAT_HTML] = array_merge($abonnes[FORMAT_HTML], $supp_address);
}
//
// Tableau pour remplacer les tags par des chaines vides
// Non utilisation des tags avec le moteur d'envoi en copie cachée
//
$tags_replace = array('NAME' => '');
if (count($other_tags) > 0) {
foreach ($other_tags as $data) {
$tags_replace[$data['tag_name']] = '';
}
}
if (count($abonnes[FORMAT_TEXTE]) > 0) {
$mailer->set_address($abonnes[FORMAT_TEXTE], 'Bcc');
$mailer->set_format(FORMAT_TEXTE);
$mailer->set_message($body[FORMAT_TEXTE]);
$mailer->assign_tags($tags_replace);
if (!$mailer->send()) {
trigger_error(sprintf($lang['Message']['Failed_sending2'], $mailer->msg_error), ERROR);
}
fwrite($fp, implode("\n", $abo_ids[FORMAT_TEXTE]) . "\n");
}
$mailer->clear_address();
if (count($abonnes[FORMAT_HTML]) > 0) {
$mailer->set_address($abonnes[FORMAT_HTML], 'Bcc');
$mailer->set_format($listdata['liste_format']);
$mailer->assign_tags($tags_replace);
$mailer->set_message($body[FORMAT_HTML]);
if ($listdata['liste_format'] == FORMAT_MULTIPLE) {
$mailer->set_altmessage($body[FORMAT_TEXTE]);
}
if (!$mailer->send()) {
trigger_error(sprintf($lang['Message']['Failed_sending2'], $mailer->msg_error), ERROR);
}
fwrite($fp, implode("\n", $abo_ids[FORMAT_HTML]) . "\n");
}
$abo_ids = array_merge($abo_ids[FORMAT_TEXTE], $abo_ids[FORMAT_HTML]);
} else {
if ($nl_config['engine_send'] == ENGINE_UNIQ) {
if (defined('IN_COMMANDLINE')) {
require WA_ROOTDIR . '/contrib/Console/ProgressBar.php';
//
// Initialisation de la barre de progression des envois
//
$bar = new Console_ProgressBar('Sending emails %percent% [%bar%] %current% of %max%', '=>', ' ', 80, $total_abo + count($supp_address), array('ansi_terminal' => ANSI_TERMINAL));
} else {
fake_header(false);
}
if (($isPHP5 = version_compare(phpversion(), '5.0.0', '>=')) == true) {
eval('$mailerText = clone $mailer;');
eval('$mailerHTML = clone $mailer;');
} else {
$mailerText = $mailer;
$mailerHTML = $mailer;
}
if (!$listdata['use_cron']) {
$body[FORMAT_TEXTE] = str_replace('{LINKS}', $link[FORMAT_TEXTE], $body[FORMAT_TEXTE]);
$body[FORMAT_HTML] = str_replace('{LINKS}', $link[FORMAT_HTML], $body[FORMAT_HTML]);
}
$mailerText->set_format(FORMAT_TEXTE);
$mailerText->set_message($body[FORMAT_TEXTE]);
$mailerHTML->set_format(FORMAT_HTML);
if ($listdata['liste_format'] == FORMAT_MULTIPLE) {
$mailerHTML->set_format(FORMAT_MULTIPLE);
$mailerHTML->set_altmessage($body[FORMAT_TEXTE]);
}
$mailerHTML->set_message($body[FORMAT_HTML]);
$supp_address_ok = array();
foreach ($supp_address as $address) {
if ($listdata['liste_format'] != FORMAT_HTML) {
array_push($supp_address_ok, array('format' => FORMAT_TEXTE, 'abo_pseudo' => '', 'abo_email' => $address, 'register_key' => '', 'abo_id' => -1));
}
if ($listdata['liste_format'] != FORMAT_TEXTE) {
array_push($supp_address_ok, array('format' => FORMAT_HTML, 'abo_pseudo' => '', 'abo_email' => $address, 'register_key' => '', 'abo_id' => -1));
}
}
$counter = 0;
$sendError = 0;
do {
$counter++;
$abo_format = !$format ? $row['format'] : $format;
if ($abo_format == FORMAT_TEXTE) {
if ($isPHP5 == true) {
eval('$mailer = clone $mailerText;');
} else {
$mailer = $mailerText;
}
} else {
if ($isPHP5 == true) {
eval('$mailer = clone $mailerHTML;');
} else {
$mailer = $mailerHTML;
}
}
if ($row['abo_pseudo'] != '') {
$address = array($row['abo_pseudo'] => $row['abo_email']);
} else {
$address = $row['abo_email'];
}
$mailer->clear_address();
$mailer->set_address($address);
//
// Traitement des tags et tags personnalisés
//
$tags_replace = array();
if ($row['abo_pseudo'] != '') {
$tags_replace['NAME'] = $abo_format == FORMAT_HTML ? $row['abo_pseudo'] : unhtmlspecialchars($row['abo_pseudo']);
} else {
$tags_replace['NAME'] = '';
}
if (count($other_tags) > 0) {
foreach ($other_tags as $data) {
if (isset($row[$data['column_name']])) {
if (!is_numeric($row[$data['column_name']]) && $abo_format == FORMAT_HTML) {
$row[$data['column_name']] = htmlspecialchars($row[$data['column_name']]);
}
$tags_replace[$data['tag_name']] = $row[$data['column_name']];
continue;
}
$tags_replace[$data['tag_name']] = '';
}
}
if (!$listdata['use_cron']) {
$tags_replace = array_merge($tags_replace, array('WA_CODE' => $row['register_key'], 'WA_EMAIL' => rawurlencode($row['abo_email'])));
}
$mailer->assign_tags($tags_replace);
// envoi
if (!$mailer->send()) {
$sendError++;
}
if ($row['abo_id'] != -1) {
array_push($abo_ids, $row['abo_id']);
fwrite($fp, "{$row['abo_id']}\n");
}
if (defined('IN_COMMANDLINE')) {
$bar->update($counter);
if (SEND_DELAY > 0 && $counter % SEND_PACKET == 0) {
sleep(SEND_DELAY);
}
} else {
fake_header(true);
}
} while (($row = $result->fetch()) || ($row = array_pop($supp_address_ok)) != null);
//
// Aucun email envoyé, il y a manifestement un problème, on affiche le message d'erreur
//
if ($sendError == $total_abo) {
flock($fp, LOCK_UN);
fclose($fp);
unlink($lockfile);
trigger_error(sprintf($lang['Message']['Failed_sending2'], $mailer->msg_error), ERROR);
}
} else {
trigger_error('Unknown_engine', ERROR);
}
}
$result->free();
} else {
if ($isBeginning) {
//
// Aucun abonné dont le champ send soit positionné à 0 et nous sommes au
// début de l'envoi. Cette liste ne comporte donc pas encore d'abonné.
//
return $lang['Message']['No_subscribers'];
}
}
//
// Si l'option FTP est utilisée, suppression des fichiers temporaires
//
if ($nl_config['use_ftp']) {
foreach ($tmp_files as $filename) {
$attach->remove_file($filename);
}
}
unset($tmp_files);
$no_send = $sended = 0;
if (!$db->ping()) {
//
// L'envoi a duré trop longtemps et la connexion au serveur SQL a été perdue
//
if (SQL_DRIVER == 'mysqli') {
trigger_error("La connexion à la base de données a été perdue.<br />\nVous devriez mettre l'option PHP mysqli.reconnect à On dans le php.ini,<br />\npour permettre la reconnexion automatique au serveur.", ERROR);
} else {
trigger_error("La connexion à la base de données a été perdue", ERROR);
}
}
if (count($abo_ids) > 0) {
$sql = "UPDATE " . ABO_LISTE_TABLE . "\n\t\t\tSET send = 1\n\t\t\tWHERE abo_id IN(" . implode(', ', $abo_ids) . ")\n\t\t\t\tAND liste_id = " . $listdata['liste_id'];
if (!$db->query($sql)) {
trigger_error('Impossible de mettre à jour la table des abonnés (connexion au serveur sql perdue)', ERROR);
}
}
$sql = "SELECT COUNT(*) AS num_dest, al.send\n\t\tFROM " . ABO_LISTE_TABLE . " AS al\n\t\t\tINNER JOIN " . ABONNES_TABLE . " AS a ON a.abo_id = al.abo_id\n\t\t\t\tAND a.abo_status = " . ABO_ACTIF . "\n\t\tWHERE al.liste_id = {$listdata['liste_id']}\n\t\t\tAND al.confirmed = " . SUBSCRIBE_CONFIRMED . "\n\t\tGROUP BY al.send";
if (!($result = $db->query($sql))) {
trigger_error('Impossible d\'obtenir le nombre d\'envois restants à faire', ERROR);
}
while ($row = $result->fetch()) {
if ($row['send'] == 1) {
$sended = $row['num_dest'];
} else {
$no_send = $row['num_dest'];
}
}
$result->free();
ftruncate($fp, 0);
flock($fp, LOCK_UN);
fclose($fp);
if ($no_send > 0) {
$message = sprintf($lang['Message']['Success_send'], $nl_config['emails_sended'], $sended, $sended + $no_send);
if (!defined('IN_COMMANDLINE')) {
if (!empty($_GET['step']) && $_GET['step'] == 'auto') {
Location("envoi.php?mode=progress&id={$logdata['log_id']}&step=auto");
}
$message .= '<br /><br />' . sprintf($lang['Click_resend_auto'], '<a href="' . sessid('./envoi.php?mode=progress&id=' . $logdata['log_id'] . '&step=auto') . '">', '</a>');
$message .= '<br /><br />' . sprintf($lang['Click_resend_manuel'], '<a href="' . sessid('./envoi.php?mode=progress&id=' . $logdata['log_id']) . '">', '</a>');
}
} else {
unlink($lockfile);
$db->beginTransaction();
$sql = "UPDATE " . LOG_TABLE . "\n\t\t\tSET log_status = " . STATUS_SENDED . ",\n\t\t\t\tlog_numdest = {$sended}\n\t\t\tWHERE log_id = " . $logdata['log_id'];
if (!$db->query($sql)) {
trigger_error('Impossible de mettre à jour la table des logs', ERROR);
}
$sql = "UPDATE " . ABO_LISTE_TABLE . "\n\t\t\tSET send = 0\n\t\t\tWHERE liste_id = " . $listdata['liste_id'];
if (!$db->query($sql)) {
trigger_error('Impossible de mettre à jour la table des abonnés', ERROR);
}
$sql = "UPDATE " . LISTE_TABLE . "\n\t\t\tSET liste_numlogs = liste_numlogs + 1\n\t\t\tWHERE liste_id = " . $listdata['liste_id'];
if (!$db->query($sql)) {
trigger_error('Impossible de mettre à jour la table des listes', ERROR);
}
$db->commit();
$message = sprintf($lang['Message']['Success_send_finish'], $sended);
}
return $message;
}