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'))) {
44 print
"Usage: $script_file (test|confirm) [delay]\n";
46 print
"Send an email to remind all contracts services to expire, to users that are sale representative for.\n";
47 print
"If you choose 'test' mode, no emails are sent.\n";
48 print
"If you add a delay (nb of days), only services with expired date < today + delay are included.\n";
53require $path.
"../../htdocs/master.inc.php";
54require_once DOL_DOCUMENT_ROOT.
"/core/class/CMailFile.class.php";
56$langs->loadLangs(array(
'main',
'contracts'));
59$version = DOL_VERSION;
62$hookmanager->initHooks(array(
'cli'));
70print
"***** ".$script_file.
" (".$version.
") pid=".
dol_getmypid().
" *****\n";
71dol_syslog($script_file.
" launched with arg ".join(
',', $argv));
74$duration_value = isset($argv[2]) ? $argv[2] :
'none';
76print $script_file.
" launched with mode ".$mode.
" default lang=".$langs->defaultlang.(is_numeric($duration_value) ?
" delay=".$duration_value :
"").
"\n";
78if ($mode !=
'confirm') {
79 $conf->global->MAIN_DISABLE_ALL_MAILS = 1;
82$sql =
"SELECT DISTINCT c.ref, c.fk_soc, cd.date_fin_validite, cd.total_ttc, cd.description as description, p.label as plabel, s.rowid, s.nom as name, s.email, s.default_lang,";
83$sql .=
" u.rowid as uid, u.lastname, u.firstname, u.email, u.lang";
84$sql .=
" FROM ".MAIN_DB_PREFIX.
"societe AS s, ".MAIN_DB_PREFIX.
"contrat AS c, ".MAIN_DB_PREFIX.
"contratdet AS cd";
85$sql .=
" LEFT JOIN ".MAIN_DB_PREFIX.
"product AS p ON p.rowid = cd.fk_product, ".MAIN_DB_PREFIX.
"societe_commerciaux AS sc, ".MAIN_DB_PREFIX.
"user AS u";
86$sql .=
" WHERE s.rowid = c.fk_soc AND c.rowid = cd.fk_contrat AND c.statut > 0 AND cd.statut<5";
87if (is_numeric($duration_value)) {
88 $sql .=
" AND cd.date_fin_validite < '".$db->idate(
dol_time_plus_duree($now, $duration_value,
"d")).
"'";
90$sql .=
" AND sc.fk_soc = s.rowid AND sc.fk_user = u.rowid";
91$sql .=
" ORDER BY u.email ASC, s.rowid ASC, c.ref ASC";
94$resql = $db->query($sql);
96 $num = $db->num_rows($resql);
99 $oldsalerepresentative =
'';
104 print
"We found ".$num.
" couples (services to expire - sale representative) qualified\n";
105 dol_syslog(
"We found ".$num.
" couples (services to expire - sale representative) qualified");
110 $obj = $db->fetch_object($resql);
112 if (($obj->email != $oldemail || $obj->uid != $olduid) || $oldemail ==
'none') {
114 if (
dol_strlen($oldemail) && $oldemail !=
'none') {
115 sendEmailTo($mode, $oldemail, $message, $total, $oldlang, $oldsalerepresentative, $duration_value);
117 if ($oldemail !=
'none') {
118 print
"- No email sent for ".$oldsalerepresentative.
", total: ".$total.
"\n";
121 $oldemail = $obj->email;
123 $oldlang = $obj->lang;
129 if (empty($obj->email)) {
130 print
"Warning: Sale representative ".$salerepresentative.
" has no email. Notice disabled.\n";
136 $outputlangs->setDefaultLang(empty($obj->lang) ? $langs->defaultlang : $obj->lang);
139 $outputlangs->loadLangs(array(
"main",
"contracts",
"bills",
"products"));
142 $message .= $outputlangs->trans(
"Contract").
" ".$obj->ref.
": ".$langs->trans(
"Service").
" ".
dol_concatdesc($obj->plabel, $obj->description).
" (".
price($obj->total_ttc, 0, $outputlangs, 0, 0, -1, $conf->currency).
") ".$obj->name.
", ".$outputlangs->trans(
"DateEndPlannedShort").
" ".
dol_print_date($db->jdate($obj->date_fin_validite),
'day').
"\n\n";
143 dol_syslog(
"email_expire_services_to_representatives.php: ".$obj->email);
146 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').
" (linked to company ".$obj->name.
", sale representative ".
dolGetFirstLastname($obj->firstname, $obj->lastname).
", email ".$obj->email.
"): ";
150 print
"disqualified (no email).";
156 $total += $obj->total_ttc;
161 if ($foundtoprocess) {
162 if (
dol_strlen($oldemail) && $oldemail !=
'none') {
163 sendEmailTo($mode, $oldemail, $message, $total, $oldlang, $oldsalerepresentative, $duration_value);
165 if ($oldemail !=
'none') {
166 print
"- No email sent for ".$oldsalerepresentative.
", total: ".$total.
"\n";
171 print
"No services to expire (for companies linked to a particular commercial dolibarr user) found\n";
177 dol_syslog(
"email_expire_services_to_representatives.php: Error");
194function sendEmailTo($mode, $oldemail, $message, $total, $userlang, $oldtarget, $duration_value)
196 global $conf, $langs;
198 if (getenv(
'DOL_FORCE_EMAIL_TO')) {
199 $oldemail = getenv(
'DOL_FORCE_EMAIL_TO');
203 $newlangs->setDefaultLang(empty($userlang) ?
getDolGlobalString(
'MAIN_LANG_DEFAULT',
'auto') : $userlang);
204 $newlangs->load(
"main");
205 $newlangs->load(
"contracts");
207 if ($duration_value) {
208 if ($duration_value > 0) {
209 $title = $newlangs->transnoentities(
"ListOfServicesToExpireWithDuration", $duration_value);
211 $title = $newlangs->transnoentities(
"ListOfServicesToExpireWithDurationNeg", $duration_value);
214 $title = $newlangs->transnoentities(
"ListOfServicesToExpire");
217 $subject =
getDolGlobalString(
'SCRIPT_EMAIL_EXPIRE_SERVICES_SALESREPRESENTATIVES_SUBJECT', $title);
223 print
"- Send email for ".$oldtarget.
" (".$oldemail.
"), total: ".$total.
"\n";
224 dol_syslog(
"email_expire_services_to_representatives.php: send mail to ".$oldemail);
236 $allmessage .=
getDolGlobalString(
'SCRIPT_EMAIL_EXPIRE_SERVICES_SALESREPRESENTATIVES_HEADER');
238 $allmessage .= $title.($usehtml ?
"<br>\n" :
"\n").($usehtml ?
"<br>\n" :
"\n");
239 $allmessage .= $newlangs->transnoentities(
"NoteListOfYourExpiredServices").($usehtml ?
"<br>\n" :
"\n").($usehtml ?
"<br>\n" :
"\n");
241 $allmessage .= $message.($usehtml ?
"<br>\n" :
"\n");
242 $allmessage .= $langs->trans(
"Total").
" = ".
price($total, 0, $userlang, 0, 0, -1, $conf->currency).($usehtml ?
"<br>\n" :
"\n");
244 $allmessage .=
getDolGlobalString(
'SCRIPT_EMAIL_EXPIRE_SERVICES_SALESREPRESENTATIVES_FOOTER');
250 $mail =
new CMailFile($subject, $sendto, $from, $allmessage, array(), array(), array(),
'',
'', 0, $msgishtml);
252 $mail->errors_to = $errorsto;
255 if ($mode ==
'confirm') {
256 $result = $mail->sendfile();
258 print
"Error sending email ".$mail->error.
"\n";
259 dol_syslog(
"Error sending email ".$mail->error.
"\n");
262 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).
dolGetFirstLastname($firstname, $lastname, $nameorder=-1)
Return firstname and lastname in correct order.
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.