Mirrors/dolibarr
1
0
Fork 0
mirror of https://github.com/Dolibarr/dolibarr.git synced 2025-02-20 13:46:52 +01:00
Code Issues Packages Projects Releases Wiki Activity

Fix send mail script

Browse Source 
- correctly send only set number of emails per call
- will jump through each validated mailout
This commit is contained in:
brad 2024-03-21 20:46:08 +11:00
parent 1bfe7acbb5
commit 66d74b01f7
1 changed files with 20 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
scripts/emailings/mailing-send.php
View File

@ -52,7 +52,7 @@ if (isset($argv[2]) || !empty($argv[2])) {
$login = '';
}
$max = 0;
$max = -1;
if (isset($argv[3]) || !empty($argv[3])) {
$max = $argv[3];
@ -105,7 +105,7 @@ if (!empty($login)) {
}
// We get list of emailing id to process
$sql = "SELECT m.rowid";
$sql = "SELECT m.rowid, m.statut as status";
$sql .= " FROM ".MAIN_DB_PREFIX."mailing as m";
$sql .= " WHERE m.statut IN (1,2)";
if ($id != 'all') {
@ -118,13 +118,22 @@ if ($resql) {
$num = $db->num_rows($resql);
$j = 0;
if ($num) {
for ($j = 0; $j < $num; $j++) {
if ($num)
{
for ($j = 0; $j < $num && $max!=0; $j++)
{
$obj = $db->fetch_object($resql);
dol_syslog("Process mailing with id ".$obj->rowid);
print "Process mailing with id ".$obj->rowid."\n";
if ($obj->status==1)
{
$sql = "UPDATE ".MAIN_DB_PREFIX."mailing SET statut=2 WHERE rowid=".$obj->rowid;
$result_sql = $db->query($sql);
dol_syslog("Started mailing campaign ".$obj->rowid, LOG_DEBUG);
}
$emailing = new Mailing($db);
$emailing->fetch($obj->rowid);
@ -185,6 +194,7 @@ if ($resql) {
$now = dol_now();
$obj = $db->fetch_object($resql2);
$max--;
// sendto en RFC2822
$sendto = str_replace(',', ' ', dolGetFirstLastname($obj->firstname, $obj->lastname)." <".$obj->email.">");
@ -405,25 +415,16 @@ if ($resql) {
$i++;
}
} else {
$mesg = "Emailing id ".$id." has no recipient to target";
//$mesg = "Emailing id ".$id." has no recipient to target";
print $mesg."\n";
dol_syslog($mesg, LOG_ERR);
}
// Loop finished, set global statut of mail
$statut = 2;
if (!$nbko) {
$statut = 3;
}
// Loop finished, set global statut of mail
$sql = "UPDATE ".MAIN_DB_PREFIX."mailing SET statut=3 WHERE rowid=".$obj->rowid;
$result_sql = $db->query($sql);
$sqlenddate = "UPDATE ".MAIN_DB_PREFIX."mailing SET statut=".((int) $statut)." WHERE rowid=".((int) $id);
dol_syslog("update global status", LOG_DEBUG);
print "Update status of emailing id ".$id." to ".$statut."\n";
$resqlenddate = $db->query($sqlenddate);
if (!$resqlenddate) {
dol_print_error($db);
$error++;
dol_syslog("update global status", LOG_DEBUG);
print "Update status of emailing id ".$id." to ".$statut."\n";
}
} else {
dol_print_error($db);