dolibarr  20.0.0-beta
CMailFile.class.php
Go to the documentation of this file.
1 <?php
34 use OAuth\Common\Storage\DoliStorage;
35 use OAuth\Common\Consumer\Credentials;
36 
37 
43 class CMailFile
44 {
45  public $sendcontext;
46  public $sendmode;
47  public $sendsetup;
48 
52  public $subject;
53  public $addr_from; // From: Label and EMail of sender (must include '<>'). For example '<myemail@example.com>' or 'John Doe <myemail@example.com>' or '<myemail+trackingid@example.com>'). Note that with gmail smtps, value here is forced by google to account (but not the reply-to).
54  // Sender: Who send the email ("Sender" has sent emails on behalf of "From").
55  // Use it when the "From" is an email of a domain that is a SPF protected domain, and the sending smtp server is not this domain. In such case, add Sender field with an email of the protected domain.
56  // Return-Path: Email where to send bounds.
57  public $reply_to; // Reply-To: Email where to send replies from mailer software (mailer use From if reply-to not defined, Gmail use gmail account if reply-to not defined)
58  public $errors_to; // Errors-To: Email where to send errors.
59  public $addr_to;
60  public $addr_cc;
61  public $addr_bcc;
62  public $trackid;
63 
64  public $mixed_boundary;
65  public $related_boundary;
66  public $alternative_boundary;
67  public $deliveryreceipt;
68 
69  public $atleastonefile;
70 
71  public $msg;
72  public $eol;
73  public $eol2;
74 
78  public $error = '';
79 
83  public $errors = array();
84 
85 
89  public $smtps;
93  public $mailer;
94 
98  public $transport;
102  public $logger;
103 
107  public $css;
109  public $styleCSS;
111  public $bodyCSS;
112 
116  public $msgid;
117 
121  public $in_reply_to;
122 
126  public $references;
127 
128  public $headers;
129 
130  public $message;
131 
135  public $filename_list = array();
139  public $mimetype_list = array();
143  public $mimefilename_list = array();
147  public $cid_list = array();
148 
149  // Image
150  public $html;
151  public $msgishtml;
152  public $image_boundary;
153  public $atleastoneimage = 0; // at least one image file with file=xxx.ext into content (TODO Debug this. How can this case be tested. Remove if not used).
154  public $html_images = array();
155  public $images_encoded = array();
156  public $image_types = array(
157  'gif' => 'image/gif',
158  'jpg' => 'image/jpeg',
159  'jpeg' => 'image/jpeg',
160  'jpe' => 'image/jpeg',
161  'bmp' => 'image/bmp',
162  'png' => 'image/png',
163  'tif' => 'image/tiff',
164  'tiff' => 'image/tiff',
165  );
166 
167 
192  public function __construct($subject, $to, $from, $msg, $filename_list = array(), $mimetype_list = array(), $mimefilename_list = array(), $addr_cc = "", $addr_bcc = "", $deliveryreceipt = 0, $msgishtml = 0, $errors_to = '', $css = '', $trackid = '', $moreinheader = '', $sendcontext = 'standard', $replyto = '', $upload_dir_tmp = '', $in_reply_to = '', $references = '')
193  {
194  global $conf, $dolibarr_main_data_root, $user;
195 
196  dol_syslog("CMailFile::CMailfile: charset=".$conf->file->character_set_client." from=$from, to=$to, addr_cc=$addr_cc, addr_bcc=$addr_bcc, errors_to=$errors_to, replyto=$replyto trackid=$trackid sendcontext=$sendcontext", LOG_DEBUG);
197  dol_syslog("CMailFile::CMailfile: subject=".$subject.", deliveryreceipt=".$deliveryreceipt.", msgishtml=".$msgishtml, LOG_DEBUG);
198 
199 
200  // Clean values of $mimefilename_list
201  if (is_array($mimefilename_list)) {
202  foreach ($mimefilename_list as $key => $val) {
203  $mimefilename_list[$key] = dol_string_unaccent($mimefilename_list[$key]);
204  }
205  }
206 
207  $cid_list = array();
208 
209  $this->sendcontext = $sendcontext;
210 
211  // Define this->sendmode ('mail', 'smtps', 'swiftmailer', ...) according to $sendcontext ('standard', 'emailing', 'ticket', 'password')
212  $this->sendmode = '';
213  if (!empty($this->sendcontext)) {
214  $smtpContextKey = strtoupper($this->sendcontext);
215  $smtpContextSendMode = getDolGlobalString('MAIN_MAIL_SENDMODE_'.$smtpContextKey);
216  if (!empty($smtpContextSendMode) && $smtpContextSendMode != 'default') {
217  $this->sendmode = $smtpContextSendMode;
218  }
219  }
220  if (empty($this->sendmode)) {
221  $this->sendmode = getDolGlobalString('MAIN_MAIL_SENDMODE', 'mail');
222  }
223 
224  // Add a Feedback-ID. Must be used for stats on spam report only.
225  if ($trackid) {
226  //Examples:
227  // LinkedIn – Feedback-ID: accept_invite_04:linkedin
228  // Twitter – Feedback-ID: 0040162518f58f41d1f0:15491f3b2ee48656f8e7fb2fac:none:twitterESP
229  // Amazon.com : Feedback-ID: 1.eu-west-1.kjoQSiqb8G+7lWWiDVsxjM2m0ynYd4I6yEFlfoox6aY=:AmazonSES
230  $moreinheader .= "Feedback-ID: ".$trackid.':'.dol_getprefix('email').":dolib\r\n";
231  }
232 
233  // We define end of line (RFC 821).
234  $this->eol = "\r\n";
235  // We define end of line for header fields (RFC 822bis section 2.3 says header must contains \r\n).
236  $this->eol2 = "\r\n";
237  if (getDolGlobalString('MAIN_FIX_FOR_BUGGED_MTA')) {
238  $this->eol = "\n";
239  $this->eol2 = "\n";
240  $moreinheader = str_replace("\r\n", "\n", $moreinheader);
241  }
242 
243  // On defini mixed_boundary
244  $this->mixed_boundary = "multipart_x.".time().".x_boundary";
245 
246  // On defini related_boundary
247  $this->related_boundary = 'mul_'.dol_hash(uniqid("dolibarr2"), 3); // Force md5 hash (does not contain special chars)
248 
249  // On defini alternative_boundary
250  $this->alternative_boundary = 'mul_'.dol_hash(uniqid("dolibarr3"), 3); // Force md5 hash (does not contain special chars)
251 
252  if (empty($subject)) {
253  dol_syslog("CMailFile::CMailfile: Try to send an email with empty subject");
254  $this->error = 'ErrorSubjectIsRequired';
255  return;
256  }
257  if (empty($msg)) {
258  dol_syslog("CMailFile::CMailfile: Try to send an email with empty body");
259  $msg = '.'; // Avoid empty message (with empty message content, you will see a multipart structure)
260  }
261 
262  // Detect if message is HTML (use fast method)
263  if ($msgishtml == -1) {
264  $this->msgishtml = 0;
265  if (dol_textishtml($msg)) {
266  $this->msgishtml = 1;
267  }
268  } else {
269  $this->msgishtml = $msgishtml;
270  }
271 
272  global $dolibarr_main_url_root;
273 
274  // Define $urlwithroot
275  $urlwithouturlroot = preg_replace('/'.preg_quote(DOL_URL_ROOT, '/').'$/i', '', trim($dolibarr_main_url_root));
276  $urlwithroot = $urlwithouturlroot.DOL_URL_ROOT; // This is to use external domain name found into config file
277  //$urlwithroot=DOL_MAIN_URL_ROOT; // This is to use same domain name than current
278 
279  // Replace relative /viewimage to absolute path
280  $msg = preg_replace('/src="'.preg_quote(DOL_URL_ROOT, '/').'\/viewimage\.php/ims', 'src="'.$urlwithroot.'/viewimage.php', $msg, -1);
281 
282  if (getDolGlobalString('MAIN_MAIL_FORCE_CONTENT_TYPE_TO_HTML')) {
283  $this->msgishtml = 1; // To force to send everything with content type html.
284  }
285  dol_syslog("CMailFile::CMailfile: msgishtml=".$this->msgishtml);
286 
287  // Detect images
288  if ($this->msgishtml) {
289  $this->html = $msg;
290 
291  $findimg = 0;
292  if (getDolGlobalString('MAIN_MAIL_ADD_INLINE_IMAGES_IF_IN_MEDIAS')) { // Off by default
293  // Search into the body for <img tags of links in medias files to replace them with an embedded file
294  // Note because media links are public, this should be useless, except avoid blocking images with email browser.
295  // This converts an embed file with src="/viewimage.php?modulepart... into a cid link
296  // TODO Exclude viewimage used for the read tracker ?
297  $findimg = $this->findHtmlImages($dolibarr_main_data_root.'/medias');
298  if ($findimg < 0) {
299  dol_syslog("CMailFile::CMailfile: Error on findHtmlImages");
300  $this->error = 'ErrorInAddAttachmentsImageBaseOnMedia';
301  return;
302  }
303  }
304 
305  if (getDolGlobalString('MAIN_MAIL_ADD_INLINE_IMAGES_IF_DATA')) {
306  // Search into the body for <img src="data:image/ext;base64,..." to replace them with an embedded file
307  // This convert an embedded file with src="data:image... into a cid link + attached file
308  $resultImageData = $this->findHtmlImagesIsSrcData($upload_dir_tmp);
309  if ($resultImageData < 0) {
310  dol_syslog("CMailFile::CMailfile: Error on findHtmlImagesInSrcData code=".$resultImageData." upload_dir_tmp=".$upload_dir_tmp);
311  $this->error = 'ErrorInAddAttachmentsImageBaseIsSrcData';
312  return;
313  }
314  $findimg += $resultImageData;
315  }
316 
317  // Set atleastoneimage if there is at least one embedded file (into ->html_images)
318  if ($findimg > 0) {
319  foreach ($this->html_images as $i => $val) {
320  if ($this->html_images[$i]) {
321  $this->atleastoneimage = 1;
322  if ($this->html_images[$i]['type'] == 'cidfromdata') {
323  if (!in_array($this->html_images[$i]['fullpath'], $filename_list)) {
324  // If this file path is not already into the $filename_list, we append it at end of array
325  $posindice = count($filename_list);
326  $filename_list[$posindice] = $this->html_images[$i]['fullpath'];
327  $mimetype_list[$posindice] = $this->html_images[$i]['content_type'];
328  $mimefilename_list[$posindice] = $this->html_images[$i]['name'];
329  } else {
330  $posindice = array_search($this->html_images[$i]['fullpath'], $filename_list);
331  }
332  // We complete the array of cid_list
333  $cid_list[$posindice] = $this->html_images[$i]['cid'];
334  }
335  dol_syslog("CMailFile::CMailfile: html_images[$i]['name']=".$this->html_images[$i]['name'], LOG_DEBUG);
336  }
337  }
338  }
339  }
340  //var_dump($filename_list);
341  //var_dump($cid_list);exit;
342 
343  // Set atleastoneimage if there is at least one file (into $filename_list array)
344  if (is_array($filename_list)) {
345  foreach ($filename_list as $i => $val) {
346  if ($filename_list[$i]) {
347  $this->atleastonefile = 1;
348  dol_syslog("CMailFile::CMailfile: filename_list[$i]=".$filename_list[$i].", mimetype_list[$i]=".$mimetype_list[$i]." mimefilename_list[$i]=".$mimefilename_list[$i]." cid_list[$i]=".(empty($cid_list[$i]) ? '' : $cid_list[$i]), LOG_DEBUG);
349  }
350  }
351  }
352 
353  // Add auto copy to if not already in $to (Note: Adding bcc for specific modules are also done from pages)
354  // For example MAIN_MAIL_AUTOCOPY_TO can be 'email@example.com, __USER_EMAIL__, ...'
355  if (getDolGlobalString('MAIN_MAIL_AUTOCOPY_TO')) {
356  $listofemailstoadd = explode(',', getDolGlobalString('MAIN_MAIL_AUTOCOPY_TO'));
357  foreach ($listofemailstoadd as $key => $val) {
358  $emailtoadd = $listofemailstoadd[$key];
359  if (trim($emailtoadd) == '__USER_EMAIL__') {
360  if (!empty($user) && !empty($user->email)) {
361  $emailtoadd = $user->email;
362  } else {
363  $emailtoadd = '';
364  }
365  }
366  if ($emailtoadd && preg_match('/'.preg_quote($emailtoadd, '/').'/i', $to)) {
367  $emailtoadd = ''; // Email already in the "To"
368  }
369  if ($emailtoadd) {
370  $listofemailstoadd[$key] = $emailtoadd;
371  } else {
372  unset($listofemailstoadd[$key]);
373  }
374  }
375  if (!empty($listofemailstoadd)) {
376  $addr_bcc .= ($addr_bcc ? ', ' : '').implode(', ', $listofemailstoadd);
377  }
378  }
379 
380  // Verify if $to, $addr_cc and addr_bcc have unwanted addresses
381  if (getDolGlobalString('MAIN_MAIL_FORCE_NOT_SENDING_TO')) {
382  //Verify for $to
383  $replaceto = false;
384  $tabto = explode(",", $to);
385  $listofemailstonotsendto = explode(',', getDolGlobalString('MAIN_MAIL_FORCE_NOT_SENDING_TO'));
386  foreach ($tabto as $key => $addrto) {
387  $addrto = array_keys($this->getArrayAddress($addrto));
388  if (in_array($addrto[0], $listofemailstonotsendto)) {
389  unset($tabto[$key]);
390  $replaceto = true;
391  }
392  }
393  if ($replaceto && getDolGlobalString('MAIN_MAIL_FORCE_NOT_SENDING_TO_REPLACE')) {
394  $tabto[] = getDolGlobalString('MAIN_MAIL_FORCE_NOT_SENDING_TO_REPLACE');
395  }
396  $to = implode(',', $tabto);
397 
398  //Verify for $addr_cc
399  $replacecc = false;
400  $tabcc = explode(',', $addr_cc);
401  foreach ($tabcc as $key => $cc) {
402  $cc = array_keys($this->getArrayAddress($cc));
403  if (in_array($cc[0], $listofemailstonotsendto)) {
404  unset($tabcc[$key]);
405  $replacecc = true;
406  }
407  }
408  if ($replacecc && getDolGlobalString('MAIN_MAIL_FORCE_NOT_SENDING_TO_REPLACE')) {
409  $tabcc[] = getDolGlobalString('MAIN_MAIL_FORCE_NOT_SENDING_TO_REPLACE');
410  }
411  $addr_cc = implode(',', $tabcc);
412 
413  //Verify for $addr_bcc
414  $replacebcc = false;
415  $tabbcc = explode(',', $addr_bcc);
416  foreach ($tabbcc as $key => $bcc) {
417  $bcc = array_keys($this->getArrayAddress($bcc));
418  if (in_array($bcc[0], $listofemailstonotsendto)) {
419  unset($tabbcc[$key]);
420  $replacebcc = true;
421  }
422  }
423  if ($replacebcc && getDolGlobalString('MAIN_MAIL_FORCE_NOT_SENDING_TO_REPLACE')) {
424  $tabbcc[] = getDolGlobalString('MAIN_MAIL_FORCE_NOT_SENDING_TO_REPLACE');
425  }
426  $addr_bcc = implode(',', $tabbcc);
427  }
428 
429  // We always use a replyto
430  if (empty($replyto)) {
431  $replyto = dol_sanitizeEmail($from);
432  }
433  // We can force the from
434  if (getDolGlobalString('MAIN_MAIL_FORCE_FROM')) {
435  $from = getDolGlobalString('MAIN_MAIL_FORCE_FROM');
436  }
437 
438  $this->subject = $subject;
439  $this->addr_to = dol_sanitizeEmail($to);
440  $this->addr_from = dol_sanitizeEmail($from);
441  $this->msg = $msg;
442  $this->addr_cc = dol_sanitizeEmail($addr_cc);
443  $this->addr_bcc = dol_sanitizeEmail($addr_bcc);
444  $this->deliveryreceipt = $deliveryreceipt;
445  $this->reply_to = dol_sanitizeEmail($replyto);
446  $this->errors_to = dol_sanitizeEmail($errors_to);
447  $this->trackid = $trackid;
448  $this->in_reply_to = $in_reply_to;
449  $this->references = $references;
450  // Set arrays with attached files info
451  $this->filename_list = $filename_list;
452  $this->mimetype_list = $mimetype_list;
453  $this->mimefilename_list = $mimefilename_list;
454  $this->cid_list = $cid_list;
455 
456  if (getDolGlobalString('MAIN_MAIL_FORCE_SENDTO')) {
457  $this->addr_to = dol_sanitizeEmail(getDolGlobalString('MAIN_MAIL_FORCE_SENDTO'));
458  $this->addr_cc = '';
459  $this->addr_bcc = '';
460  }
461 
462  $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED';
463  if (!empty($this->sendcontext)) {
464  $smtpContextKey = strtoupper($this->sendcontext);
465  $smtpContextSendMode = getDolGlobalString('MAIN_MAIL_SENDMODE_'.$smtpContextKey);
466  if (!empty($smtpContextSendMode) && $smtpContextSendMode != 'default') {
467  $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED_'.$smtpContextKey;
468  }
469  }
470 
471  dol_syslog("CMailFile::CMailfile: sendmode=".$this->sendmode." addr_bcc=$addr_bcc, replyto=$replyto", LOG_DEBUG);
472 
473  // We set all data according to chose sending method.
474  // We also set a value for ->msgid
475  if ($this->sendmode == 'mail') {
476  // Use mail php function (default PHP method)
477  // ------------------------------------------
478 
479  $smtp_headers = "";
480  $mime_headers = "";
481  $text_body = "";
482  $files_encoded = "";
483 
484  // Define smtp_headers (this also set SMTP headers from ->msgid, ->in_reply_to and ->references)
485  $smtp_headers = $this->write_smtpheaders();
486  if (!empty($moreinheader)) {
487  $smtp_headers .= $moreinheader; // $moreinheader contains the \r\n
488  }
489 
490  // Define mime_headers
491  $mime_headers = $this->write_mimeheaders($filename_list, $mimefilename_list);
492 
493  if (!empty($this->html)) {
494  if (!empty($css)) {
495  $this->css = $css;
496  $this->buildCSS(); // Build a css style (mode = all) into this->styleCSS and this->bodyCSS
497  }
498 
499  $msg = $this->html;
500  }
501 
502  // Define body in text_body
503  $text_body = $this->write_body($msg);
504 
505  // Add attachments to text_encoded
506  if (!empty($this->atleastonefile)) {
507  $files_encoded = $this->write_files($filename_list, $mimetype_list, $mimefilename_list, $cid_list);
508  }
509 
510  // We now define $this->headers and $this->message
511  $this->headers = $smtp_headers.$mime_headers;
512  // Clean the header to avoid that it terminates with a CR character.
513  // This avoid also empty lines at end that can be interpreted as mail injection by email servers.
514  $this->headers = preg_replace("/([\r\n]+)$/i", "", $this->headers);
515 
516  //$this->message = $this->eol.'This is a message with multiple parts in MIME format.'.$this->eol;
517  $this->message = 'This is a message with multiple parts in MIME format.'.$this->eol;
518  $this->message .= $text_body.$files_encoded;
519  $this->message .= "--".$this->mixed_boundary."--".$this->eol;
520  } elseif ($this->sendmode == 'smtps') {
521  // Use SMTPS library
522  // ------------------------------------------
523  $host = dol_getprefix('email');
524 
525  require_once DOL_DOCUMENT_ROOT.'/core/class/smtps.class.php';
526  $smtps = new SMTPs();
527  $smtps->setCharSet($conf->file->character_set_client);
528 
529  // Encode subject if required.
530  $subjecttouse = $this->subject;
531  if (!ascii_check($subjecttouse)) {
532  $subjecttouse = $this->encodetorfc2822($subjecttouse);
533  }
534 
535  $smtps->setSubject($subjecttouse);
536  $smtps->setTO($this->getValidAddress($this->addr_to, 0, 1));
537  $smtps->setFrom($this->getValidAddress($this->addr_from, 0, 1));
538  $smtps->setReplyTo($this->getValidAddress($this->reply_to, 0, 1));
539 
540  $smtps->setTrackId($this->trackid);
541 
542  if (!empty($this->in_reply_to)) {
543  $smtps->setInReplyTo($this->in_reply_to);
544  }
545  if (!empty($this->references)) {
546  $smtps->setReferences($this->references);
547  }
548 
549  if (!empty($moreinheader)) {
550  $smtps->setMoreInHeader($moreinheader);
551  }
552 
553  //X-Dolibarr-TRACKID, In-Reply-To, References and $moreinheader will be added to header inside the smtps->getHeader
554 
555  if (!empty($this->html)) {
556  if (!empty($css)) {
557  $this->css = $css;
558  $this->buildCSS();
559  }
560  $msg = $this->html;
561  $msg = $this->checkIfHTML($msg); // This add a header and a body including custom CSS to the HTML content
562  }
563 
564  // Replace . alone on a new line with .. to avoid to have SMTP interpret this as end of message
565  $msg = preg_replace('/(\r|\n)\.(\r|\n)/ims', '\1..\2', $msg);
566 
567  if ($this->msgishtml) {
568  $smtps->setBodyContent($msg, 'html');
569  } else {
570  $smtps->setBodyContent($msg, 'plain');
571  }
572 
573  if ($this->atleastoneimage) {
574  foreach ($this->images_encoded as $img) {
575  $smtps->setImageInline($img['image_encoded'], $img['name'], $img['content_type'], $img['cid']);
576  }
577  }
578 
579  if (!empty($this->atleastonefile)) {
580  foreach ($filename_list as $i => $val) {
581  $content = file_get_contents($filename_list[$i]);
582  $smtps->setAttachment($content, $mimefilename_list[$i], $mimetype_list[$i], $cid_list[$i]);
583  }
584  }
585 
586  $smtps->setCC($this->addr_cc);
587  $smtps->setBCC($this->addr_bcc);
588  $smtps->setErrorsTo($this->errors_to);
589  $smtps->setDeliveryReceipt($this->deliveryreceipt);
590  if (getDolGlobalString($keyforsslseflsigned)) {
591  $smtps->setOptions(array('ssl' => array('verify_peer' => false, 'verify_peer_name' => false, 'allow_self_signed' => true)));
592  }
593 
594  $this->msgid = time().'.SMTPs-dolibarr-'.$this->trackid.'@'.$host;
595 
596  $this->smtps = $smtps;
597  } elseif ($this->sendmode == 'swiftmailer') {
598  // Use Swift Mailer library
599  // ------------------------------------------
600  $host = dol_getprefix('email');
601 
602  require_once DOL_DOCUMENT_ROOT.'/includes/swiftmailer/lexer/lib/Doctrine/Common/Lexer/AbstractLexer.php';
603 
604  // egulias autoloader lib
605  require_once DOL_DOCUMENT_ROOT.'/includes/swiftmailer/autoload.php';
606 
607  require_once DOL_DOCUMENT_ROOT.'/includes/swiftmailer/lib/swift_required.php';
608 
609  // Create the message
610  //$this->message = Swift_Message::newInstance();
611  $this->message = new Swift_Message();
612  //$this->message = new Swift_SignedMessage();
613  // Adding a trackid header to a message
614  $headers = $this->message->getHeaders();
615 
616  $headers->addTextHeader('X-Dolibarr-TRACKID', $this->trackid.'@'.$host);
617  $this->msgid = time().'.swiftmailer-dolibarr-'.$this->trackid.'@'.$host;
618  $headerID = $this->msgid;
619  $msgid = $headers->get('Message-ID');
620  $msgid->setId($headerID);
621 
622  // Add 'In-Reply-To:' header
623  if (!empty($this->in_reply_to)) {
624  $headers->addIdHeader('In-Reply-To', $this->in_reply_to);
625  }
626  // Add 'References:' header
627  if (!empty($this->references)) {
628  $headers->addIdHeader('References', $this->references);
629  }
630 
631  if (!empty($moreinheader)) {
632  $moreinheaderarray = preg_split('/[\r\n]+/', $moreinheader);
633  foreach ($moreinheaderarray as $moreinheaderval) {
634  $moreinheadervaltmp = explode(':', $moreinheaderval, 2);
635  if (!empty($moreinheadervaltmp[0]) && !empty($moreinheadervaltmp[1])) {
636  $headers->addTextHeader($moreinheadervaltmp[0], $moreinheadervaltmp[1]);
637  }
638  }
639  }
640 
641  // Give the message a subject
642  try {
643  $this->message->setSubject($this->subject);
644  } catch (Exception $e) {
645  $this->errors[] = $e->getMessage();
646  }
647 
648  // Set the From address with an associative array
649  //$this->message->setFrom(array('john@doe.com' => 'John Doe'));
650  if (!empty($this->addr_from)) {
651  try {
652  if (getDolGlobalString('MAIN_FORCE_DISABLE_MAIL_SPOOFING')) {
653  // Prevent email spoofing for smtp server with a strict configuration
654  $regexp = '/([a-z0-9_\.\-\+])+\@(([a-z0-9\-])+\.)+([a-z0-9]{2,4})+/i'; // This regular expression extracts all emails from a string
655  $adressEmailFrom = array();
656  $emailMatchs = preg_match_all($regexp, $from, $adressEmailFrom);
657  $adressEmailFrom = reset($adressEmailFrom);
658  if ($emailMatchs !== false && filter_var($conf->global->MAIN_MAIL_SMTPS_ID, FILTER_VALIDATE_EMAIL) && $conf->global->MAIN_MAIL_SMTPS_ID !== $adressEmailFrom) {
659  $this->message->setFrom($conf->global->MAIN_MAIL_SMTPS_ID);
660  } else {
661  $this->message->setFrom($this->getArrayAddress($this->addr_from));
662  }
663  } else {
664  $this->message->setFrom($this->getArrayAddress($this->addr_from));
665  }
666  } catch (Exception $e) {
667  $this->errors[] = $e->getMessage();
668  }
669  }
670 
671  // Set the To addresses with an associative array
672  if (!empty($this->addr_to)) {
673  try {
674  $this->message->setTo($this->getArrayAddress($this->addr_to));
675  } catch (Exception $e) {
676  $this->errors[] = $e->getMessage();
677  }
678  }
679 
680  if (!empty($this->reply_to)) {
681  try {
682  $this->message->SetReplyTo($this->getArrayAddress($this->reply_to));
683  } catch (Exception $e) {
684  $this->errors[] = $e->getMessage();
685  }
686  }
687 
688  if (!empty($this->errors_to)) {
689  try {
690  $headers->addTextHeader('Errors-To', $this->getArrayAddress($this->errors_to));
691  } catch (Exception $e) {
692  $this->errors[] = $e->getMessage();
693  }
694  }
695 
696  try {
697  $this->message->setCharSet($conf->file->character_set_client);
698  } catch (Exception $e) {
699  $this->errors[] = $e->getMessage();
700  }
701 
702  if (!empty($this->html)) {
703  if (!empty($css)) {
704  $this->css = $css;
705  $this->buildCSS();
706  }
707  $msg = $this->html;
708  $msg = $this->checkIfHTML($msg); // This add a header and a body including custom CSS to the HTML content
709  }
710 
711  if ($this->atleastoneimage) {
712  foreach ($this->images_encoded as $img) {
713  //$img['fullpath'],$img['image_encoded'],$img['name'],$img['content_type'],$img['cid']
714  $attachment = Swift_Image::fromPath($img['fullpath']);
715  // embed image
716  $imgcid = $this->message->embed($attachment);
717  // replace cid by the one created by swiftmail in html message
718  $msg = str_replace("cid:".$img['cid'], $imgcid, $msg);
719  }
720  }
721 
722  if ($this->msgishtml) {
723  $this->message->setBody($msg, 'text/html');
724  // And optionally an alternative body
725  $this->message->addPart(html_entity_decode(strip_tags($msg)), 'text/plain');
726  } else {
727  $this->message->setBody($msg, 'text/plain');
728  // And optionally an alternative body
729  $this->message->addPart(dol_nl2br($msg), 'text/html');
730  }
731 
732  if (!empty($this->atleastonefile)) {
733  foreach ($filename_list as $i => $val) {
734  //$this->message->attach(Swift_Attachment::fromPath($filename_list[$i],$mimetype_list[$i]));
735  $attachment = Swift_Attachment::fromPath($filename_list[$i], $mimetype_list[$i]);
736  if (!empty($mimefilename_list[$i])) {
737  $attachment->setFilename($mimefilename_list[$i]);
738  }
739  $this->message->attach($attachment);
740  }
741  }
742 
743  if (!empty($this->addr_cc)) {
744  try {
745  $this->message->setCc($this->getArrayAddress($this->addr_cc));
746  } catch (Exception $e) {
747  $this->errors[] = $e->getMessage();
748  }
749  }
750  if (!empty($this->addr_bcc)) {
751  try {
752  $this->message->setBcc($this->getArrayAddress($this->addr_bcc));
753  } catch (Exception $e) {
754  $this->errors[] = $e->getMessage();
755  }
756  }
757  //if (!empty($this->errors_to)) $this->message->setErrorsTo($this->getArrayAddress($this->errors_to));
758  if (isset($this->deliveryreceipt) && $this->deliveryreceipt == 1) {
759  try {
760  $this->message->setReadReceiptTo($this->getArrayAddress($this->addr_from));
761  } catch (Exception $e) {
762  $this->errors[] = $e->getMessage();
763  }
764  }
765  } else {
766  // Send mail method not correctly defined
767  // --------------------------------------
768  $this->error = 'Bad value for sendmode';
769  }
770  }
771 
779  public function sendfile()
780  {
781  global $conf, $db, $langs, $hookmanager;
782 
783  $errorlevel = error_reporting();
784  //error_reporting($errorlevel ^ E_WARNING); // Desactive warnings
785 
786  $res = false;
787 
788  if (!getDolGlobalString('MAIN_DISABLE_ALL_MAILS')) {
789  if (!is_object($hookmanager)) {
790  include_once DOL_DOCUMENT_ROOT.'/core/class/hookmanager.class.php';
791  $hookmanager = new HookManager($db);
792  }
793  $hookmanager->initHooks(array('mail'));
794 
795  $parameters = array();
796  $action = '';
797  $reshook = $hookmanager->executeHooks('sendMail', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
798  if ($reshook < 0) {
799  $this->error = "Error in hook maildao sendMail ".$reshook;
800  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
801 
802  return false;
803  }
804  if ($reshook == 1) { // Hook replace standard code
805  return true;
806  }
807 
808  $sendingmode = $this->sendmode;
809  if ($this->sendcontext == 'emailing' && getDolGlobalString('MAILING_NO_USING_PHPMAIL') && $sendingmode == 'mail') {
810  // List of sending methods
811  $listofmethods = array();
812  $listofmethods['mail'] = 'PHP mail function';
813  //$listofmethods['simplemail']='Simplemail class';
814  $listofmethods['smtps'] = 'SMTP/SMTPS socket library';
815 
816  // EMailing feature may be a spam problem, so when you host several users/instance, having this option may force each user to use their own SMTP agent.
817  // You ensure that every user is using its own SMTP server when using the mass emailing module.
818  $linktoadminemailbefore = '<a href="'.DOL_URL_ROOT.'/admin/mails.php">';
819  $linktoadminemailend = '</a>';
820  $this->error = $langs->trans("MailSendSetupIs", $listofmethods[$sendingmode]);
821  $this->errors[] = $langs->trans("MailSendSetupIs", $listofmethods[$sendingmode]);
822  $this->error .= '<br>'.$langs->trans("MailSendSetupIs2", $linktoadminemailbefore, $linktoadminemailend, $langs->transnoentitiesnoconv("MAIN_MAIL_SENDMODE"), $listofmethods['smtps']);
823  $this->errors[] = $langs->trans("MailSendSetupIs2", $linktoadminemailbefore, $linktoadminemailend, $langs->transnoentitiesnoconv("MAIN_MAIL_SENDMODE"), $listofmethods['smtps']);
824  if (getDolGlobalString('MAILING_SMTP_SETUP_EMAILS_FOR_QUESTIONS')) {
825  $this->error .= '<br>'.$langs->trans("MailSendSetupIs3", getDolGlobalString('MAILING_SMTP_SETUP_EMAILS_FOR_QUESTIONS'));
826  $this->errors[] = $langs->trans("MailSendSetupIs3", getDolGlobalString('MAILING_SMTP_SETUP_EMAILS_FOR_QUESTIONS'));
827  }
828 
829  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
830  return false;
831  }
832 
833  // Check number of recipient is lower or equal than MAIL_MAX_NB_OF_RECIPIENTS_IN_SAME_EMAIL
834  if (!getDolGlobalString('MAIL_MAX_NB_OF_RECIPIENTS_TO_IN_SAME_EMAIL')) {
835  $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_TO_IN_SAME_EMAIL = 10;
836  }
837  $tmparray1 = explode(',', $this->addr_to);
838  if (count($tmparray1) > $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_TO_IN_SAME_EMAIL) {
839  $this->error = 'Too much recipients in to:';
840  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
841  return false;
842  }
843  if (!getDolGlobalString('MAIL_MAX_NB_OF_RECIPIENTS_CC_IN_SAME_EMAIL')) {
844  $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_CC_IN_SAME_EMAIL = 10;
845  }
846  $tmparray2 = explode(',', $this->addr_cc);
847  if (count($tmparray2) > $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_CC_IN_SAME_EMAIL) {
848  $this->error = 'Too much recipients in cc:';
849  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
850  return false;
851  }
852  if (!getDolGlobalString('MAIL_MAX_NB_OF_RECIPIENTS_BCC_IN_SAME_EMAIL')) {
853  $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_BCC_IN_SAME_EMAIL = 10;
854  }
855  $tmparray3 = explode(',', $this->addr_bcc);
856  if (count($tmparray3) > $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_BCC_IN_SAME_EMAIL) {
857  $this->error = 'Too much recipients in bcc:';
858  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
859  return false;
860  }
861  if (!getDolGlobalString('MAIL_MAX_NB_OF_RECIPIENTS_IN_SAME_EMAIL')) {
862  $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_IN_SAME_EMAIL = 10;
863  }
864  if ((count($tmparray1) + count($tmparray2) + count($tmparray3)) > $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_IN_SAME_EMAIL) {
865  $this->error = 'Too much recipients in to:, cc:, bcc:';
866  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
867  return false;
868  }
869 
870  $keyforsmtpserver = 'MAIN_MAIL_SMTP_SERVER';
871  $keyforsmtpport = 'MAIN_MAIL_SMTP_PORT';
872  $keyforsmtpid = 'MAIN_MAIL_SMTPS_ID';
873  $keyforsmtppw = 'MAIN_MAIL_SMTPS_PW';
874  $keyforsmtpauthtype = 'MAIN_MAIL_SMTPS_AUTH_TYPE';
875  $keyforsmtpoauthservice = 'MAIN_MAIL_SMTPS_OAUTH_SERVICE';
876  $keyfortls = 'MAIN_MAIL_EMAIL_TLS';
877  $keyforstarttls = 'MAIN_MAIL_EMAIL_STARTTLS';
878  $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED';
879  if (!empty($this->sendcontext)) {
880  $smtpContextKey = strtoupper($this->sendcontext);
881  $smtpContextSendMode = getDolGlobalString('MAIN_MAIL_SENDMODE_'.$smtpContextKey);
882  if (!empty($smtpContextSendMode) && $smtpContextSendMode != 'default') {
883  $keyforsmtpserver = 'MAIN_MAIL_SMTP_SERVER_'.$smtpContextKey;
884  $keyforsmtpport = 'MAIN_MAIL_SMTP_PORT_'.$smtpContextKey;
885  $keyforsmtpid = 'MAIN_MAIL_SMTPS_ID_'.$smtpContextKey;
886  $keyforsmtppw = 'MAIN_MAIL_SMTPS_PW_'.$smtpContextKey;
887  $keyforsmtpauthtype = 'MAIN_MAIL_SMTPS_AUTH_TYPE_'.$smtpContextKey;
888  $keyforsmtpoauthservice = 'MAIN_MAIL_SMTPS_OAUTH_SERVICE_'.$smtpContextKey;
889  $keyfortls = 'MAIN_MAIL_EMAIL_TLS_'.$smtpContextKey;
890  $keyforstarttls = 'MAIN_MAIL_EMAIL_STARTTLS_'.$smtpContextKey;
891  $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED_'.$smtpContextKey;
892  }
893  }
894 
895  // Action according to chose sending method
896  if ($this->sendmode == 'mail') {
897  // Use mail php function (default PHP method)
898  // ------------------------------------------
899  dol_syslog("CMailFile::sendfile addr_to=".$this->addr_to.", subject=".$this->subject, LOG_DEBUG);
900  //dol_syslog("CMailFile::sendfile header=\n".$this->headers, LOG_DEBUG);
901  //dol_syslog("CMailFile::sendfile message=\n".$message);
902 
903  // If Windows, sendmail_from must be defined
904  if (isset($_SERVER["WINDIR"])) {
905  if (empty($this->addr_from)) {
906  $this->addr_from = 'robot@example.com';
907  }
908  @ini_set('sendmail_from', $this->getValidAddress($this->addr_from, 2));
909  }
910 
911  // Force parameters
912  //dol_syslog("CMailFile::sendfile conf->global->".$keyforsmtpserver."=".getDolGlobalString($keyforsmtpserver)." cpnf->global->".$keyforsmtpport."=".$conf->global->$keyforsmtpport, LOG_DEBUG);
913  if (getDolGlobalString($keyforsmtpserver)) {
914  ini_set('SMTP', getDolGlobalString($keyforsmtpserver));
915  }
916  if (getDolGlobalString($keyforsmtpport)) {
917  ini_set('smtp_port', getDolGlobalString($keyforsmtpport));
918  }
919 
920  $res = true;
921  if ($res && !$this->subject) {
922  $this->error = "Failed to send mail with php mail to HOST=".ini_get('SMTP').", PORT=".ini_get('smtp_port')."<br>Subject is empty";
923  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
924  $res = false;
925  }
926  $dest = $this->getValidAddress($this->addr_to, 2);
927  if ($res && !$dest) {
928  $this->error = "Failed to send mail with php mail to HOST=".ini_get('SMTP').", PORT=".ini_get('smtp_port')."<br>Recipient address '$dest' invalid";
929  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
930  $res = false;
931  }
932 
933  if ($res) {
934  $additionnalparam = ''; // By default
935  if (getDolGlobalString('MAIN_MAIL_ALLOW_SENDMAIL_F')) {
936  // When using the phpmail function, the mail command may force the from to the user of the login, for example: linuxuser@myserver.mydomain.com
937  // You can try to set this option to have the command use the From. if it does not work, you can also try the MAIN_MAIL_SENDMAIL_FORCE_BA.
938  // So forcing using the option -f of sendmail is possible if constant MAIN_MAIL_ALLOW_SENDMAIL_F is defined.
939  // Having this variable defined may create problems with some sendmail (option -f refused)
940  // Having this variable not defined may create problems with some other sendmail (option -f required)
941  $additionnalparam .= ($additionnalparam ? ' ' : '').(getDolGlobalString('MAIN_MAIL_ERRORS_TO') ? '-f'.$this->getValidAddress($conf->global->MAIN_MAIL_ERRORS_TO, 2) : ($this->addr_from != '' ? '-f'.$this->getValidAddress($this->addr_from, 2) : ''));
942  }
943  if (getDolGlobalString('MAIN_MAIL_SENDMAIL_FORCE_BA')) { // To force usage of -ba option. This option tells sendmail to read From: or Sender: to setup sender
944  $additionnalparam .= ($additionnalparam ? ' ' : '').'-ba';
945  }
946 
947  if (getDolGlobalString('MAIN_MAIL_SENDMAIL_FORCE_ADDPARAM')) {
948  $additionnalparam .= ($additionnalparam ? ' ' : '').'-U '.$additionnalparam; // Use -U to add additional params
949  }
950 
951  $linuxlike = 1;
952  if (preg_match('/^win/i', PHP_OS)) {
953  $linuxlike = 0;
954  }
955  if (preg_match('/^mac/i', PHP_OS)) {
956  $linuxlike = 0;
957  }
958 
959  dol_syslog("CMailFile::sendfile: mail start".($linuxlike ? '' : " HOST=".ini_get('SMTP').", PORT=".ini_get('smtp_port')).", additionnal_parameters=".$additionnalparam, LOG_DEBUG);
960 
961  $this->message = stripslashes($this->message);
962 
963  if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
964  $this->dump_mail();
965  }
966 
967  // Encode subject if required.
968  $subjecttouse = $this->subject;
969  if (!ascii_check($subjecttouse)) {
970  $subjecttouse = $this->encodetorfc2822($subjecttouse);
971  }
972 
973  if (!empty($additionnalparam)) {
974  $res = mail($dest, $subjecttouse, $this->message, $this->headers, $additionnalparam);
975  } else {
976  $res = mail($dest, $subjecttouse, $this->message, $this->headers);
977  }
978 
979  if (!$res) {
980  $langs->load("errors");
981  $this->error = "Failed to send mail with php mail";
982  if (!$linuxlike) {
983  $this->error .= " to HOST=".ini_get('SMTP').", PORT=".ini_get('smtp_port'); // This values are value used only for non linuxlike systems
984  }
985  $this->error .= ".<br>";
986  $this->error .= $langs->trans("ErrorPhpMailDelivery");
987  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
988 
989  if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
990  $this->save_dump_mail_in_err('Mail with topic '.$this->subject);
991  }
992  } else {
993  dol_syslog("CMailFile::sendfile: mail end success", LOG_DEBUG);
994  }
995  }
996 
997  if (isset($_SERVER["WINDIR"])) {
998  @ini_restore('sendmail_from');
999  }
1000 
1001  // Restore parameters
1002  if (getDolGlobalString($keyforsmtpserver)) {
1003  ini_restore('SMTP');
1004  }
1005  if (getDolGlobalString($keyforsmtpport)) {
1006  ini_restore('smtp_port');
1007  }
1008  } elseif ($this->sendmode == 'smtps') {
1009  if (!is_object($this->smtps)) {
1010  $this->error = "Failed to send mail with smtps lib<br>Constructor of object CMailFile was not initialized without errors.";
1011  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1012  return false;
1013  }
1014 
1015  // Use SMTPS library
1016  // ------------------------------------------
1017  $this->smtps->setTransportType(0); // Only this method is coded in SMTPs library
1018 
1019  // Clean parameters
1020  if (empty($conf->global->$keyforsmtpserver)) {
1021  $conf->global->$keyforsmtpserver = ini_get('SMTP');
1022  }
1023  if (empty($conf->global->$keyforsmtpport)) {
1024  $conf->global->$keyforsmtpport = ini_get('smtp_port');
1025  }
1026 
1027  // If we use SSL/TLS
1028  $server = getDolGlobalString($keyforsmtpserver);
1029  $secure = '';
1030  if (!empty($conf->global->$keyfortls) && function_exists('openssl_open')) {
1031  $secure = 'ssl';
1032  }
1033  if (!empty($conf->global->$keyforstarttls) && function_exists('openssl_open')) {
1034  $secure = 'tls';
1035  }
1036  $server = ($secure ? $secure.'://' : '').$server;
1037 
1038  $port = getDolGlobalInt($keyforsmtpport);
1039 
1040  $this->smtps->setHost($server);
1041  $this->smtps->setPort($port); // 25, 465...;
1042 
1043  $loginid = '';
1044  $loginpass = '';
1045  if (!empty($conf->global->$keyforsmtpid)) {
1046  $loginid = getDolGlobalString($keyforsmtpid);
1047  $this->smtps->setID($loginid);
1048  }
1049  if (!empty($conf->global->$keyforsmtppw)) {
1050  $loginpass = getDolGlobalString($keyforsmtppw);
1051  $this->smtps->setPW($loginpass);
1052  }
1053 
1054  if (getDolGlobalString($keyforsmtpauthtype) === "XOAUTH2") {
1055  require_once DOL_DOCUMENT_ROOT.'/core/lib/oauth.lib.php'; // define $supportedoauth2array
1056 
1057  $supportedoauth2array = getSupportedOauth2Array();
1058 
1059  $keyforsupportedoauth2array = getDolGlobalString($keyforsmtpoauthservice);
1060  if (preg_match('/^.*-/', $keyforsupportedoauth2array)) {
1061  $keyforprovider = preg_replace('/^.*-/', '', $keyforsupportedoauth2array);
1062  } else {
1063  $keyforprovider = '';
1064  }
1065  $keyforsupportedoauth2array = preg_replace('/-.*$/', '', $keyforsupportedoauth2array);
1066  $keyforsupportedoauth2array = 'OAUTH_'.$keyforsupportedoauth2array.'_NAME';
1067 
1068  if (!empty($supportedoauth2array)) {
1069  $OAUTH_SERVICENAME = (empty($supportedoauth2array[$keyforsupportedoauth2array]['name']) ? 'Unknown' : $supportedoauth2array[$keyforsupportedoauth2array]['name'].($keyforprovider ? '-'.$keyforprovider : ''));
1070  } else {
1071  $OAUTH_SERVICENAME = 'Unknown';
1072  }
1073 
1074  require_once DOL_DOCUMENT_ROOT.'/includes/OAuth/bootstrap.php';
1075 
1076  $storage = new DoliStorage($db, $conf, $keyforprovider);
1077  try {
1078  $tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME);
1079  $expire = false;
1080  // Is token expired or will token expire in the next 30 seconds
1081  if (is_object($tokenobj)) {
1082  $expire = ($tokenobj->getEndOfLife() !== -9002 && $tokenobj->getEndOfLife() !== -9001 && time() > ($tokenobj->getEndOfLife() - 30));
1083  }
1084  // Token expired so we refresh it
1085  if (is_object($tokenobj) && $expire) {
1086  $credentials = new Credentials(
1087  getDolGlobalString('OAUTH_'.getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE').'_ID'),
1088  getDolGlobalString('OAUTH_'.getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE').'_SECRET'),
1089  getDolGlobalString('OAUTH_'.getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE').'_URLAUTHORIZE')
1090  );
1091  $serviceFactory = new \OAuth\ServiceFactory();
1092  $oauthname = explode('-', $OAUTH_SERVICENAME);
1093  // ex service is Google-Emails we need only the first part Google
1094  $apiService = $serviceFactory->createService($oauthname[0], $credentials, $storage, array());
1095  // We have to save the token because Google give it only once
1096  $refreshtoken = $tokenobj->getRefreshToken();
1097  $tokenobj = $apiService->refreshAccessToken($tokenobj);
1098  $tokenobj->setRefreshToken($refreshtoken);
1099  $storage->storeAccessToken($OAUTH_SERVICENAME, $tokenobj);
1100  }
1101 
1102  $tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME);
1103  if (is_object($tokenobj)) {
1104  $this->smtps->setToken($tokenobj->getAccessToken());
1105  } else {
1106  $this->error = "Token not found";
1107  }
1108  } catch (Exception $e) {
1109  // Return an error if token not found
1110  $this->error = $e->getMessage();
1111  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1112  }
1113  }
1114 
1115  $res = true;
1116  $from = $this->smtps->getFrom('org');
1117  if ($res && !$from) {
1118  $this->error = "Failed to send mail with smtps lib to HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport)." - Sender address '$from' invalid";
1119  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1120  $res = false;
1121  }
1122  $dest = $this->smtps->getTo();
1123  if ($res && !$dest) {
1124  $this->error = "Failed to send mail with smtps lib to HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport)." - Recipient address '$dest' invalid";
1125  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1126  $res = false;
1127  }
1128 
1129  if ($res) {
1130  dol_syslog("CMailFile::sendfile: sendMsg, HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport), LOG_DEBUG);
1131 
1132  if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1133  $this->smtps->setDebug(true);
1134  }
1135 
1136  $result = $this->smtps->sendMsg();
1137 
1138  if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1139  $this->dump_mail();
1140  }
1141 
1142  $smtperrorcode = 0;
1143  if (! $result) {
1144  $smtperrorcode = $this->smtps->lastretval; // SMTP error code
1145  dol_syslog("CMailFile::sendfile: mail SMTP error code ".$smtperrorcode, LOG_WARNING);
1146 
1147  if ($smtperrorcode == '421') { // Try later
1148  // TODO Add a delay and try again
1149  /*
1150  dol_syslog("CMailFile::sendfile: Try later error, so we wait and we retry");
1151  sleep(2);
1152 
1153  $result = $this->smtps->sendMsg();
1154 
1155  if (!empty($conf->global->MAIN_MAIL_DEBUG)) {
1156  $this->dump_mail();
1157  }
1158  */
1159  }
1160  }
1161 
1162  $result = $this->smtps->getErrors(); // applicative error code (not SMTP error code)
1163  if (empty($this->error) && empty($result)) {
1164  dol_syslog("CMailFile::sendfile: mail end success", LOG_DEBUG);
1165  $res = true;
1166  } else {
1167  if (empty($this->error)) {
1168  $this->error = $result;
1169  }
1170  dol_syslog("CMailFile::sendfile: mail end error with smtps lib to HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport)." - ".$this->error, LOG_ERR);
1171  $res = false;
1172 
1173  if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1174  $this->save_dump_mail_in_err('Mail smtp error '.$smtperrorcode.' with topic '.$this->subject);
1175  }
1176  }
1177  }
1178  } elseif ($this->sendmode == 'swiftmailer') {
1179  // Use Swift Mailer library
1180  // ------------------------------------------
1181  require_once DOL_DOCUMENT_ROOT.'/includes/swiftmailer/lib/swift_required.php';
1182 
1183  // Clean parameters
1184  if (empty($conf->global->$keyforsmtpserver)) {
1185  $conf->global->$keyforsmtpserver = ini_get('SMTP');
1186  }
1187  if (empty($conf->global->$keyforsmtpport)) {
1188  $conf->global->$keyforsmtpport = ini_get('smtp_port');
1189  }
1190 
1191  // If we use SSL/TLS
1192  $server = getDolGlobalString($keyforsmtpserver);
1193  $secure = '';
1194  if (!empty($conf->global->$keyfortls) && function_exists('openssl_open')) {
1195  $secure = 'ssl';
1196  }
1197  if (!empty($conf->global->$keyforstarttls) && function_exists('openssl_open')) {
1198  $secure = 'tls';
1199  }
1200 
1201  $this->transport = new Swift_SmtpTransport($server, getDolGlobalString($keyforsmtpport), $secure);
1202 
1203  if (!empty($conf->global->$keyforsmtpid)) {
1204  $this->transport->setUsername($conf->global->$keyforsmtpid);
1205  }
1206  if (!empty($conf->global->$keyforsmtppw) && getDolGlobalString($keyforsmtpauthtype) != "XOAUTH2") {
1207  $this->transport->setPassword($conf->global->$keyforsmtppw);
1208  }
1209  if (getDolGlobalString($keyforsmtpauthtype) === "XOAUTH2") {
1210  require_once DOL_DOCUMENT_ROOT.'/core/lib/oauth.lib.php';
1211 
1212  $supportedoauth2array = getSupportedOauth2Array();
1213 
1214  $keyforsupportedoauth2array = getDolGlobalString($keyforsmtpoauthservice);
1215  if (preg_match('/^.*-/', $keyforsupportedoauth2array)) {
1216  $keyforprovider = preg_replace('/^.*-/', '', $keyforsupportedoauth2array);
1217  } else {
1218  $keyforprovider = '';
1219  }
1220  $keyforsupportedoauth2array = preg_replace('/-.*$/', '', $keyforsupportedoauth2array);
1221  $keyforsupportedoauth2array = 'OAUTH_'.$keyforsupportedoauth2array.'_NAME';
1222 
1223  $OAUTH_SERVICENAME = 'Unknown';
1224  if (array_key_exists($keyforsupportedoauth2array, $supportedoauth2array)
1225  && array_key_exists('name', $supportedoauth2array[$keyforsupportedoauth2array])
1226  && !empty($supportedoauth2array[$keyforsupportedoauth2array]['name'])) {
1227  $OAUTH_SERVICENAME = $supportedoauth2array[$keyforsupportedoauth2array]['name'].(!empty($keyforprovider) ? '-'.$keyforprovider : '');
1228  }
1229 
1230  require_once DOL_DOCUMENT_ROOT.'/includes/OAuth/bootstrap.php';
1231 
1232  $storage = new DoliStorage($db, $conf, $keyforprovider);
1233 
1234  try {
1235  $tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME);
1236  $expire = false;
1237  // Is token expired or will token expire in the next 30 seconds
1238  if (is_object($tokenobj)) {
1239  $expire = ($tokenobj->getEndOfLife() !== -9002 && $tokenobj->getEndOfLife() !== -9001 && time() > ($tokenobj->getEndOfLife() - 30));
1240  }
1241  // Token expired so we refresh it
1242  if (is_object($tokenobj) && $expire) {
1243  $credentials = new Credentials(
1244  getDolGlobalString('OAUTH_'.getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE').'_ID'),
1245  getDolGlobalString('OAUTH_'.getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE').'_SECRET'),
1246  getDolGlobalString('OAUTH_'.getDolGlobalString('MAIN_MAIL_SMTPS_OAUTH_SERVICE').'_URLAUTHORIZE')
1247  );
1248  $serviceFactory = new \OAuth\ServiceFactory();
1249  $oauthname = explode('-', $OAUTH_SERVICENAME);
1250  // ex service is Google-Emails we need only the first part Google
1251  $apiService = $serviceFactory->createService($oauthname[0], $credentials, $storage, array());
1252  // We have to save the token because Google give it only once
1253  $refreshtoken = $tokenobj->getRefreshToken();
1254  $tokenobj = $apiService->refreshAccessToken($tokenobj);
1255  $tokenobj->setRefreshToken($refreshtoken);
1256  $storage->storeAccessToken($OAUTH_SERVICENAME, $tokenobj);
1257  }
1258  if (is_object($tokenobj)) {
1259  $this->transport->setAuthMode('XOAUTH2');
1260  $this->transport->setPassword($tokenobj->getAccessToken());
1261  } else {
1262  $this->errors[] = "Token not found";
1263  }
1264  } catch (Exception $e) {
1265  // Return an error if token not found
1266  $this->errors[] = $e->getMessage();
1267  dol_syslog("CMailFile::sendfile: mail end error=".$e->getMessage(), LOG_ERR);
1268  }
1269  }
1270  if (getDolGlobalString($keyforsslseflsigned)) {
1271  $this->transport->setStreamOptions(array('ssl' => array('allow_self_signed' => true, 'verify_peer' => false)));
1272  }
1273  //$smtps->_msgReplyTo = 'reply@web.com';
1274 
1275  // Switch content encoding to base64 - avoid the doubledot issue with quoted-printable
1276  $contentEncoderBase64 = new Swift_Mime_ContentEncoder_Base64ContentEncoder();
1277  $this->message->setEncoder($contentEncoderBase64);
1278 
1279  // Create the Mailer using your created Transport
1280  $this->mailer = new Swift_Mailer($this->transport);
1281 
1282  // DKIM SIGN
1283  if (getDolGlobalString('MAIN_MAIL_EMAIL_DKIM_ENABLED')) {
1284  $privateKey = getDolGlobalString('MAIN_MAIL_EMAIL_DKIM_PRIVATE_KEY');
1285  $domainName = getDolGlobalString('MAIN_MAIL_EMAIL_DKIM_DOMAIN');
1286  $selector = getDolGlobalString('MAIN_MAIL_EMAIL_DKIM_SELECTOR');
1287  $signer = new Swift_Signers_DKIMSigner($privateKey, $domainName, $selector);
1288  $this->message->attachSigner($signer->ignoreHeader('Return-Path'));
1289  }
1290 
1291  if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1292  // To use the ArrayLogger
1293  $this->logger = new Swift_Plugins_Loggers_ArrayLogger();
1294  // Or to use the Echo Logger
1295  //$this->logger = new Swift_Plugins_Loggers_EchoLogger();
1296  $this->mailer->registerPlugin(new Swift_Plugins_LoggerPlugin($this->logger));
1297  }
1298 
1299  dol_syslog("CMailFile::sendfile: mailer->send, HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport), LOG_DEBUG);
1300 
1301  // send mail
1302  $failedRecipients = array();
1303  try {
1304  $result = $this->mailer->send($this->message, $failedRecipients);
1305  } catch (Exception $e) {
1306  $this->errors[] = $e->getMessage();
1307  }
1308  if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1309  $this->dump_mail();
1310  }
1311 
1312  $res = true;
1313  if (!empty($this->error) || !empty($this->errors) || !$result) {
1314  if (!empty($failedRecipients)) {
1315  $this->errors[] = 'Transport failed for the following addresses: "' . implode('", "', $failedRecipients) . '".';
1316  }
1317  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1318  $res = false;
1319 
1320  if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1321  $this->save_dump_mail_in_err('Mail with topic '.$this->subject);
1322  }
1323  } else {
1324  dol_syslog("CMailFile::sendfile: mail end success", LOG_DEBUG);
1325  }
1326  } else {
1327  // Send mail method not correctly defined
1328  // --------------------------------------
1329 
1330  $this->error = 'Bad value for sendmode';
1331  return false;
1332  }
1333 
1334  // Now we delete image files that were created dynamically to manage data inline files
1335  foreach ($this->html_images as $val) {
1336  if (!empty($val['type']) && $val['type'] == 'cidfromdata') {
1337  //dol_delete($val['fullpath']);
1338  }
1339  }
1340 
1341  $parameters = array('sent' => $res);
1342  $action = '';
1343  $reshook = $hookmanager->executeHooks('sendMailAfter', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
1344  if ($reshook < 0) {
1345  $this->error = "Error in hook maildao sendMailAfter ".$reshook;
1346  dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1347 
1348  return false;
1349  }
1350  } else {
1351  $this->error = 'No mail sent. Feature is disabled by option MAIN_DISABLE_ALL_MAILS';
1352  dol_syslog("CMailFile::sendfile: ".$this->error, LOG_WARNING);
1353  }
1354 
1355  error_reporting($errorlevel); // Reactive niveau erreur origine
1356  return $res;
1357  }
1358 
1365  public static function encodetorfc2822($stringtoencode)
1366  {
1367  global $conf;
1368  return '=?'.$conf->file->character_set_client.'?B?'.base64_encode($stringtoencode).'?=';
1369  }
1370 
1371  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1378  private function _encode_file($sourcefile)
1379  {
1380  // phpcs:enable
1381  $newsourcefile = dol_osencode($sourcefile);
1382 
1383  if (is_readable($newsourcefile)) {
1384  $contents = file_get_contents($newsourcefile); // Need PHP 4.3
1385  $encoded = chunk_split(base64_encode($contents), 76, $this->eol); // 76 max is defined into http://tools.ietf.org/html/rfc2047
1386  return $encoded;
1387  } else {
1388  $this->error = "Error in _encode_file() method: Can't read file '".$sourcefile."'";
1389  dol_syslog("CMailFile::_encode_file: ".$this->error, LOG_ERR);
1390  return -1;
1391  }
1392  }
1393 
1394 
1395  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1403  public function dump_mail()
1404  {
1405  // phpcs:enable
1406  global $dolibarr_main_data_root;
1407 
1408  if (@is_writable($dolibarr_main_data_root)) { // Avoid fatal error on fopen with open_basedir
1409  $outputfile = $dolibarr_main_data_root."/dolibarr_mail.log";
1410  $fp = fopen($outputfile, "w"); // overwrite
1411 
1412  if ($this->sendmode == 'mail') {
1413  fwrite($fp, $this->headers);
1414  fwrite($fp, $this->eol); // This eol is added by the mail function, so we add it in log
1415  fwrite($fp, $this->message);
1416  } elseif ($this->sendmode == 'smtps') {
1417  fwrite($fp, $this->smtps->log); // this->smtps->log is filled only if MAIN_MAIL_DEBUG was set to on
1418  } elseif ($this->sendmode == 'swiftmailer') {
1419  fwrite($fp, "smtpheader=\n".$this->message->getHeaders()->toString()."\n");
1420  fwrite($fp, $this->logger->dump()); // this->logger is filled only if MAIN_MAIL_DEBUG was set to on
1421  }
1422 
1423  fclose($fp);
1424  dolChmod($outputfile);
1425 
1426  // Move dolibarr_mail.log into a dolibarr_mail.YYYYMMDD.log
1427  if (getDolGlobalString('MAIN_MAIL_DEBUG_LOG_WITH_DATE')) {
1428  $destfile = $dolibarr_main_data_root."/dolibarr_mail.".dol_print_date(dol_now(), 'dayhourlog', 'gmt').".log";
1429 
1430  require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
1431  dol_move($outputfile, $destfile, 0, 1, 0, 0);
1432  }
1433  }
1434  }
1435 
1436  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1444  public function save_dump_mail_in_err($message = '')
1445  {
1446  global $dolibarr_main_data_root;
1447 
1448  if (@is_writable($dolibarr_main_data_root)) { // Avoid fatal error on fopen with open_basedir
1449  $srcfile = $dolibarr_main_data_root."/dolibarr_mail.log";
1450 
1451  // Add message to dolibarr_mail.log. We do not use dol_syslog() on purpose,
1452  // to be sure to write into dolibarr_mail.log
1453  if ($message) {
1454  // Test constant SYSLOG_FILE_NO_ERROR (should stay a constant defined with define('SYSLOG_FILE_NO_ERROR',1);
1455  if (defined('SYSLOG_FILE_NO_ERROR')) {
1456  $filefd = @fopen($srcfile, 'a+');
1457  } else {
1458  $filefd = fopen($srcfile, 'a+');
1459  }
1460  if ($filefd) {
1461  fwrite($filefd, $message."\n");
1462  fclose($filefd);
1463  dolChmod($srcfile);
1464  }
1465  }
1466 
1467  // Move dolibarr_mail.log into a dolibarr_mail.err or dolibarr_mail.date.err
1468  if (getDolGlobalString('MAIN_MAIL_DEBUG_ERR_WITH_DATE')) {
1469  $destfile = $dolibarr_main_data_root."/dolibarr_mail.".dol_print_date(dol_now(), 'dayhourlog', 'gmt').".err";
1470  } else {
1471  $destfile = $dolibarr_main_data_root."/dolibarr_mail.err";
1472  }
1473 
1474  require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
1475  dol_move($srcfile, $destfile, 0, 1, 0, 0);
1476  }
1477  }
1478 
1479 
1486  public function checkIfHTML($msg)
1487  {
1488  if (!preg_match('/^[\s\t]*<html/i', $msg)) {
1489  $out = "<html><head><title></title>";
1490  if (!empty($this->styleCSS)) {
1491  $out .= $this->styleCSS;
1492  }
1493  $out .= "</head><body";
1494  if (!empty($this->bodyCSS)) {
1495  $out .= $this->bodyCSS;
1496  }
1497  $out .= ">";
1498  $out .= $msg;
1499  $out .= "</body></html>";
1500  } else {
1501  $out = $msg;
1502  }
1503 
1504  return $out;
1505  }
1506 
1512  public function buildCSS()
1513  {
1514  if (!empty($this->css)) {
1515  // Style CSS
1516  $this->styleCSS = '<style type="text/css">';
1517  $this->styleCSS .= 'body {';
1518 
1519  if ($this->css['bgcolor']) {
1520  $this->styleCSS .= ' background-color: '.$this->css['bgcolor'].';';
1521  $this->bodyCSS .= ' bgcolor="'.$this->css['bgcolor'].'"';
1522  }
1523  if ($this->css['bgimage']) {
1524  // TODO recuperer cid
1525  $this->styleCSS .= ' background-image: url("cid:'.$this->css['bgimage_cid'].'");';
1526  }
1527  $this->styleCSS .= '}';
1528  $this->styleCSS .= '</style>';
1529  }
1530  }
1531 
1532 
1533  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1539  public function write_smtpheaders()
1540  {
1541  // phpcs:enable
1542  $out = "";
1543  $host = dol_getprefix('email');
1544 
1545  // Sender
1546  //$out.= "Sender: ".getValidAddress($this->addr_from,2)).$this->eol2;
1547  $out .= "From: ".$this->getValidAddress($this->addr_from, 3, 1).$this->eol2;
1548  if (getDolGlobalString('MAIN_MAIL_SENDMAIL_FORCE_BA')) {
1549  $out .= "To: ".$this->getValidAddress($this->addr_to, 0, 1).$this->eol2;
1550  }
1551  // Return-Path is important because it is used by SPF. Some MTA does not read Return-Path from header but from command line. See option MAIN_MAIL_ALLOW_SENDMAIL_F for that.
1552  $out .= "Return-Path: ".$this->getValidAddress($this->addr_from, 0, 1).$this->eol2;
1553  if (isset($this->reply_to) && $this->reply_to) {
1554  $out .= "Reply-To: ".$this->getValidAddress($this->reply_to, 2).$this->eol2;
1555  }
1556  if (isset($this->errors_to) && $this->errors_to) {
1557  $out .= "Errors-To: ".$this->getValidAddress($this->errors_to, 2).$this->eol2;
1558  }
1559 
1560  // Receiver
1561  if (isset($this->addr_cc) && $this->addr_cc) {
1562  $out .= "Cc: ".$this->getValidAddress($this->addr_cc, 2).$this->eol2;
1563  }
1564  if (isset($this->addr_bcc) && $this->addr_bcc) {
1565  $out .= "Bcc: ".$this->getValidAddress($this->addr_bcc, 2).$this->eol2; // TODO Question: bcc must not be into header, only into SMTP command "RCPT TO". Does php mail support this ?
1566  }
1567 
1568  // Delivery receipt
1569  if (isset($this->deliveryreceipt) && $this->deliveryreceipt == 1) {
1570  $out .= "Disposition-Notification-To: ".$this->getValidAddress($this->addr_from, 2).$this->eol2;
1571  }
1572 
1573  //$out.= "X-Priority: 3".$this->eol2;
1574 
1575  $out .= 'Date: '.date("r").$this->eol2;
1576 
1577  $trackid = $this->trackid;
1578  if ($trackid) {
1579  $this->msgid = time().'.phpmail-dolibarr-'.$trackid.'@'.$host;
1580  $out .= 'Message-ID: <'.$this->msgid.">".$this->eol2; // Uppercase seems replaced by phpmail
1581  $out .= 'X-Dolibarr-TRACKID: '.$trackid.'@'.$host.$this->eol2;
1582  } else {
1583  $this->msgid = time().'.phpmail@'.$host;
1584  $out .= 'Message-ID: <'.$this->msgid.">".$this->eol2;
1585  }
1586 
1587  // Add 'In-Reply-To:' header with the Message-Id we answer
1588  if (!empty($this->in_reply_to)) {
1589  $out .= 'In-Reply-To: <'.$this->in_reply_to.'>'.$this->eol2;
1590  }
1591  // Add 'References:' header with list of all Message-ID in thread history
1592  if (!empty($this->references)) {
1593  $out .= 'References: '.$this->references.$this->eol2;
1594  }
1595 
1596  if (!empty($_SERVER['REMOTE_ADDR'])) {
1597  $out .= "X-RemoteAddr: ".$_SERVER['REMOTE_ADDR'].$this->eol2;
1598  }
1599  $out .= "X-Mailer: Dolibarr version ".DOL_VERSION." (using php mail)".$this->eol2;
1600  $out .= "Mime-Version: 1.0".$this->eol2;
1601 
1602  //$out.= "From: ".$this->getValidAddress($this->addr_from,3,1).$this->eol;
1603 
1604  $out .= "Content-Type: multipart/mixed;".$this->eol2." boundary=\"".$this->mixed_boundary."\"".$this->eol2;
1605  $out .= "Content-Transfer-Encoding: 8bit".$this->eol2; // TODO Seems to be ignored. Header is 7bit once received.
1606 
1607  dol_syslog("CMailFile::write_smtpheaders smtp_header=\n".$out);
1608  return $out;
1609  }
1610 
1611 
1612  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1620  public function write_mimeheaders($filename_list, $mimefilename_list)
1621  {
1622  // phpcs:enable
1623  $mimedone = 0;
1624  $out = "";
1625 
1626  if (is_array($filename_list)) {
1627  $filename_list_size = count($filename_list);
1628  for ($i = 0; $i < $filename_list_size; $i++) {
1629  if ($filename_list[$i]) {
1630  if ($mimefilename_list[$i]) {
1631  $filename_list[$i] = $mimefilename_list[$i];
1632  }
1633  $out .= "X-attachments: $filename_list[$i]".$this->eol2;
1634  }
1635  }
1636  }
1637 
1638  dol_syslog("CMailFile::write_mimeheaders mime_header=\n".$out, LOG_DEBUG);
1639  return $out;
1640  }
1641 
1642  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1649  public function write_body($msgtext)
1650  {
1651  // phpcs:enable
1652  global $conf;
1653 
1654  $out = '';
1655 
1656  $out .= "--".$this->mixed_boundary.$this->eol;
1657 
1658  if ($this->atleastoneimage) {
1659  $out .= "Content-Type: multipart/alternative;".$this->eol." boundary=\"".$this->alternative_boundary."\"".$this->eol;
1660  $out .= $this->eol;
1661  $out .= "--".$this->alternative_boundary.$this->eol;
1662  }
1663 
1664  // Make RFC821 Compliant, replace bare linefeeds
1665  $strContent = preg_replace("/(?<!\r)\n/si", "\r\n", $msgtext); // PCRE modifier /s means new lines are common chars
1666  if (getDolGlobalString('MAIN_FIX_FOR_BUGGED_MTA')) {
1667  $strContent = preg_replace("/\r\n/si", "\n", $strContent); // PCRE modifier /s means new lines are common chars
1668  }
1669 
1670  $strContentAltText = '';
1671  if ($this->msgishtml) {
1672  // Similar code to forge a text from html is also in smtps.class.php
1673  $strContentAltText = preg_replace("/<br\s*[^>]*>/", " ", $strContent);
1674  // TODO We could replace <img ...> with [Filename.ext] like Gmail do.
1675  $strContentAltText = html_entity_decode(strip_tags($strContentAltText)); // Remove any HTML tags
1676  $strContentAltText = trim(wordwrap($strContentAltText, 75, !getDolGlobalString('MAIN_FIX_FOR_BUGGED_MTA') ? "\r\n" : "\n"));
1677 
1678  // Check if html header already in message, if not complete the message
1679  $strContent = $this->checkIfHTML($strContent); // This add a header and a body including custom CSS to the HTML content
1680  }
1681 
1682  // Make RFC2045 Compliant, split lines
1683  //$strContent = rtrim(chunk_split($strContent)); // Function chunck_split seems ko if not used on a base64 content
1684  // TODO Encode main content into base64 and use the chunk_split, or quoted-printable
1685  $strContent = rtrim(wordwrap($strContent, 75, !getDolGlobalString('MAIN_FIX_FOR_BUGGED_MTA') ? "\r\n" : "\n")); // TODO Using this method creates unexpected line break on text/plain content.
1686 
1687  if ($this->msgishtml) {
1688  if ($this->atleastoneimage) {
1689  $out .= "Content-Type: text/plain; charset=".$conf->file->character_set_client.$this->eol;
1690  //$out.= "Content-Transfer-Encoding: 7bit".$this->eol;
1691  $out .= $this->eol.($strContentAltText ? $strContentAltText : strip_tags($strContent)).$this->eol; // Add plain text message
1692  $out .= "--".$this->alternative_boundary.$this->eol;
1693  $out .= "Content-Type: multipart/related;".$this->eol." boundary=\"".$this->related_boundary."\"".$this->eol;
1694  $out .= $this->eol;
1695  $out .= "--".$this->related_boundary.$this->eol;
1696  }
1697 
1698  if (!$this->atleastoneimage && $strContentAltText && getDolGlobalString('MAIN_MAIL_USE_MULTI_PART')) { // Add plain text message part before html part
1699  $out .= "Content-Type: multipart/alternative;".$this->eol." boundary=\"".$this->alternative_boundary."\"".$this->eol;
1700  $out .= $this->eol;
1701  $out .= "--".$this->alternative_boundary.$this->eol;
1702  $out .= "Content-Type: text/plain; charset=".$conf->file->character_set_client.$this->eol;
1703  //$out.= "Content-Transfer-Encoding: 7bit".$this->eol;
1704  $out .= $this->eol.$strContentAltText.$this->eol;
1705  $out .= "--".$this->alternative_boundary.$this->eol;
1706  }
1707 
1708  $out .= "Content-Type: text/html; charset=".$conf->file->character_set_client.$this->eol;
1709  //$out.= "Content-Transfer-Encoding: 7bit".$this->eol; // TODO Use base64
1710  $out .= $this->eol.$strContent.$this->eol;
1711 
1712  if (!$this->atleastoneimage && $strContentAltText && getDolGlobalString('MAIN_MAIL_USE_MULTI_PART')) { // Add plain text message part after html part
1713  $out .= "--".$this->alternative_boundary."--".$this->eol;
1714  }
1715  } else {
1716  $out .= "Content-Type: text/plain; charset=".$conf->file->character_set_client.$this->eol;
1717  //$out.= "Content-Transfer-Encoding: 7bit".$this->eol;
1718  $out .= $this->eol.$strContent.$this->eol;
1719  }
1720 
1721  $out .= $this->eol;
1722 
1723  // Encode images
1724  if ($this->atleastoneimage) {
1725  $out .= $this->write_images($this->images_encoded);
1726  // always end related and end alternative after inline images
1727  $out .= "--".$this->related_boundary."--".$this->eol;
1728  $out .= $this->eol."--".$this->alternative_boundary."--".$this->eol;
1729  $out .= $this->eol;
1730  }
1731 
1732  return $out;
1733  }
1734 
1735  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1745  private function write_files($filename_list, $mimetype_list, $mimefilename_list, $cidlist)
1746  {
1747  // phpcs:enable
1748  $out = '';
1749 
1750  $filename_list_size = count($filename_list);
1751  for ($i = 0; $i < $filename_list_size; $i++) {
1752  if ($filename_list[$i]) {
1753  dol_syslog("CMailFile::write_files: i=$i ".$filename_list[$i]);
1754  $encoded = $this->_encode_file($filename_list[$i]);
1755  if ($encoded !== -1) {
1756  if ($mimefilename_list[$i]) {
1757  $filename_list[$i] = $mimefilename_list[$i];
1758  }
1759  if (!$mimetype_list[$i]) {
1760  $mimetype_list[$i] = "application/octet-stream";
1761  }
1762 
1763  $out .= "--".$this->mixed_boundary.$this->eol;
1764  $out .= "Content-Disposition: attachment; filename=\"".$filename_list[$i]."\"".$this->eol;
1765  $out .= "Content-Type: ".$mimetype_list[$i]."; name=\"".$filename_list[$i]."\"".$this->eol;
1766  $out .= "Content-Transfer-Encoding: base64".$this->eol;
1767  $out .= "Content-Description: ".$filename_list[$i].$this->eol;
1768  if (!empty($cidlist) && is_array($cidlist) && $cidlist[$i]) {
1769  $out .= "X-Attachment-Id: ".$cidlist[$i].$this->eol;
1770  $out .= "Content-ID: <".$cidlist[$i].'>'.$this->eol;
1771  }
1772  $out .= $this->eol;
1773  $out .= $encoded;
1774  $out .= $this->eol;
1775  //$out.= $this->eol;
1776  } else {
1777  return $encoded;
1778  }
1779  }
1780  }
1781 
1782  return $out;
1783  }
1784 
1785 
1786  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1793  public function write_images($images_list)
1794  {
1795  // phpcs:enable
1796  $out = '';
1797 
1798  if (is_array($images_list)) {
1799  foreach ($images_list as $img) {
1800  dol_syslog("CMailFile::write_images: ".$img["name"]);
1801 
1802  $out .= "--".$this->related_boundary.$this->eol; // always related for an inline image
1803  $out .= "Content-Type: ".$img["content_type"]."; name=\"".$img["name"]."\"".$this->eol;
1804  $out .= "Content-Transfer-Encoding: base64".$this->eol;
1805  $out .= "Content-Disposition: inline; filename=\"".$img["name"]."\"".$this->eol;
1806  $out .= "Content-ID: <".$img["cid"].">".$this->eol;
1807  $out .= $this->eol;
1808  $out .= $img["image_encoded"];
1809  $out .= $this->eol;
1810  }
1811  }
1812 
1813  return $out;
1814  }
1815 
1816 
1817  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1825  public function check_server_port($host, $port)
1826  {
1827  // phpcs:enable
1828  global $conf;
1829 
1830  $_retVal = 0;
1831  $timeout = 5; // Timeout in seconds
1832 
1833  if (function_exists('fsockopen')) {
1834  $keyforsmtpserver = 'MAIN_MAIL_SMTP_SERVER';
1835  $keyforsmtpport = 'MAIN_MAIL_SMTP_PORT';
1836  $keyforsmtpid = 'MAIN_MAIL_SMTPS_ID';
1837  $keyforsmtppw = 'MAIN_MAIL_SMTPS_PW';
1838  $keyforsmtpauthtype = 'MAIN_MAIL_SMTPS_AUTH_TYPE';
1839  $keyforsmtpoauthservice = 'MAIN_MAIL_SMTPS_OAUTH_SERVICE';
1840  $keyfortls = 'MAIN_MAIL_EMAIL_TLS';
1841  $keyforstarttls = 'MAIN_MAIL_EMAIL_STARTTLS';
1842  $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED';
1843 
1844  if (!empty($this->sendcontext)) {
1845  $smtpContextKey = strtoupper($this->sendcontext);
1846  $smtpContextSendMode = getDolGlobalString('MAIN_MAIL_SENDMODE_'.$smtpContextKey);
1847  if (!empty($smtpContextSendMode) && $smtpContextSendMode != 'default') {
1848  $keyforsmtpserver = 'MAIN_MAIL_SMTP_SERVER_'.$smtpContextKey;
1849  $keyforsmtpport = 'MAIN_MAIL_SMTP_PORT_'.$smtpContextKey;
1850  $keyforsmtpid = 'MAIN_MAIL_SMTPS_ID_'.$smtpContextKey;
1851  $keyforsmtppw = 'MAIN_MAIL_SMTPS_PW_'.$smtpContextKey;
1852  $keyforsmtpauthtype = 'MAIN_MAIL_SMTPS_AUTH_TYPE_'.$smtpContextKey;
1853  $keyforsmtpoauthservice = 'MAIN_MAIL_SMTPS_OAUTH_SERVICE_'.$smtpContextKey;
1854  $keyfortls = 'MAIN_MAIL_EMAIL_TLS_'.$smtpContextKey;
1855  $keyforstarttls = 'MAIN_MAIL_EMAIL_STARTTLS_'.$smtpContextKey;
1856  $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED_'.$smtpContextKey;
1857  }
1858  }
1859 
1860  // If we use SSL/TLS
1861  if (!empty($conf->global->$keyfortls) && function_exists('openssl_open')) {
1862  $host = 'ssl://'.$host;
1863  }
1864  // tls smtp start with no encryption
1865  //if (!empty($conf->global->MAIN_MAIL_EMAIL_STARTTLS) && function_exists('openssl_open')) $host='tls://'.$host;
1866 
1867  dol_syslog("Try socket connection to host=".$host." port=".$port." timeout=".$timeout);
1868  //See if we can connect to the SMTP server
1869  $errno = 0;
1870  $errstr = '';
1871  if ($socket = @fsockopen(
1872  $host, // Host to test, IP or domain. Add ssl:// for SSL/TLS.
1873  $port, // which Port number to use
1874  $errno, // actual system level error
1875  $errstr, // and any text that goes with the error
1876  $timeout // timeout for reading/writing data over the socket
1877  )) {
1878  // Windows still does not have support for this timeout function
1879  if (function_exists('stream_set_timeout')) {
1880  stream_set_timeout($socket, $timeout, 0);
1881  }
1882 
1883  dol_syslog("Now we wait for answer 220");
1884 
1885  // Check response from Server
1886  if ($_retVal = $this->server_parse($socket, "220")) {
1887  $_retVal = $socket;
1888  }
1889  } else {
1890  $this->error = utf8_check('Error '.$errno.' - '.$errstr) ? 'Error '.$errno.' - '.$errstr : mb_convert_encoding('Error '.$errno.' - '.$errstr, 'UTF-8', 'ISO-8859-1');
1891  }
1892  }
1893  return $_retVal;
1894  }
1895 
1896  // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1905  public function server_parse($socket, $response)
1906  {
1907  // phpcs:enable
1908  $_retVal = true; // Indicates if Object was created or not
1909  $server_response = '';
1910 
1911  while (substr($server_response, 3, 1) != ' ') {
1912  if (!($server_response = fgets($socket, 256))) {
1913  $this->error = "Couldn't get mail server response codes";
1914  return false;
1915  }
1916  }
1917 
1918  if (!(substr($server_response, 0, 3) == $response)) {
1919  $this->error = "Ran into problems sending Mail.\r\nResponse: $server_response";
1920  $_retVal = false;
1921  }
1922 
1923  return $_retVal;
1924  }
1925 
1932  private function findHtmlImages($images_dir)
1933  {
1934  // Build the array of image extensions
1935  $extensions = array_keys($this->image_types);
1936 
1937  // We search (into mail body this->html), if we find some strings like "... file=xxx.img"
1938  // For example when:
1939  // <img alt="" src="/viewimage.php?modulepart=medias&amp;entity=1&amp;file=image/picture.jpg" style="height:356px; width:1040px" />
1940  $matches = array();
1941  preg_match_all('/(?:"|\')([^"\']+\.('.implode('|', $extensions).'))(?:"|\')/Ui', $this->html, $matches); // If "xxx.ext" or 'xxx.ext' found
1942 
1943  if (!empty($matches) && !empty($matches[1])) {
1944  $i = 0;
1945  // We are interested in $matches[1] only (the second set of parenthesis into regex)
1946  foreach ($matches[1] as $full) {
1947  $regs = array();
1948  if (preg_match('/file=([A-Za-z0-9_\-\/]+[\.]?[A-Za-z0-9]+)?$/i', $full, $regs)) { // If xxx is 'file=aaa'
1949  $img = $regs[1];
1950 
1951  if (file_exists($images_dir.'/'.$img)) {
1952  // Image path in src
1953  $src = preg_quote($full, '/');
1954  // Image full path
1955  $this->html_images[$i]["fullpath"] = $images_dir.'/'.$img;
1956  // Image name
1957  $this->html_images[$i]["name"] = $img;
1958  // Content type
1959  $regext = array();
1960  if (preg_match('/^.+\.(\w{3,4})$/', $img, $regext)) {
1961  $ext = strtolower($regext[1]);
1962  $this->html_images[$i]["content_type"] = $this->image_types[$ext];
1963  }
1964  // cid
1965  $this->html_images[$i]["cid"] = dol_hash($this->html_images[$i]["fullpath"], 'md5'); // Force md5 hash (does not contain special chars)
1966  // type
1967  $this->html_images[$i]["type"] = 'cidfromurl';
1968 
1969  $this->html = preg_replace("/src=\"$src\"|src='$src'/i", "src=\"cid:".$this->html_images[$i]["cid"]."\"", $this->html);
1970  }
1971  $i++;
1972  }
1973  }
1974 
1975  if (!empty($this->html_images)) {
1976  $inline = array();
1977 
1978  $i = 0;
1979 
1980  foreach ($this->html_images as $img) {
1981  $fullpath = $images_dir.'/'.$img["name"];
1982 
1983  // If duplicate images are embedded, they may show up as attachments, so remove them.
1984  if (!in_array($fullpath, $inline)) {
1985  // Read image file
1986  if ($image = file_get_contents($fullpath)) {
1987  // On garde que le nom de l'image
1988  $regs = array();
1989  preg_match('/([A-Za-z0-9_-]+[\.]?[A-Za-z0-9]+)?$/i', $img["name"], $regs);
1990  $imgName = $regs[1];
1991 
1992  $this->images_encoded[$i]['name'] = $imgName;
1993  $this->images_encoded[$i]['fullpath'] = $fullpath;
1994  $this->images_encoded[$i]['content_type'] = $img["content_type"];
1995  $this->images_encoded[$i]['cid'] = $img["cid"];
1996  // Encodage de l'image
1997  $this->images_encoded[$i]["image_encoded"] = chunk_split(base64_encode($image), 68, $this->eol);
1998  $inline[] = $fullpath;
1999  }
2000  }
2001  $i++;
2002  }
2003  } else {
2004  return -1;
2005  }
2006 
2007  return 1;
2008  } else {
2009  return 0;
2010  }
2011  }
2012 
2020  private function findHtmlImagesIsSrcData($images_dir)
2021  {
2022  global $conf;
2023 
2024  require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
2025 
2026  // Build the array of image extensions
2027  $extensions = array_keys($this->image_types);
2028 
2029  if (empty($images_dir)) {
2030  //$images_dir = $conf->admin->dir_output.'/temp/'.uniqid('cmailfile');
2031  $images_dir = $conf->admin->dir_output.'/temp/cmailfile';
2032  }
2033 
2034  if ($images_dir && !dol_is_dir($images_dir)) {
2035  dol_mkdir($images_dir, DOL_DATA_ROOT);
2036  }
2037 
2038  // Uncomment this for debug
2039  /*
2040  global $dolibarr_main_data_root;
2041  $outputfile = $dolibarr_main_data_root."/dolibarr_mail.log";
2042  $fp = fopen($outputfile, "w+");
2043  fwrite($fp, $this->html);
2044  fclose($fp);
2045  */
2046 
2047  // We search (into mail body this->html), if we find some strings like "... file=xxx.img"
2048  // For example when:
2049  // <img alt="" src="/src="data:image....;base64,...." />
2050  $matches = array();
2051  preg_match_all('/src="data:image\/('.implode('|', $extensions).');base64,([^"]+)"/Ui', $this->html, $matches); // If "xxx.ext" or 'xxx.ext' found
2052 
2053  if (!empty($matches) && !empty($matches[1])) {
2054  if (empty($images_dir)) {
2055  // No temp directory provided, so we are not able to support conversion of data:image into physical images.
2056  $this->errors[] = 'NoTempDirProvidedInCMailConstructorSoCantConvertDataImgOnDisk';
2057  return -1;
2058  }
2059 
2060  $i = count($this->html_images);
2061  foreach ($matches[1] as $key => $ext) {
2062  // We save the image to send in disk
2063  $filecontent = $matches[2][$key];
2064 
2065  $cid = 'cid000'.dol_hash($filecontent, 'md5'); // The id must not change if image is same
2066 
2067  $destfiletmp = $images_dir.'/'.$cid.'.'.$ext;
2068 
2069  if (!dol_is_file($destfiletmp)) { // If file does not exist yet (this is the case for the first email sent with a data:image inside)
2070  dol_syslog("write the cid file ".$destfiletmp);
2071  $fhandle = @fopen($destfiletmp, 'w');
2072  if ($fhandle) {
2073  $nbofbyteswrote = fwrite($fhandle, base64_decode($filecontent));
2074  fclose($fhandle);
2075  dolChmod($destfiletmp);
2076  } else {
2077  $this->errors[] = "Failed to open file '".$destfiletmp."' for write";
2078  return -2;
2079  }
2080  }
2081 
2082  if (file_exists($destfiletmp)) {
2083  // Image full path
2084  $this->html_images[$i]["fullpath"] = $destfiletmp;
2085  // Image name
2086  $this->html_images[$i]["name"] = basename($destfiletmp);
2087  // Content type
2088  $this->html_images[$i]["content_type"] = $this->image_types[strtolower($ext)];
2089  // cid
2090  $this->html_images[$i]["cid"] = $cid;
2091  // type
2092  $this->html_images[$i]["type"] = 'cidfromdata';
2093 
2094  $this->html = str_replace('src="data:image/'.$ext.';base64,'.$filecontent.'"', 'src="cid:'.$this->html_images[$i]["cid"].'"', $this->html);
2095  }
2096  $i++;
2097  }
2098 
2099  return 1;
2100  } else {
2101  return 0;
2102  }
2103  }
2104 
2120  public static function getValidAddress($address, $format, $encode = 0, $maxnumberofemail = 0)
2121  {
2122  global $conf;
2123 
2124  $ret = '';
2125 
2126  $arrayaddress = (!empty($address) ? explode(',', $address) : array());
2127 
2128  // Boucle sur chaque composant de l'address
2129  $i = 0;
2130  foreach ($arrayaddress as $val) {
2131  $regs = array();
2132  if (preg_match('/^(.*)<(.*)>$/i', trim($val), $regs)) {
2133  $name = trim($regs[1]);
2134  $email = trim($regs[2]);
2135  } else {
2136  $name = '';
2137  $email = trim($val);
2138  }
2139 
2140  if ($email) {
2141  $i++;
2142 
2143  $newemail = '';
2144  if ($format == 5) {
2145  $newemail = $name ? $name : $email;
2146  $newemail = '<a href="mailto:'.$email.'">'.$newemail.'</a>';
2147  }
2148  if ($format == 4) {
2149  $newemail = $name ? $name : $email;
2150  }
2151  if ($format == 2) {
2152  $newemail = $email;
2153  }
2154  if ($format == 1 || $format == 3) {
2155  $newemail = '<'.$email.'>';
2156  }
2157  if ($format == 0 || $format == 3) {
2158  if (getDolGlobalString('MAIN_MAIL_NO_FULL_EMAIL')) {
2159  $newemail = '<'.$email.'>';
2160  } elseif (!$name) {
2161  $newemail = '<'.$email.'>';
2162  } else {
2163  $newemail = ($format == 3 ? '"' : '').($encode ? self::encodetorfc2822($name) : $name).($format == 3 ? '"' : '').' <'.$email.'>';
2164  }
2165  }
2166 
2167  $ret = ($ret ? $ret.',' : '').$newemail;
2168 
2169  // Stop if we have too much records
2170  if ($maxnumberofemail && $i >= $maxnumberofemail) {
2171  if (count($arrayaddress) > $maxnumberofemail) {
2172  $ret .= '...';
2173  }
2174  break;
2175  }
2176  }
2177  }
2178 
2179  return $ret;
2180  }
2181 
2189  public static function getArrayAddress($address)
2190  {
2191  $ret = array();
2192 
2193  $arrayaddress = explode(',', $address);
2194 
2195  // Boucle sur chaque composant de l'address
2196  foreach ($arrayaddress as $val) {
2197  $regs = array();
2198  if (preg_match('/^(.*)<(.*)>$/i', trim($val), $regs)) {
2199  $name = trim($regs[1]);
2200  $email = trim($regs[2]);
2201  } else {
2202  $name = null;
2203  $email = trim($val);
2204  }
2205 
2206  $ret[$email] = getDolGlobalString('MAIN_MAIL_NO_FULL_EMAIL') ? null : $name;
2207  }
2208 
2209  return $ret;
2210  }
2211 }
Class to send emails (with attachments or not) Usage: $mailfile = new CMailFile($subject,...
_encode_file($sourcefile)
Read a file on disk and return encoded content for emails (mode = 'mail')
write_body($msgtext)
Return email content (mode = 'mail')
__construct($subject, $to, $from, $msg, $filename_list=array(), $mimetype_list=array(), $mimefilename_list=array(), $addr_cc="", $addr_bcc="", $deliveryreceipt=0, $msgishtml=0, $errors_to='', $css='', $trackid='', $moreinheader='', $sendcontext='standard', $replyto='', $upload_dir_tmp='', $in_reply_to='', $references='')
CMailFile.
$bodyCSS
Defined background directly in body tag.
dump_mail()
Write content of a SMTP request into a dump file (mode = all) Used for debugging.
sendfile()
Send mail that was prepared by constructor.
save_dump_mail_in_err($message='')
Save content if mail is in error Used for debugging.
static encodetorfc2822($stringtoencode)
Encode subject according to RFC 2822 - http://en.wikipedia.org/wiki/MIME#Encoded-Word.
checkIfHTML($msg)
Correct an incomplete html string.
static getValidAddress($address, $format, $encode=0, $maxnumberofemail=0)
Return a formatted address string for SMTP protocol.
write_images($images_list)
Attach an image to email (mode = 'mail')
server_parse($socket, $response)
This function has been modified as provided by SirSir to allow multiline responses when using SMTP Ex...
write_smtpheaders()
Create SMTP headers (mode = 'mail')
findHtmlImagesIsSrcData($images_dir)
Seearch images with data:image format into html message.
$styleCSS
Defined css style for body background.
write_mimeheaders($filename_list, $mimefilename_list)
Create header MIME (mode = 'mail')
check_server_port($host, $port)
Try to create a socket connection.
buildCSS()
Build a css style (mode = all) into this->styleCSS and this->bodyCSS.
write_files($filename_list, $mimetype_list, $mimefilename_list, $cidlist)
Attach file to email (mode = 'mail')
static getArrayAddress($address)
Return a formatted array of address string for SMTP protocol.
findHtmlImages($images_dir)
Search images into html message and init array this->images_encoded if found.
Class to manage hooks.
Class to construct and send SMTP compliant email, even to a secure SMTP server, regardless of platfor...
Definition: smtps.class.php:48
dol_move($srcfile, $destfile, $newmask='0', $overwriteifexists=1, $testvirus=0, $indexdatabase=1, $moreinfo=array())
Move a file into another name.
Definition: files.lib.php:1011
dol_is_file($pathoffile)
Return if path is a file.
Definition: files.lib.php:519
dol_is_dir($folder)
Test if filename is a directory.
Definition: files.lib.php:489
dol_osencode($str)
Return a string encoded into OS filesystem encoding.
dol_nl2br($stringtoencode, $nl2brmode=0, $forxml=false)
Replace CRLF in string with a HTML BR tag.
dolChmod($filepath, $newmask='')
Change mod of a file.
dol_now($mode='auto')
Return date for now.
getDolGlobalInt($key, $default=0)
Return a Dolibarr global constant int value.
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_string_unaccent($str)
Clean a string from all accent characters to be used as ref, login or by dol_sanitizeFileName.
ascii_check($str)
Check if a string is in ASCII.
dol_textishtml($msg, $option=0)
Return if a text is a html content.
getDolGlobalString($key, $default='')
Return dolibarr global constant string value.
utf8_check($str)
Check if a string is in UTF8.
dol_syslog($message, $level=LOG_INFO, $ident=0, $suffixinfilename='', $restricttologhandler='', $logcontext=null)
Write log message into outputs.
dol_mkdir($dir, $dataroot='', $newmask='')
Creation of a directory (this can create recursive subdir)
dol_sanitizeEmail($stringtoclean)
Clean a string to use it as an Email.
getSupportedOauth2Array()
Return array of tabs to used on pages to setup cron module.
Definition: oauth.lib.php:279
dol_hash($chain, $type='0', $nosalt=0)
Returns a hash (non reversible encryption) of a string.