28if (!defined(
'NOSESSION')) {
29 define(
'NOSESSION',
'1');
32$sapi_type = php_sapi_name();
33$script_file = basename(__FILE__);
37$sapi_type = php_sapi_name();
38if (substr($sapi_type, 0, 3) ==
'cgi') {
39 echo
"Error: You are using PHP for CGI. To execute ".$script_file.
" from command line, you must use PHP for CLI mode.\n";
43if (!isset($argv[1]) || !$argv[1] || !in_array($argv[1], array(
'test',
'confirm')) || !in_array($argv[2], array(
'thirdparties',
'contacts'))) {
44 print
"Usage: $script_file (test|confirm) (thirdparties|contacts) [delay] [after]\n";
46 print
"Send an email to customers to remind all contracts services to expire or expired.\n";
47 print
"If you choose 'test' mode, no emails are sent.\n";
48 print
"If you add param delay (nb of days), only services with expired date < today + delay are included.\n";
49 print
"If you add param after (nb of days), only services with expired date >= today + delay are included.\n";
53$targettype = $argv[2];
55require $path.
"../../htdocs/master.inc.php";
56require_once DOL_DOCUMENT_ROOT.
"/core/class/CMailFile.class.php";
58$langs->loadLangs(array(
'main',
'contracts'));
61$version = DOL_VERSION;
64$hookmanager->initHooks(array(
'cli'));
72print
"***** ".$script_file.
" (".$version.
") pid=".
dol_getmypid().
" *****\n";
73dol_syslog($script_file.
" launched with arg ".join(
',', $argv));
76$duration_value = isset($argv[3]) ? $argv[3] :
'none';
77$duration_value2 = isset($argv[4]) ? $argv[4] :
'none';
80print $script_file.
" launched with mode ".$mode.
" default lang=".$langs->defaultlang.(is_numeric($duration_value) ?
" delay=".$duration_value :
"").(is_numeric($duration_value2) ?
" after=".$duration_value2 :
"").
"\n";
82if ($mode !=
'confirm') {
83 $conf->global->MAIN_DISABLE_ALL_MAILS = 1;
86$sql =
"SELECT c.ref, cd.date_fin_validite, cd.total_ttc, cd.description as description, p.label as plabel,";
87$sql .=
" s.rowid as sid, s.nom as name, s.email, s.default_lang";
88if ($targettype ==
'contacts') {
89 $sql .=
", sp.rowid as cid, sp.firstname as cfirstname, sp.lastname as clastname, sp.email as cemail";
91$sql .=
" FROM ".MAIN_DB_PREFIX.
"societe AS s";
92if ($targettype ==
'contacts') {
93 $sql .=
", ".MAIN_DB_PREFIX.
"socpeople as sp";
95$sql .=
", ".MAIN_DB_PREFIX.
"contrat AS c";
96$sql .=
", ".MAIN_DB_PREFIX.
"contratdet AS cd";
97$sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"product AS p ON p.rowid = cd.fk_product";
98$sql .=
" WHERE s.rowid = c.fk_soc AND c.rowid = cd.fk_contrat AND c.statut > 0 AND cd.statut < 5";
99if (is_numeric($duration_value2)) {
100 $sql .=
" AND cd.date_fin_validite >= '".$db->idate(
dol_time_plus_duree($now, $duration_value2,
"d")).
"'";
102if (is_numeric($duration_value)) {
103 $sql .=
" AND cd.date_fin_validite < '".$db->idate(
dol_time_plus_duree($now, $duration_value,
"d")).
"'";
105if ($targettype ==
'contacts') {
106 $sql .=
" AND s.rowid = sp.fk_soc";
109if ($targettype ==
'contacts') {
110 $sql .=
" sp.email, sp.rowid,";
112$sql .=
" s.email ASC, s.rowid ASC, cd.date_fin_validite ASC";
115$resql = $db->query($sql);
117 $num = $db->num_rows($resql);
125 $trackthirdpartiessent = array();
127 print
"We found ".$num.
" couples (services to expire-".$targettype.
") qualified\n";
128 dol_syslog(
"We found ".$num.
" couples (services to expire-".$targettype.
") qualified");
134 $obj = $db->fetch_object($resql);
136 $newemail = empty($obj->cemail) ? $obj->email : $obj->cemail;
140 if ($newemail != $oldemail || $oldemail ==
'none') {
143 if ($obj->sid && $obj->sid != $oldsid) {
146 if ($targettype ==
'contacts') {
147 if ($obj->cid && $obj->cid != $oldcid) {
154 if (
dol_strlen($oldemail) && $oldemail !=
'none' && empty($trackthirdpartiessent[$oldsid.
'|'.$oldemail])) {
155 sendEmailTo($mode, $oldemail, $message, $total, $oldlang, $oldtarget, $duration_value);
156 $trackthirdpartiessent[$oldsid.
'|'.$oldemail] =
'contact id '.$oldcid;
158 if ($oldemail !=
'none') {
159 if (empty($trackthirdpartiessent[$oldsid.
'|'.$oldemail])) {
160 print
"- No email sent for '".$oldtarget.
"', total: ".$total.
"\n";
162 print
"- No email sent for '".$oldtarget.
"', total: ".$total.
" (already sent to ".$trackthirdpartiessent[$oldsid.
'|'.$oldemail].
")\n";
166 $oldemail = $newemail;
168 if ($targettype ==
'contacts') {
171 $oldlang = $obj->default_lang;
172 $oldtarget = (empty($obj->cfirstname) && empty($obj->clastname)) ? $obj->name : ($obj->clastname.
" ".$obj->cfirstname);
181 $outputlangs->setDefaultLang(empty($obj->default_lang) ? $langs->defaultlang : $obj->default_lang);
184 $outputlangs->loadLangs(array(
"main",
"contracts",
"bills",
"products"));
187 $message .= $outputlangs->trans(
"Contract").
" ".$obj->ref.
": ".$outputlangs->trans(
"Service").
" ".
dol_concatdesc($obj->plabel, $obj->description).
" (".
price($obj->total_ttc, 0, $outputlangs, 0, 0, -1, $conf->currency).
"), ".$outputlangs->trans(
"DateEndPlannedShort").
" ".
dol_print_date($db->jdate($obj->date_fin_validite),
'day').
"\n\n";
188 dol_syslog(
"email_expire_services_to_customers.php: ".$newemail.
" ".$message);
191 print
"Service to expire ".$obj->ref.
", label ".
dol_concatdesc($obj->plabel, $obj->description).
", due date ".
dol_print_date($db->jdate($obj->date_fin_validite),
'day').
", customer id ".$obj->sid.
" ".$obj->name.
", ".(isset($obj->cid) ?
"contact id ".$obj->cid.
" ".$obj->clastname.
" ".$obj->cfirstname.
", " :
"").
"email ".$newemail.
", lang ".$outputlangs->defaultlang.
": ";
195 print
"disqualified (no email).";
201 $total += $obj->total_ttc;
207 if ($foundtoprocess) {
208 if (
dol_strlen($oldemail) && $oldemail !=
'none' && empty($trackthirdpartiessent[$oldsid.
'|'.$oldemail])) {
209 sendEmailTo($mode, $oldemail, $message, $total, $oldlang, $oldtarget, $duration_value);
210 $trackthirdpartiessent[$oldsid.
'|'.$oldemail] =
'contact id '.$oldcid;
212 if ($oldemail !=
'none') {
213 if (empty($trackthirdpartiessent[$oldsid.
'|'.$oldemail])) {
214 print
"- No email sent for '".$oldtarget.
"', total: ".$total.
"\n";
216 print
"- No email sent for '".$oldtarget.
"', total: ".$total.
" (already sent to ".$trackthirdpartiessent[$oldsid.
'|'.$oldemail].
")\n";
222 print
"No services to expire found\n";
228 dol_syslog(
"email_expire_services_to_customers.php: Error");
245function sendEmailTo($mode, $oldemail, $message, $total, $userlang, $oldtarget, $duration_value)
247 global $conf, $langs;
249 if (getenv(
'DOL_FORCE_EMAIL_TO')) {
250 $oldemail = getenv(
'DOL_FORCE_EMAIL_TO');
254 $newlangs->setDefaultLang(empty($userlang) ?
getDolGlobalString(
'MAIN_LANG_DEFAULT',
'auto') : $userlang);
255 $newlangs->load(
"main");
256 $newlangs->load(
"contracts");
258 if ($duration_value) {
259 if ($duration_value > 0) {
260 $title = $newlangs->transnoentities(
"ListOfServicesToExpireWithDuration", $duration_value);
262 $title = $newlangs->transnoentities(
"ListOfServicesToExpireWithDurationNeg", $duration_value);
265 $title = $newlangs->transnoentities(
"ListOfServicesToExpire");
268 $subject =
getDolGlobalString(
'SCRIPT_EMAIL_EXPIRE_SERVICES_CUSTOMERS_SUBJECT', $title);
274 print
"- Send email to '".$oldtarget.
"' (".$oldemail.
"), total: ".$total.
"\n";
275 dol_syslog(
"email_expire_services_to_customers.php: send mail to ".$oldemail);
289 $allmessage .=
"Dear customer".($usehtml ?
"<br>\n" :
"\n").($usehtml ?
"<br>\n" :
"\n");
290 $allmessage .=
"Please, find a summary of the services contracted by you that are about to expire.".($usehtml ?
"<br>\n" :
"\n").($usehtml ?
"<br>\n" :
"\n");
292 $allmessage .= $message.($usehtml ?
"<br>\n" :
"\n");
301 $mail =
new CMailFile($subject, $sendto, $from, $allmessage, array(), array(), array(),
'',
'', 0, $msgishtml);
303 $mail->errors_to = $errorsto;
306 if ($mode ==
'confirm') {
307 $result = $mail->sendfile();
309 print
"Error sending email ".$mail->error.
"\n";
310 dol_syslog(
"Error sending email ".$mail->error.
"\n");
313 print
"No email sent (test mode)\n";
Class to send emails (with attachments or not) Usage: $mailfile = new CMailFile($subject,...
Class to manage translations.
dol_time_plus_duree($time, $duration_value, $duration_unit, $ruleforendofmonth=0)
Add a delay to a date.
sendEmailTo($mode, $oldemail, $message, $total, $userlang, $oldtarget, $duration_value)
Send email.
dol_getmypid()
Return getmypid() or random PID when function is disabled Some web hosts disable this php function fo...
dol_strlen($string, $stringencoding='UTF-8')
Make a strlen call.
price($amount, $form=0, $outlangs='', $trunc=1, $rounding=-1, $forcerounding=-1, $currency_code='')
Function to format a value into an amount for visual output Function used into PDF and HTML pages.
dol_now($mode='auto')
Return date for now.
dol_print_date($time, $format='', $tzoutput='auto', $outputlangs=null, $encodetooutput=false)
Output date in a string format according to outputlangs (or langs if not defined).
dol_concatdesc($text1, $text2, $forxml=false, $invert=false)
Concat 2 descriptions with a new line between them (second operand after first one with appropriate n...
dol_textishtml($msg, $option=0)
Return if a text is a html content.
dol_print_error($db=null, $error='', $errors=null)
Displays error message system with all the information to facilitate the diagnosis and the escalation...
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.