dolibarr 20.0.0
CMailFile.class.php
Go to the documentation of this file.
1<?php
34use OAuth\Common\Storage\DoliStorage;
35use OAuth\Common\Consumer\Credentials;
36
37
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', 'passwordreset')
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], (empty($cid_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->html_images 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 foreach ($this->images_encoded as $img) {
721 //$img['fullpath'],$img['image_encoded'],$img['name'],$img['content_type'],$img['cid']
722 $attachment = Swift_Image::fromPath($img['fullpath']);
723 // embed image
724 $imgcid = $this->message->embed($attachment);
725 // replace cid by the one created by swiftmail in html message
726 $msg = str_replace("cid:".$img['cid'], $imgcid, $msg);
727 }
728 }
729
730 if ($this->msgishtml) {
731 $this->message->setBody($msg, 'text/html');
732 // And optionally an alternative body
733 $this->message->addPart(html_entity_decode(strip_tags($msg)), 'text/plain');
734 } else {
735 $this->message->setBody($msg, 'text/plain');
736 // And optionally an alternative body
737 $this->message->addPart(dol_nl2br($msg), 'text/html');
738 }
739
740 if (!empty($this->atleastonefile)) {
741 foreach ($filename_list as $i => $val) {
742 //$this->message->attach(Swift_Attachment::fromPath($filename_list[$i],$mimetype_list[$i]));
743 $attachment = Swift_Attachment::fromPath($filename_list[$i], $mimetype_list[$i]);
744 if (!empty($mimefilename_list[$i])) {
745 $attachment->setFilename($mimefilename_list[$i]);
746 }
747 $this->message->attach($attachment);
748 }
749 }
750
751 if (!empty($this->addr_cc)) {
752 try {
753 $this->message->setCc($this->getArrayAddress($this->addr_cc));
754 } catch (Exception $e) {
755 $this->errors[] = $e->getMessage();
756 }
757 }
758 if (!empty($this->addr_bcc)) {
759 try {
760 $this->message->setBcc($this->getArrayAddress($this->addr_bcc));
761 } catch (Exception $e) {
762 $this->errors[] = $e->getMessage();
763 }
764 }
765 //if (!empty($this->errors_to)) $this->message->setErrorsTo($this->getArrayAddress($this->errors_to));
766 if (isset($this->deliveryreceipt) && $this->deliveryreceipt == 1) {
767 try {
768 $this->message->setReadReceiptTo($this->getArrayAddress($this->addr_from));
769 } catch (Exception $e) {
770 $this->errors[] = $e->getMessage();
771 }
772 }
773 } else {
774 // Send mail method not correctly defined
775 // --------------------------------------
776 $this->error = 'Bad value for sendmode';
777 }
778 }
779
787 public function sendfile()
788 {
789 global $conf, $db, $langs, $hookmanager;
790
791 $errorlevel = error_reporting();
792 //error_reporting($errorlevel ^ E_WARNING); // Desactive warnings
793
794 $res = false;
795
796 if (!getDolGlobalString('MAIN_DISABLE_ALL_MAILS')) {
797 if (!is_object($hookmanager)) {
798 include_once DOL_DOCUMENT_ROOT.'/core/class/hookmanager.class.php';
799 $hookmanager = new HookManager($db);
800 }
801 $hookmanager->initHooks(array('mail'));
802
803 $parameters = array();
804 $action = '';
805 $reshook = $hookmanager->executeHooks('sendMail', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
806 if ($reshook < 0) {
807 $this->error = "Error in hook maildao sendMail ".$reshook;
808 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
809
810 return false;
811 }
812 if ($reshook == 1) { // Hook replace standard code
813 return true;
814 }
815
816 $sendingmode = $this->sendmode;
817 if ($this->sendcontext == 'emailing' && getDolGlobalString('MAILING_NO_USING_PHPMAIL') && $sendingmode == 'mail') {
818 // List of sending methods
819 $listofmethods = array();
820 $listofmethods['mail'] = 'PHP mail function';
821 //$listofmethods['simplemail']='Simplemail class';
822 $listofmethods['smtps'] = 'SMTP/SMTPS socket library';
823
824 // 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.
825 // You ensure that every user is using its own SMTP server when using the mass emailing module.
826 $linktoadminemailbefore = '<a href="'.DOL_URL_ROOT.'/admin/mails.php">';
827 $linktoadminemailend = '</a>';
828 $this->error = $langs->trans("MailSendSetupIs", $listofmethods[$sendingmode]);
829 $this->errors[] = $langs->trans("MailSendSetupIs", $listofmethods[$sendingmode]);
830 $this->error .= '<br>'.$langs->trans("MailSendSetupIs2", $linktoadminemailbefore, $linktoadminemailend, $langs->transnoentitiesnoconv("MAIN_MAIL_SENDMODE"), $listofmethods['smtps']);
831 $this->errors[] = $langs->trans("MailSendSetupIs2", $linktoadminemailbefore, $linktoadminemailend, $langs->transnoentitiesnoconv("MAIN_MAIL_SENDMODE"), $listofmethods['smtps']);
832 if (getDolGlobalString('MAILING_SMTP_SETUP_EMAILS_FOR_QUESTIONS')) {
833 $this->error .= '<br>'.$langs->trans("MailSendSetupIs3", getDolGlobalString('MAILING_SMTP_SETUP_EMAILS_FOR_QUESTIONS'));
834 $this->errors[] = $langs->trans("MailSendSetupIs3", getDolGlobalString('MAILING_SMTP_SETUP_EMAILS_FOR_QUESTIONS'));
835 }
836
837 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
838 return false;
839 }
840
841 // Check number of recipient is lower or equal than MAIL_MAX_NB_OF_RECIPIENTS_IN_SAME_EMAIL
842 if (!getDolGlobalString('MAIL_MAX_NB_OF_RECIPIENTS_TO_IN_SAME_EMAIL')) {
843 $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_TO_IN_SAME_EMAIL = 10;
844 }
845 $tmparray1 = explode(',', $this->addr_to);
846 if (count($tmparray1) > $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_TO_IN_SAME_EMAIL) {
847 $this->error = 'Too much recipients in to:';
848 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
849 return false;
850 }
851 if (!getDolGlobalString('MAIL_MAX_NB_OF_RECIPIENTS_CC_IN_SAME_EMAIL')) {
852 $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_CC_IN_SAME_EMAIL = 10;
853 }
854 $tmparray2 = explode(',', $this->addr_cc);
855 if (count($tmparray2) > $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_CC_IN_SAME_EMAIL) {
856 $this->error = 'Too much recipients in cc:';
857 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
858 return false;
859 }
860 if (!getDolGlobalString('MAIL_MAX_NB_OF_RECIPIENTS_BCC_IN_SAME_EMAIL')) {
861 $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_BCC_IN_SAME_EMAIL = 10;
862 }
863 $tmparray3 = explode(',', $this->addr_bcc);
864 if (count($tmparray3) > $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_BCC_IN_SAME_EMAIL) {
865 $this->error = 'Too much recipients in bcc:';
866 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
867 return false;
868 }
869 if (!getDolGlobalString('MAIL_MAX_NB_OF_RECIPIENTS_IN_SAME_EMAIL')) {
870 $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_IN_SAME_EMAIL = 10;
871 }
872 if ((count($tmparray1) + count($tmparray2) + count($tmparray3)) > $conf->global->MAIL_MAX_NB_OF_RECIPIENTS_IN_SAME_EMAIL) {
873 $this->error = 'Too much recipients in to:, cc:, bcc:';
874 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_WARNING);
875 return false;
876 }
877
878 $keyforsmtpserver = 'MAIN_MAIL_SMTP_SERVER';
879 $keyforsmtpport = 'MAIN_MAIL_SMTP_PORT';
880 $keyforsmtpid = 'MAIN_MAIL_SMTPS_ID';
881 $keyforsmtppw = 'MAIN_MAIL_SMTPS_PW';
882 $keyforsmtpauthtype = 'MAIN_MAIL_SMTPS_AUTH_TYPE';
883 $keyforsmtpoauthservice = 'MAIN_MAIL_SMTPS_OAUTH_SERVICE';
884 $keyfortls = 'MAIN_MAIL_EMAIL_TLS';
885 $keyforstarttls = 'MAIN_MAIL_EMAIL_STARTTLS';
886 $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED';
887 if (!empty($this->sendcontext)) {
888 $smtpContextKey = strtoupper($this->sendcontext);
889 $smtpContextSendMode = getDolGlobalString('MAIN_MAIL_SENDMODE_'.$smtpContextKey);
890 if (!empty($smtpContextSendMode) && $smtpContextSendMode != 'default') {
891 $keyforsmtpserver = 'MAIN_MAIL_SMTP_SERVER_'.$smtpContextKey;
892 $keyforsmtpport = 'MAIN_MAIL_SMTP_PORT_'.$smtpContextKey;
893 $keyforsmtpid = 'MAIN_MAIL_SMTPS_ID_'.$smtpContextKey;
894 $keyforsmtppw = 'MAIN_MAIL_SMTPS_PW_'.$smtpContextKey;
895 $keyforsmtpauthtype = 'MAIN_MAIL_SMTPS_AUTH_TYPE_'.$smtpContextKey;
896 $keyforsmtpoauthservice = 'MAIN_MAIL_SMTPS_OAUTH_SERVICE_'.$smtpContextKey;
897 $keyfortls = 'MAIN_MAIL_EMAIL_TLS_'.$smtpContextKey;
898 $keyforstarttls = 'MAIN_MAIL_EMAIL_STARTTLS_'.$smtpContextKey;
899 $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED_'.$smtpContextKey;
900 }
901 }
902
903 // Action according to chose sending method
904 if ($this->sendmode == 'mail') {
905 // Use mail php function (default PHP method)
906 // ------------------------------------------
907 dol_syslog("CMailFile::sendfile addr_to=".$this->addr_to.", subject=".$this->subject, LOG_DEBUG);
908 //dol_syslog("CMailFile::sendfile header=\n".$this->headers, LOG_DEBUG);
909 //dol_syslog("CMailFile::sendfile message=\n".$message);
910
911 // If Windows, sendmail_from must be defined
912 if (isset($_SERVER["WINDIR"])) {
913 if (empty($this->addr_from)) {
914 $this->addr_from = 'robot@example.com';
915 }
916 @ini_set('sendmail_from', $this->getValidAddress($this->addr_from, 2));
917 }
918
919 // Force parameters
920 //dol_syslog("CMailFile::sendfile conf->global->".$keyforsmtpserver."=".getDolGlobalString($keyforsmtpserver)." cpnf->global->".$keyforsmtpport."=".$conf->global->$keyforsmtpport, LOG_DEBUG);
921 if (getDolGlobalString($keyforsmtpserver)) {
922 ini_set('SMTP', getDolGlobalString($keyforsmtpserver));
923 }
924 if (getDolGlobalString($keyforsmtpport)) {
925 ini_set('smtp_port', getDolGlobalString($keyforsmtpport));
926 }
927
928 $res = true;
929 if ($res && !$this->subject) {
930 $this->error = "Failed to send mail with php mail to HOST=".ini_get('SMTP').", PORT=".ini_get('smtp_port')."<br>Subject is empty";
931 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
932 $res = false;
933 }
934 $dest = $this->getValidAddress($this->addr_to, 2);
935 if ($res && !$dest) {
936 $this->error = "Failed to send mail with php mail to HOST=".ini_get('SMTP').", PORT=".ini_get('smtp_port')."<br>Recipient address '$dest' invalid";
937 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
938 $res = false;
939 }
940
941 if ($res) {
942 $additionnalparam = ''; // By default
943 if (getDolGlobalString('MAIN_MAIL_ALLOW_SENDMAIL_F')) {
944 // When using the phpmail function, the mail command may force the from to the user of the login, for example: linuxuser@myserver.mydomain.com
945 // 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.
946 // So forcing using the option -f of sendmail is possible if constant MAIN_MAIL_ALLOW_SENDMAIL_F is defined.
947 // Having this variable defined may create problems with some sendmail (option -f refused)
948 // Having this variable not defined may create problems with some other sendmail (option -f required)
949 $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) : ''));
950 }
951 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
952 $additionnalparam .= ($additionnalparam ? ' ' : '').'-ba';
953 }
954
955 if (getDolGlobalString('MAIN_MAIL_SENDMAIL_FORCE_ADDPARAM')) {
956 $additionnalparam .= ($additionnalparam ? ' ' : '').'-U '.$additionnalparam; // Use -U to add additional params
957 }
958
959 $linuxlike = 1;
960 if (preg_match('/^win/i', PHP_OS)) {
961 $linuxlike = 0;
962 }
963 if (preg_match('/^mac/i', PHP_OS)) {
964 $linuxlike = 0;
965 }
966
967 dol_syslog("CMailFile::sendfile: mail start".($linuxlike ? '' : " HOST=".ini_get('SMTP').", PORT=".ini_get('smtp_port')).", additionnal_parameters=".$additionnalparam, LOG_DEBUG);
968
969 $this->message = stripslashes($this->message);
970
971 if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
972 $this->dump_mail();
973 }
974
975 // Encode subject if required.
976 $subjecttouse = $this->subject;
977 if (!ascii_check($subjecttouse)) {
978 $subjecttouse = $this->encodetorfc2822($subjecttouse);
979 }
980
981 if (!empty($additionnalparam)) {
982 $res = mail($dest, $subjecttouse, $this->message, $this->headers, $additionnalparam);
983 } else {
984 $res = mail($dest, $subjecttouse, $this->message, $this->headers);
985 }
986
987 if (!$res) {
988 $langs->load("errors");
989 $this->error = "Failed to send mail with php mail";
990 if (!$linuxlike) {
991 $this->error .= " to HOST=".ini_get('SMTP').", PORT=".ini_get('smtp_port'); // This values are value used only for non linuxlike systems
992 }
993 $this->error .= ".<br>";
994 $this->error .= $langs->trans("ErrorPhpMailDelivery");
995 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
996
997 if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
998 $this->save_dump_mail_in_err('Mail with topic '.$this->subject);
999 }
1000 } else {
1001 dol_syslog("CMailFile::sendfile: mail end success", LOG_DEBUG);
1002 }
1003 }
1004
1005 if (isset($_SERVER["WINDIR"])) {
1006 @ini_restore('sendmail_from');
1007 }
1008
1009 // Restore parameters
1010 if (getDolGlobalString($keyforsmtpserver)) {
1011 ini_restore('SMTP');
1012 }
1013 if (getDolGlobalString($keyforsmtpport)) {
1014 ini_restore('smtp_port');
1015 }
1016 } elseif ($this->sendmode == 'smtps') {
1017 if (!is_object($this->smtps)) {
1018 $this->error = "Failed to send mail with smtps lib<br>Constructor of object CMailFile was not initialized without errors.";
1019 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1020 return false;
1021 }
1022
1023 // Use SMTPS library
1024 // ------------------------------------------
1025 $this->smtps->setTransportType(0); // Only this method is coded in SMTPs library
1026
1027 // Clean parameters
1028 if (empty($conf->global->$keyforsmtpserver)) {
1029 $conf->global->$keyforsmtpserver = ini_get('SMTP');
1030 }
1031 if (empty($conf->global->$keyforsmtpport)) {
1032 $conf->global->$keyforsmtpport = ini_get('smtp_port');
1033 }
1034
1035 // If we use SSL/TLS
1036 $server = getDolGlobalString($keyforsmtpserver);
1037 $secure = '';
1038 if (!empty($conf->global->$keyfortls) && function_exists('openssl_open')) {
1039 $secure = 'ssl';
1040 }
1041 if (!empty($conf->global->$keyforstarttls) && function_exists('openssl_open')) {
1042 $secure = 'tls';
1043 }
1044 $server = ($secure ? $secure.'://' : '').$server;
1045
1046 $port = getDolGlobalInt($keyforsmtpport);
1047
1048 $this->smtps->setHost($server);
1049 $this->smtps->setPort($port); // 25, 465...;
1050
1051 $loginid = '';
1052 $loginpass = '';
1053 if (!empty($conf->global->$keyforsmtpid)) {
1054 $loginid = getDolGlobalString($keyforsmtpid);
1055 $this->smtps->setID($loginid);
1056 }
1057 if (!empty($conf->global->$keyforsmtppw)) {
1058 $loginpass = getDolGlobalString($keyforsmtppw);
1059 $this->smtps->setPW($loginpass);
1060 }
1061
1062 if (getDolGlobalString($keyforsmtpauthtype) === "XOAUTH2") {
1063 require_once DOL_DOCUMENT_ROOT.'/core/lib/oauth.lib.php'; // define $supportedoauth2array
1064
1065 $supportedoauth2array = getSupportedOauth2Array();
1066
1067 $keyforsupportedoauth2array = getDolGlobalString($keyforsmtpoauthservice);
1068 if (preg_match('/^.*-/', $keyforsupportedoauth2array)) {
1069 $keyforprovider = preg_replace('/^.*-/', '', $keyforsupportedoauth2array);
1070 } else {
1071 $keyforprovider = '';
1072 }
1073 $keyforsupportedoauth2array = preg_replace('/-.*$/', '', $keyforsupportedoauth2array);
1074 $keyforsupportedoauth2array = 'OAUTH_'.$keyforsupportedoauth2array.'_NAME';
1075
1076 if (!empty($supportedoauth2array)) {
1077 $OAUTH_SERVICENAME = (empty($supportedoauth2array[$keyforsupportedoauth2array]['name']) ? 'Unknown' : $supportedoauth2array[$keyforsupportedoauth2array]['name'].($keyforprovider ? '-'.$keyforprovider : ''));
1078 } else {
1079 $OAUTH_SERVICENAME = 'Unknown';
1080 }
1081
1082 require_once DOL_DOCUMENT_ROOT.'/includes/OAuth/bootstrap.php';
1083
1084 $storage = new DoliStorage($db, $conf, $keyforprovider);
1085 try {
1086 $tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME);
1087
1088 $expire = false;
1089 // Is token expired or will token expire in the next 30 seconds
1090 if (is_object($tokenobj)) {
1091 $expire = ($tokenobj->getEndOfLife() !== -9002 && $tokenobj->getEndOfLife() !== -9001 && time() > ($tokenobj->getEndOfLife() - 30));
1092 }
1093 // Token expired so we refresh it
1094 if (is_object($tokenobj) && $expire) {
1095 $credentials = new Credentials(
1096 getDolGlobalString('OAUTH_'.getDolGlobalString($keyforsmtpoauthservice).'_ID'),
1097 getDolGlobalString('OAUTH_'.getDolGlobalString($keyforsmtpoauthservice).'_SECRET'),
1098 getDolGlobalString('OAUTH_'.getDolGlobalString($keyforsmtpoauthservice).'_URLAUTHORIZE')
1099 );
1100 $serviceFactory = new \OAuth\ServiceFactory();
1101 $oauthname = explode('-', $OAUTH_SERVICENAME);
1102 // ex service is Google-Emails we need only the first part Google
1103 $apiService = $serviceFactory->createService($oauthname[0], $credentials, $storage, array());
1104 // We have to save the token because Google give it only once
1105 $refreshtoken = $tokenobj->getRefreshToken();
1106 $tokenobj = $apiService->refreshAccessToken($tokenobj);
1107 $tokenobj->setRefreshToken($refreshtoken);
1108 $storage->storeAccessToken($OAUTH_SERVICENAME, $tokenobj);
1109
1110 $tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME);
1111 }
1112
1113 if (is_object($tokenobj)) {
1114 $this->smtps->setToken($tokenobj->getAccessToken());
1115 } else {
1116 $this->error = "Token not found";
1117 }
1118 } catch (Exception $e) {
1119 // Return an error if token not found
1120 $this->error = $e->getMessage();
1121 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1122 }
1123 }
1124
1125 $res = true;
1126 $from = $this->smtps->getFrom('org');
1127 if ($res && !$from) {
1128 $this->error = "Failed to send mail with smtps lib to HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport)." - Sender address '$from' invalid";
1129 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1130 $res = false;
1131 }
1132 $dest = $this->smtps->getTo();
1133 if ($res && !$dest) {
1134 $this->error = "Failed to send mail with smtps lib to HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport)." - Recipient address '$dest' invalid";
1135 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1136 $res = false;
1137 }
1138
1139 if ($res) {
1140 dol_syslog("CMailFile::sendfile: sendMsg, HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport), LOG_DEBUG);
1141
1142 if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1143 $this->smtps->setDebug(true);
1144 }
1145
1146 $result = $this->smtps->sendMsg();
1147
1148 if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1149 $this->dump_mail();
1150 }
1151
1152 $smtperrorcode = 0;
1153 if (! $result) {
1154 $smtperrorcode = $this->smtps->lastretval; // SMTP error code
1155 dol_syslog("CMailFile::sendfile: mail SMTP error code ".$smtperrorcode, LOG_WARNING);
1156
1157 if ($smtperrorcode == '421') { // Try later
1158 // TODO Add a delay and try again
1159 /*
1160 dol_syslog("CMailFile::sendfile: Try later error, so we wait and we retry");
1161 sleep(2);
1162
1163 $result = $this->smtps->sendMsg();
1164
1165 if (!empty($conf->global->MAIN_MAIL_DEBUG)) {
1166 $this->dump_mail();
1167 }
1168 */
1169 }
1170 }
1171
1172 $result = $this->smtps->getErrors(); // applicative error code (not SMTP error code)
1173 if (empty($this->error) && empty($result)) {
1174 dol_syslog("CMailFile::sendfile: mail end success", LOG_DEBUG);
1175 $res = true;
1176 } else {
1177 if (empty($this->error)) {
1178 $this->error = $result;
1179 }
1180 dol_syslog("CMailFile::sendfile: mail end error with smtps lib to HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport)." - ".$this->error, LOG_ERR);
1181 $res = false;
1182
1183 if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1184 $this->save_dump_mail_in_err('Mail smtp error '.$smtperrorcode.' with topic '.$this->subject);
1185 }
1186 }
1187 }
1188 } elseif ($this->sendmode == 'swiftmailer') {
1189 // Use Swift Mailer library
1190 // ------------------------------------------
1191 require_once DOL_DOCUMENT_ROOT.'/includes/swiftmailer/lib/swift_required.php';
1192
1193 // Clean parameters
1194 if (empty($conf->global->$keyforsmtpserver)) {
1195 $conf->global->$keyforsmtpserver = ini_get('SMTP');
1196 }
1197 if (empty($conf->global->$keyforsmtpport)) {
1198 $conf->global->$keyforsmtpport = ini_get('smtp_port');
1199 }
1200
1201 // If we use SSL/TLS
1202 $server = getDolGlobalString($keyforsmtpserver);
1203 $secure = '';
1204 if (!empty($conf->global->$keyfortls) && function_exists('openssl_open')) {
1205 $secure = 'ssl';
1206 }
1207 if (!empty($conf->global->$keyforstarttls) && function_exists('openssl_open')) {
1208 $secure = 'tls';
1209 }
1210
1211 $this->transport = new Swift_SmtpTransport($server, getDolGlobalString($keyforsmtpport), $secure);
1212
1213 if (!empty($conf->global->$keyforsmtpid)) {
1214 $this->transport->setUsername($conf->global->$keyforsmtpid);
1215 }
1216 if (!empty($conf->global->$keyforsmtppw) && getDolGlobalString($keyforsmtpauthtype) != "XOAUTH2") {
1217 $this->transport->setPassword($conf->global->$keyforsmtppw);
1218 }
1219 if (getDolGlobalString($keyforsmtpauthtype) === "XOAUTH2") {
1220 require_once DOL_DOCUMENT_ROOT.'/core/lib/oauth.lib.php';
1221
1222 $supportedoauth2array = getSupportedOauth2Array();
1223
1224 $keyforsupportedoauth2array = getDolGlobalString($keyforsmtpoauthservice);
1225 if (preg_match('/^.*-/', $keyforsupportedoauth2array)) {
1226 $keyforprovider = preg_replace('/^.*-/', '', $keyforsupportedoauth2array);
1227 } else {
1228 $keyforprovider = '';
1229 }
1230 $keyforsupportedoauth2array = preg_replace('/-.*$/', '', $keyforsupportedoauth2array);
1231 $keyforsupportedoauth2array = 'OAUTH_'.$keyforsupportedoauth2array.'_NAME';
1232
1233 $OAUTH_SERVICENAME = 'Unknown';
1234 if (array_key_exists($keyforsupportedoauth2array, $supportedoauth2array)
1235 && array_key_exists('name', $supportedoauth2array[$keyforsupportedoauth2array])
1236 && !empty($supportedoauth2array[$keyforsupportedoauth2array]['name'])) {
1237 $OAUTH_SERVICENAME = $supportedoauth2array[$keyforsupportedoauth2array]['name'].(!empty($keyforprovider) ? '-'.$keyforprovider : '');
1238 }
1239
1240 require_once DOL_DOCUMENT_ROOT.'/includes/OAuth/bootstrap.php';
1241
1242 $storage = new DoliStorage($db, $conf, $keyforprovider);
1243
1244 try {
1245 $tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME);
1246
1247 $expire = false;
1248 // Is token expired or will token expire in the next 30 seconds
1249 if (is_object($tokenobj)) {
1250 $expire = ($tokenobj->getEndOfLife() !== -9002 && $tokenobj->getEndOfLife() !== -9001 && time() > ($tokenobj->getEndOfLife() - 30));
1251 }
1252 // Token expired so we refresh it
1253 if (is_object($tokenobj) && $expire) {
1254 $credentials = new Credentials(
1255 getDolGlobalString('OAUTH_'.getDolGlobalString($keyforsmtpoauthservice).'_ID'),
1256 getDolGlobalString('OAUTH_'.getDolGlobalString($keyforsmtpoauthservice).'_SECRET'),
1257 getDolGlobalString('OAUTH_'.getDolGlobalString($keyforsmtpoauthservice).'_URLAUTHORIZE')
1258 );
1259 $serviceFactory = new \OAuth\ServiceFactory();
1260 $oauthname = explode('-', $OAUTH_SERVICENAME);
1261 // ex service is Google-Emails we need only the first part Google
1262 $apiService = $serviceFactory->createService($oauthname[0], $credentials, $storage, array());
1263 // We have to save the token because Google give it only once
1264 $refreshtoken = $tokenobj->getRefreshToken();
1265 $tokenobj = $apiService->refreshAccessToken($tokenobj);
1266 $tokenobj->setRefreshToken($refreshtoken);
1267 $storage->storeAccessToken($OAUTH_SERVICENAME, $tokenobj);
1268
1269 $tokenobj = $storage->retrieveAccessToken($OAUTH_SERVICENAME);
1270 }
1271
1272 if (is_object($tokenobj)) {
1273 $this->transport->setAuthMode('XOAUTH2');
1274 $this->transport->setPassword($tokenobj->getAccessToken());
1275 } else {
1276 $this->errors[] = "Token not found";
1277 }
1278 } catch (Exception $e) {
1279 // Return an error if token not found
1280 $this->errors[] = $e->getMessage();
1281 dol_syslog("CMailFile::sendfile: mail end error=".$e->getMessage(), LOG_ERR);
1282 }
1283 }
1284 if (getDolGlobalString($keyforsslseflsigned)) {
1285 $this->transport->setStreamOptions(array('ssl' => array('allow_self_signed' => true, 'verify_peer' => false)));
1286 }
1287 //$smtps->_msgReplyTo = 'reply@web.com';
1288
1289 // Switch content encoding to base64 - avoid the doubledot issue with quoted-printable
1290 $contentEncoderBase64 = new Swift_Mime_ContentEncoder_Base64ContentEncoder();
1291 $this->message->setEncoder($contentEncoderBase64);
1292
1293 // Create the Mailer using your created Transport
1294 $this->mailer = new Swift_Mailer($this->transport);
1295
1296 // DKIM SIGN
1297 if (getDolGlobalString('MAIN_MAIL_EMAIL_DKIM_ENABLED')) {
1298 $privateKey = getDolGlobalString('MAIN_MAIL_EMAIL_DKIM_PRIVATE_KEY');
1299 $domainName = getDolGlobalString('MAIN_MAIL_EMAIL_DKIM_DOMAIN');
1300 $selector = getDolGlobalString('MAIN_MAIL_EMAIL_DKIM_SELECTOR');
1301 $signer = new Swift_Signers_DKIMSigner($privateKey, $domainName, $selector);
1302 $this->message->attachSigner($signer->ignoreHeader('Return-Path'));
1303 }
1304
1305 if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1306 // To use the ArrayLogger
1307 $this->logger = new Swift_Plugins_Loggers_ArrayLogger();
1308 // Or to use the Echo Logger
1309 //$this->logger = new Swift_Plugins_Loggers_EchoLogger();
1310 $this->mailer->registerPlugin(new Swift_Plugins_LoggerPlugin($this->logger));
1311 }
1312
1313 dol_syslog("CMailFile::sendfile: mailer->send, HOST=".$server.", PORT=" . getDolGlobalString($keyforsmtpport), LOG_DEBUG);
1314
1315 // send mail
1316 $failedRecipients = array();
1317 try {
1318 $result = $this->mailer->send($this->message, $failedRecipients);
1319 } catch (Exception $e) {
1320 $this->errors[] = $e->getMessage();
1321 }
1322 if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1323 $this->dump_mail();
1324 }
1325
1326 $res = true;
1327 if (!empty($this->error) || !empty($this->errors) || !$result) {
1328 if (!empty($failedRecipients)) {
1329 $this->errors[] = 'Transport failed for the following addresses: "' . implode('", "', $failedRecipients) . '".';
1330 }
1331 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1332 $res = false;
1333
1334 if (getDolGlobalString('MAIN_MAIL_DEBUG')) {
1335 $this->save_dump_mail_in_err('Mail with topic '.$this->subject);
1336 }
1337 } else {
1338 dol_syslog("CMailFile::sendfile: mail end success", LOG_DEBUG);
1339 }
1340 } else {
1341 // Send mail method not correctly defined
1342 // --------------------------------------
1343
1344 $this->error = 'Bad value for sendmode';
1345 return false;
1346 }
1347
1348 // Now we delete image files that were created dynamically to manage data inline files
1349 foreach ($this->html_images as $val) {
1350 if (!empty($val['type']) && $val['type'] == 'cidfromdata') {
1351 //dol_delete($val['fullpath']);
1352 }
1353 }
1354
1355 $parameters = array('sent' => $res);
1356 $action = '';
1357 $reshook = $hookmanager->executeHooks('sendMailAfter', $parameters, $this, $action); // Note that $action and $object may have been modified by some hooks
1358 if ($reshook < 0) {
1359 $this->error = "Error in hook maildao sendMailAfter ".$reshook;
1360 dol_syslog("CMailFile::sendfile: mail end error=".$this->error, LOG_ERR);
1361
1362 return false;
1363 }
1364 } else {
1365 $this->error = 'No mail sent. Feature is disabled by option MAIN_DISABLE_ALL_MAILS';
1366 dol_syslog("CMailFile::sendfile: ".$this->error, LOG_WARNING);
1367 }
1368
1369 error_reporting($errorlevel); // Reactive niveau erreur origine
1370 return $res;
1371 }
1372
1379 public static function encodetorfc2822($stringtoencode)
1380 {
1381 global $conf;
1382 return '=?'.$conf->file->character_set_client.'?B?'.base64_encode($stringtoencode).'?=';
1383 }
1384
1385 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1392 private function _encode_file($sourcefile)
1393 {
1394 // phpcs:enable
1395 $newsourcefile = dol_osencode($sourcefile);
1396
1397 if (is_readable($newsourcefile)) {
1398 $contents = file_get_contents($newsourcefile); // Need PHP 4.3
1399 $encoded = chunk_split(base64_encode($contents), 76, $this->eol); // 76 max is defined into http://tools.ietf.org/html/rfc2047
1400 return $encoded;
1401 } else {
1402 $this->error = "Error in _encode_file() method: Can't read file '".$sourcefile."'";
1403 dol_syslog("CMailFile::_encode_file: ".$this->error, LOG_ERR);
1404 return -1;
1405 }
1406 }
1407
1408
1409 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1417 public function dump_mail()
1418 {
1419 // phpcs:enable
1420 global $dolibarr_main_data_root;
1421
1422 if (@is_writable($dolibarr_main_data_root)) { // Avoid fatal error on fopen with open_basedir
1423 $outputfile = $dolibarr_main_data_root."/dolibarr_mail.log";
1424 $fp = fopen($outputfile, "w"); // overwrite
1425
1426 if ($this->sendmode == 'mail') {
1427 fwrite($fp, $this->headers);
1428 fwrite($fp, $this->eol); // This eol is added by the mail function, so we add it in log
1429 fwrite($fp, $this->message);
1430 } elseif ($this->sendmode == 'smtps') {
1431 fwrite($fp, $this->smtps->log); // this->smtps->log is filled only if MAIN_MAIL_DEBUG was set to on
1432 } elseif ($this->sendmode == 'swiftmailer') {
1433 fwrite($fp, "smtpheader=\n".$this->message->getHeaders()->toString()."\n");
1434 fwrite($fp, $this->logger->dump()); // this->logger is filled only if MAIN_MAIL_DEBUG was set to on
1435 }
1436
1437 fclose($fp);
1438 dolChmod($outputfile);
1439
1440 // Move dolibarr_mail.log into a dolibarr_mail.YYYYMMDD.log
1441 if (getDolGlobalString('MAIN_MAIL_DEBUG_LOG_WITH_DATE')) {
1442 $destfile = $dolibarr_main_data_root."/dolibarr_mail.".dol_print_date(dol_now(), 'dayhourlog', 'gmt').".log";
1443
1444 require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
1445 dol_move($outputfile, $destfile, 0, 1, 0, 0);
1446 }
1447 }
1448 }
1449
1450 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1458 public function save_dump_mail_in_err($message = '')
1459 {
1460 global $dolibarr_main_data_root;
1461
1462 if (@is_writable($dolibarr_main_data_root)) { // Avoid fatal error on fopen with open_basedir
1463 $srcfile = $dolibarr_main_data_root."/dolibarr_mail.log";
1464
1465 // Add message to dolibarr_mail.log. We do not use dol_syslog() on purpose,
1466 // to be sure to write into dolibarr_mail.log
1467 if ($message) {
1468 // Test constant SYSLOG_FILE_NO_ERROR (should stay a constant defined with define('SYSLOG_FILE_NO_ERROR',1);
1469 if (defined('SYSLOG_FILE_NO_ERROR')) {
1470 $filefd = @fopen($srcfile, 'a+');
1471 } else {
1472 $filefd = fopen($srcfile, 'a+');
1473 }
1474 if ($filefd) {
1475 fwrite($filefd, $message."\n");
1476 fclose($filefd);
1477 dolChmod($srcfile);
1478 }
1479 }
1480
1481 // Move dolibarr_mail.log into a dolibarr_mail.err or dolibarr_mail.date.err
1482 if (getDolGlobalString('MAIN_MAIL_DEBUG_ERR_WITH_DATE')) {
1483 $destfile = $dolibarr_main_data_root."/dolibarr_mail.".dol_print_date(dol_now(), 'dayhourlog', 'gmt').".err";
1484 } else {
1485 $destfile = $dolibarr_main_data_root."/dolibarr_mail.err";
1486 }
1487
1488 require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
1489 dol_move($srcfile, $destfile, 0, 1, 0, 0);
1490 }
1491 }
1492
1493
1500 public function checkIfHTML($msg)
1501 {
1502 if (!preg_match('/^[\s\t]*<html/i', $msg)) {
1503 $out = "<html><head><title></title>";
1504 if (!empty($this->styleCSS)) {
1505 $out .= $this->styleCSS;
1506 }
1507 $out .= "</head><body";
1508 if (!empty($this->bodyCSS)) {
1509 $out .= $this->bodyCSS;
1510 }
1511 $out .= ">";
1512 $out .= $msg;
1513 $out .= "</body></html>";
1514 } else {
1515 $out = $msg;
1516 }
1517
1518 return $out;
1519 }
1520
1526 public function buildCSS()
1527 {
1528 if (!empty($this->css)) {
1529 // Style CSS
1530 $this->styleCSS = '<style type="text/css">';
1531 $this->styleCSS .= 'body {';
1532
1533 if ($this->css['bgcolor']) {
1534 $this->styleCSS .= ' background-color: '.$this->css['bgcolor'].';';
1535 $this->bodyCSS .= ' bgcolor="'.$this->css['bgcolor'].'"';
1536 }
1537 if ($this->css['bgimage']) {
1538 // TODO recuperer cid
1539 $this->styleCSS .= ' background-image: url("cid:'.$this->css['bgimage_cid'].'");';
1540 }
1541 $this->styleCSS .= '}';
1542 $this->styleCSS .= '</style>';
1543 }
1544 }
1545
1546
1547 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1553 public function write_smtpheaders()
1554 {
1555 // phpcs:enable
1556 $out = "";
1557 $host = dol_getprefix('email');
1558
1559 // Sender
1560 //$out.= "Sender: ".getValidAddress($this->addr_from,2)).$this->eol2;
1561 $out .= "From: ".$this->getValidAddress($this->addr_from, 3, 1).$this->eol2;
1562 if (getDolGlobalString('MAIN_MAIL_SENDMAIL_FORCE_BA')) {
1563 $out .= "To: ".$this->getValidAddress($this->addr_to, 0, 1).$this->eol2;
1564 }
1565 // 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.
1566 $out .= "Return-Path: ".$this->getValidAddress($this->addr_from, 0, 1).$this->eol2;
1567 if (isset($this->reply_to) && $this->reply_to) {
1568 $out .= "Reply-To: ".$this->getValidAddress($this->reply_to, 2).$this->eol2;
1569 }
1570 if (isset($this->errors_to) && $this->errors_to) {
1571 $out .= "Errors-To: ".$this->getValidAddress($this->errors_to, 2).$this->eol2;
1572 }
1573
1574 // Receiver
1575 if (isset($this->addr_cc) && $this->addr_cc) {
1576 $out .= "Cc: ".$this->getValidAddress($this->addr_cc, 2).$this->eol2;
1577 }
1578 if (isset($this->addr_bcc) && $this->addr_bcc) {
1579 $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 ?
1580 }
1581
1582 // Delivery receipt
1583 if (isset($this->deliveryreceipt) && $this->deliveryreceipt == 1) {
1584 $out .= "Disposition-Notification-To: ".$this->getValidAddress($this->addr_from, 2).$this->eol2;
1585 }
1586
1587 //$out.= "X-Priority: 3".$this->eol2;
1588
1589 $out .= 'Date: '.date("r").$this->eol2;
1590
1591 $trackid = $this->trackid;
1592 if ($trackid) {
1593 $this->msgid = time().'.phpmail-dolibarr-'.$trackid.'@'.$host;
1594 $out .= 'Message-ID: <'.$this->msgid.">".$this->eol2; // Uppercase seems replaced by phpmail
1595 $out .= 'X-Dolibarr-TRACKID: '.$trackid.'@'.$host.$this->eol2;
1596 } else {
1597 $this->msgid = time().'.phpmail@'.$host;
1598 $out .= 'Message-ID: <'.$this->msgid.">".$this->eol2;
1599 }
1600
1601 // Add 'In-Reply-To:' header with the Message-Id we answer
1602 if (!empty($this->in_reply_to)) {
1603 $out .= 'In-Reply-To: <'.$this->in_reply_to.'>'.$this->eol2;
1604 }
1605 // Add 'References:' header with list of all Message-ID in thread history
1606 if (!empty($this->references)) {
1607 $out .= 'References: '.$this->references.$this->eol2;
1608 }
1609
1610 if (!empty($_SERVER['REMOTE_ADDR'])) {
1611 $out .= "X-RemoteAddr: ".$_SERVER['REMOTE_ADDR'].$this->eol2;
1612 }
1613 $out .= "X-Mailer: Dolibarr version ".DOL_VERSION." (using php mail)".$this->eol2;
1614 $out .= "Mime-Version: 1.0".$this->eol2;
1615
1616 //$out.= "From: ".$this->getValidAddress($this->addr_from,3,1).$this->eol;
1617
1618 $out .= "Content-Type: multipart/mixed;".$this->eol2." boundary=\"".$this->mixed_boundary."\"".$this->eol2;
1619 $out .= "Content-Transfer-Encoding: 8bit".$this->eol2; // TODO Seems to be ignored. Header is 7bit once received.
1620
1621 dol_syslog("CMailFile::write_smtpheaders smtp_header=\n".$out);
1622 return $out;
1623 }
1624
1625
1626 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1634 public function write_mimeheaders($filename_list, $mimefilename_list)
1635 {
1636 // phpcs:enable
1637 $mimedone = 0;
1638 $out = "";
1639
1640 if (is_array($filename_list)) {
1641 $filename_list_size = count($filename_list);
1642 for ($i = 0; $i < $filename_list_size; $i++) {
1643 if ($filename_list[$i]) {
1644 if ($mimefilename_list[$i]) {
1645 $filename_list[$i] = $mimefilename_list[$i];
1646 }
1647 $out .= "X-attachments: $filename_list[$i]".$this->eol2;
1648 }
1649 }
1650 }
1651
1652 dol_syslog("CMailFile::write_mimeheaders mime_header=\n".$out, LOG_DEBUG);
1653 return $out;
1654 }
1655
1656 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1663 public function write_body($msgtext)
1664 {
1665 // phpcs:enable
1666 global $conf;
1667
1668 $out = '';
1669
1670 $out .= "--".$this->mixed_boundary.$this->eol;
1671
1672 if ($this->atleastoneimage) {
1673 $out .= "Content-Type: multipart/alternative;".$this->eol." boundary=\"".$this->alternative_boundary."\"".$this->eol;
1674 $out .= $this->eol;
1675 $out .= "--".$this->alternative_boundary.$this->eol;
1676 }
1677
1678 // Make RFC821 Compliant, replace bare linefeeds
1679 $strContent = preg_replace("/(?<!\r)\n/si", "\r\n", $msgtext); // PCRE modifier /s means new lines are common chars
1680 if (getDolGlobalString('MAIN_FIX_FOR_BUGGED_MTA')) {
1681 $strContent = preg_replace("/\r\n/si", "\n", $strContent); // PCRE modifier /s means new lines are common chars
1682 }
1683
1684 $strContentAltText = '';
1685 if ($this->msgishtml) {
1686 // Similar code to forge a text from html is also in smtps.class.php
1687 $strContentAltText = preg_replace("/<br\s*[^>]*>/", " ", $strContent);
1688 // TODO We could replace <img ...> with [Filename.ext] like Gmail do.
1689 $strContentAltText = html_entity_decode(strip_tags($strContentAltText)); // Remove any HTML tags
1690 $strContentAltText = trim(wordwrap($strContentAltText, 75, !getDolGlobalString('MAIN_FIX_FOR_BUGGED_MTA') ? "\r\n" : "\n"));
1691
1692 // Check if html header already in message, if not complete the message
1693 $strContent = $this->checkIfHTML($strContent); // This add a header and a body including custom CSS to the HTML content
1694 }
1695
1696 // Make RFC2045 Compliant, split lines
1697 //$strContent = rtrim(chunk_split($strContent)); // Function chunck_split seems ko if not used on a base64 content
1698 // TODO Encode main content into base64 and use the chunk_split, or quoted-printable
1699 $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.
1700
1701 if ($this->msgishtml) {
1702 if ($this->atleastoneimage) {
1703 $out .= "Content-Type: text/plain; charset=".$conf->file->character_set_client.$this->eol;
1704 //$out.= "Content-Transfer-Encoding: 7bit".$this->eol;
1705 $out .= $this->eol.($strContentAltText ? $strContentAltText : strip_tags($strContent)).$this->eol; // Add plain text message
1706 $out .= "--".$this->alternative_boundary.$this->eol;
1707 $out .= "Content-Type: multipart/related;".$this->eol." boundary=\"".$this->related_boundary."\"".$this->eol;
1708 $out .= $this->eol;
1709 $out .= "--".$this->related_boundary.$this->eol;
1710 }
1711
1712 if (!$this->atleastoneimage && $strContentAltText && getDolGlobalString('MAIN_MAIL_USE_MULTI_PART')) { // Add plain text message part before html part
1713 $out .= "Content-Type: multipart/alternative;".$this->eol." boundary=\"".$this->alternative_boundary."\"".$this->eol;
1714 $out .= $this->eol;
1715 $out .= "--".$this->alternative_boundary.$this->eol;
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.$strContentAltText.$this->eol;
1719 $out .= "--".$this->alternative_boundary.$this->eol;
1720 }
1721
1722 $out .= "Content-Type: text/html; charset=".$conf->file->character_set_client.$this->eol;
1723 //$out.= "Content-Transfer-Encoding: 7bit".$this->eol; // TODO Use base64
1724 $out .= $this->eol.$strContent.$this->eol;
1725
1726 if (!$this->atleastoneimage && $strContentAltText && getDolGlobalString('MAIN_MAIL_USE_MULTI_PART')) { // Add plain text message part after html part
1727 $out .= "--".$this->alternative_boundary."--".$this->eol;
1728 }
1729 } else {
1730 $out .= "Content-Type: text/plain; charset=".$conf->file->character_set_client.$this->eol;
1731 //$out.= "Content-Transfer-Encoding: 7bit".$this->eol;
1732 $out .= $this->eol.$strContent.$this->eol;
1733 }
1734
1735 $out .= $this->eol;
1736
1737 // Encode images
1738 if ($this->atleastoneimage) {
1739 $out .= $this->write_images($this->images_encoded);
1740 // always end related and end alternative after inline images
1741 $out .= "--".$this->related_boundary."--".$this->eol;
1742 $out .= $this->eol."--".$this->alternative_boundary."--".$this->eol;
1743 $out .= $this->eol;
1744 }
1745
1746 return $out;
1747 }
1748
1749 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1759 private function write_files($filename_list, $mimetype_list, $mimefilename_list, $cidlist)
1760 {
1761 // phpcs:enable
1762 $out = '';
1763
1764 $filename_list_size = count($filename_list);
1765 for ($i = 0; $i < $filename_list_size; $i++) {
1766 if ($filename_list[$i]) {
1767 dol_syslog("CMailFile::write_files: i=$i ".$filename_list[$i]);
1768 $encoded = $this->_encode_file($filename_list[$i]);
1769 if ($encoded !== -1) {
1770 if ($mimefilename_list[$i]) {
1771 $filename_list[$i] = $mimefilename_list[$i];
1772 }
1773 if (!$mimetype_list[$i]) {
1774 $mimetype_list[$i] = "application/octet-stream";
1775 }
1776
1777 $out .= "--".$this->mixed_boundary.$this->eol;
1778 $out .= "Content-Disposition: attachment; filename=\"".$filename_list[$i]."\"".$this->eol;
1779 $out .= "Content-Type: ".$mimetype_list[$i]."; name=\"".$filename_list[$i]."\"".$this->eol;
1780 $out .= "Content-Transfer-Encoding: base64".$this->eol;
1781 $out .= "Content-Description: ".$filename_list[$i].$this->eol;
1782 if (!empty($cidlist) && is_array($cidlist) && $cidlist[$i]) {
1783 $out .= "X-Attachment-Id: ".$cidlist[$i].$this->eol;
1784 $out .= "Content-ID: <".$cidlist[$i].'>'.$this->eol;
1785 }
1786 $out .= $this->eol;
1787 $out .= $encoded;
1788 $out .= $this->eol;
1789 //$out.= $this->eol;
1790 } else {
1791 return $encoded;
1792 }
1793 }
1794 }
1795
1796 return $out;
1797 }
1798
1799
1800 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1807 public function write_images($images_list)
1808 {
1809 // phpcs:enable
1810 $out = '';
1811
1812 if (is_array($images_list)) {
1813 foreach ($images_list as $img) {
1814 dol_syslog("CMailFile::write_images: ".$img["name"]);
1815
1816 $out .= "--".$this->related_boundary.$this->eol; // always related for an inline image
1817 $out .= "Content-Type: ".$img["content_type"]."; name=\"".$img["name"]."\"".$this->eol;
1818 $out .= "Content-Transfer-Encoding: base64".$this->eol;
1819 $out .= "Content-Disposition: inline; filename=\"".$img["name"]."\"".$this->eol;
1820 $out .= "Content-ID: <".$img["cid"].">".$this->eol;
1821 $out .= $this->eol;
1822 $out .= $img["image_encoded"];
1823 $out .= $this->eol;
1824 }
1825 }
1826
1827 return $out;
1828 }
1829
1830
1831 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1839 public function check_server_port($host, $port)
1840 {
1841 // phpcs:enable
1842 global $conf;
1843
1844 $_retVal = 0;
1845 $timeout = 5; // Timeout in seconds
1846
1847 if (function_exists('fsockopen')) {
1848 $keyforsmtpserver = 'MAIN_MAIL_SMTP_SERVER';
1849 $keyforsmtpport = 'MAIN_MAIL_SMTP_PORT';
1850 $keyforsmtpid = 'MAIN_MAIL_SMTPS_ID';
1851 $keyforsmtppw = 'MAIN_MAIL_SMTPS_PW';
1852 $keyforsmtpauthtype = 'MAIN_MAIL_SMTPS_AUTH_TYPE';
1853 $keyforsmtpoauthservice = 'MAIN_MAIL_SMTPS_OAUTH_SERVICE';
1854 $keyfortls = 'MAIN_MAIL_EMAIL_TLS';
1855 $keyforstarttls = 'MAIN_MAIL_EMAIL_STARTTLS';
1856 $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED';
1857
1858 if (!empty($this->sendcontext)) {
1859 $smtpContextKey = strtoupper($this->sendcontext);
1860 $smtpContextSendMode = getDolGlobalString('MAIN_MAIL_SENDMODE_'.$smtpContextKey);
1861 if (!empty($smtpContextSendMode) && $smtpContextSendMode != 'default') {
1862 $keyforsmtpserver = 'MAIN_MAIL_SMTP_SERVER_'.$smtpContextKey;
1863 $keyforsmtpport = 'MAIN_MAIL_SMTP_PORT_'.$smtpContextKey;
1864 $keyforsmtpid = 'MAIN_MAIL_SMTPS_ID_'.$smtpContextKey;
1865 $keyforsmtppw = 'MAIN_MAIL_SMTPS_PW_'.$smtpContextKey;
1866 $keyforsmtpauthtype = 'MAIN_MAIL_SMTPS_AUTH_TYPE_'.$smtpContextKey;
1867 $keyforsmtpoauthservice = 'MAIN_MAIL_SMTPS_OAUTH_SERVICE_'.$smtpContextKey;
1868 $keyfortls = 'MAIN_MAIL_EMAIL_TLS_'.$smtpContextKey;
1869 $keyforstarttls = 'MAIN_MAIL_EMAIL_STARTTLS_'.$smtpContextKey;
1870 $keyforsslseflsigned = 'MAIN_MAIL_EMAIL_SMTP_ALLOW_SELF_SIGNED_'.$smtpContextKey;
1871 }
1872 }
1873
1874 // If we use SSL/TLS
1875 if (!empty($conf->global->$keyfortls) && function_exists('openssl_open')) {
1876 $host = 'ssl://'.$host;
1877 }
1878 // tls smtp start with no encryption
1879 //if (!empty($conf->global->MAIN_MAIL_EMAIL_STARTTLS) && function_exists('openssl_open')) $host='tls://'.$host;
1880
1881 dol_syslog("Try socket connection to host=".$host." port=".$port." timeout=".$timeout);
1882 //See if we can connect to the SMTP server
1883 $errno = 0;
1884 $errstr = '';
1885 if ($socket = @fsockopen(
1886 $host, // Host to test, IP or domain. Add ssl:// for SSL/TLS.
1887 $port, // which Port number to use
1888 $errno, // actual system level error
1889 $errstr, // and any text that goes with the error
1890 $timeout // timeout for reading/writing data over the socket
1891 )) {
1892 // Windows still does not have support for this timeout function
1893 if (function_exists('stream_set_timeout')) {
1894 stream_set_timeout($socket, $timeout, 0);
1895 }
1896
1897 dol_syslog("Now we wait for answer 220");
1898
1899 // Check response from Server
1900 if ($_retVal = $this->server_parse($socket, "220")) {
1901 $_retVal = $socket;
1902 }
1903 } else {
1904 $this->error = utf8_check('Error '.$errno.' - '.$errstr) ? 'Error '.$errno.' - '.$errstr : mb_convert_encoding('Error '.$errno.' - '.$errstr, 'UTF-8', 'ISO-8859-1');
1905 }
1906 }
1907 return $_retVal;
1908 }
1909
1910 // phpcs:disable PEAR.NamingConventions.ValidFunctionName.ScopeNotCamelCaps
1919 public function server_parse($socket, $response)
1920 {
1921 // phpcs:enable
1922 $_retVal = true; // Indicates if Object was created or not
1923 $server_response = '';
1924
1925 while (substr($server_response, 3, 1) != ' ') {
1926 if (!($server_response = fgets($socket, 256))) {
1927 $this->error = "Couldn't get mail server response codes";
1928 return false;
1929 }
1930 }
1931
1932 if (!(substr($server_response, 0, 3) == $response)) {
1933 $this->error = "Ran into problems sending Mail.\r\nResponse: $server_response";
1934 $_retVal = false;
1935 }
1936
1937 return $_retVal;
1938 }
1939
1946 private function findHtmlImages($images_dir)
1947 {
1948 // Build the array of image extensions
1949 $extensions = array_keys($this->image_types);
1950
1951 // We search (into mail body this->html), if we find some strings like "... file=xxx.img"
1952 // For example when:
1953 // <img alt="" src="/viewimage.php?modulepart=medias&amp;entity=1&amp;file=image/picture.jpg" style="height:356px; width:1040px" />
1954 $matches = array();
1955 preg_match_all('/(?:"|\')([^"\']+\.('.implode('|', $extensions).'))(?:"|\')/Ui', $this->html, $matches); // If "xxx.ext" or 'xxx.ext' found
1956
1957 if (!empty($matches) && !empty($matches[1])) {
1958 $i = 0;
1959 // We are interested in $matches[1] only (the second set of parenthesis into regex)
1960 foreach ($matches[1] as $full) {
1961 $regs = array();
1962 if (preg_match('/file=([A-Za-z0-9_\-\/]+[\.]?[A-Za-z0-9]+)?$/i', $full, $regs)) { // If xxx is 'file=aaa'
1963 $img = $regs[1];
1964
1965 if (file_exists($images_dir.'/'.$img)) {
1966 // Image path in src
1967 $src = preg_quote($full, '/');
1968 // Image full path
1969 $this->html_images[$i]["fullpath"] = $images_dir.'/'.$img;
1970 // Image name
1971 $this->html_images[$i]["name"] = $img;
1972 // Content type
1973 $regext = array();
1974 if (preg_match('/^.+\.(\w{3,4})$/', $img, $regext)) {
1975 $ext = strtolower($regext[1]);
1976 $this->html_images[$i]["content_type"] = $this->image_types[$ext];
1977 }
1978 // cid
1979 $this->html_images[$i]["cid"] = dol_hash($this->html_images[$i]["fullpath"], 'md5'); // Force md5 hash (does not contain special chars)
1980 // type
1981 $this->html_images[$i]["type"] = 'cidfromurl';
1982
1983 $this->html = preg_replace("/src=\"$src\"|src='$src'/i", "src=\"cid:".$this->html_images[$i]["cid"]."\"", $this->html);
1984 }
1985 $i++;
1986 }
1987 }
1988
1989 if (!empty($this->html_images)) {
1990 $inline = array();
1991
1992 $i = 0;
1993
1994 foreach ($this->html_images as $img) {
1995 $fullpath = $images_dir.'/'.$img["name"];
1996
1997 // If duplicate images are embedded, they may show up as attachments, so remove them.
1998 if (!in_array($fullpath, $inline)) {
1999 // Read image file
2000 if ($image = file_get_contents($fullpath)) {
2001 // On garde que le nom de l'image
2002 $regs = array();
2003 preg_match('/([A-Za-z0-9_-]+[\.]?[A-Za-z0-9]+)?$/i', $img["name"], $regs);
2004 $imgName = $regs[1];
2005
2006 $this->images_encoded[$i]['name'] = $imgName;
2007 $this->images_encoded[$i]['fullpath'] = $fullpath;
2008 $this->images_encoded[$i]['content_type'] = $img["content_type"];
2009 $this->images_encoded[$i]['cid'] = $img["cid"];
2010 // Encodage de l'image
2011 $this->images_encoded[$i]["image_encoded"] = chunk_split(base64_encode($image), 68, $this->eol);
2012 $inline[] = $fullpath;
2013 }
2014 }
2015 $i++;
2016 }
2017 } else {
2018 return -1;
2019 }
2020
2021 return 1;
2022 } else {
2023 return 0;
2024 }
2025 }
2026
2034 private function findHtmlImagesIsSrcData($images_dir)
2035 {
2036 global $conf;
2037
2038 require_once DOL_DOCUMENT_ROOT.'/core/lib/files.lib.php';
2039
2040 // Build the array of image extensions
2041 $extensions = array_keys($this->image_types);
2042
2043 if (empty($images_dir)) {
2044 //$images_dir = $conf->admin->dir_output.'/temp/'.uniqid('cmailfile');
2045 $images_dir = $conf->admin->dir_output.'/temp/cmailfile';
2046 }
2047
2048 if ($images_dir && !dol_is_dir($images_dir)) {
2049 dol_mkdir($images_dir, DOL_DATA_ROOT);
2050 }
2051
2052 // Uncomment this for debug
2053 /*
2054 global $dolibarr_main_data_root;
2055 $outputfile = $dolibarr_main_data_root."/dolibarr_mail.log";
2056 $fp = fopen($outputfile, "w+");
2057 fwrite($fp, $this->html);
2058 fclose($fp);
2059 */
2060
2061 // We search (into mail body this->html), if we find some strings like "... file=xxx.img"
2062 // For example when:
2063 // <img alt="" src="/src="data:image....;base64,...." />
2064 $matches = array();
2065 preg_match_all('/src="data:image\/('.implode('|', $extensions).');base64,([^"]+)"/Ui', $this->html, $matches); // If "xxx.ext" or 'xxx.ext' found
2066
2067 if (!empty($matches) && !empty($matches[1])) {
2068 if (empty($images_dir)) {
2069 // No temp directory provided, so we are not able to support conversion of data:image into physical images.
2070 $this->errors[] = 'NoTempDirProvidedInCMailConstructorSoCantConvertDataImgOnDisk';
2071 return -1;
2072 }
2073
2074 $i = count($this->html_images);
2075 foreach ($matches[1] as $key => $ext) {
2076 // We save the image to send in disk
2077 $filecontent = $matches[2][$key];
2078
2079 $cid = 'cid000'.dol_hash($filecontent, 'md5'); // The id must not change if image is same
2080
2081 $destfiletmp = $images_dir.'/'.$cid.'.'.$ext;
2082
2083 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)
2084 dol_syslog("write the cid file ".$destfiletmp);
2085 $fhandle = @fopen($destfiletmp, 'w');
2086 if ($fhandle) {
2087 $nbofbyteswrote = fwrite($fhandle, base64_decode($filecontent));
2088 fclose($fhandle);
2089 dolChmod($destfiletmp);
2090 } else {
2091 $this->errors[] = "Failed to open file '".$destfiletmp."' for write";
2092 return -2;
2093 }
2094 }
2095
2096 if (file_exists($destfiletmp)) {
2097 // Image full path
2098 $this->html_images[$i]["fullpath"] = $destfiletmp;
2099 // Image name
2100 $this->html_images[$i]["name"] = basename($destfiletmp);
2101 // Content type
2102 $this->html_images[$i]["content_type"] = $this->image_types[strtolower($ext)];
2103 // cid
2104 $this->html_images[$i]["cid"] = $cid;
2105 // type
2106 $this->html_images[$i]["type"] = 'cidfromdata';
2107
2108 $this->html = str_replace('src="data:image/'.$ext.';base64,'.$filecontent.'"', 'src="cid:'.$this->html_images[$i]["cid"].'"', $this->html);
2109 }
2110 $i++;
2111 }
2112
2113 return 1;
2114 } else {
2115 return 0;
2116 }
2117 }
2118
2134 public static function getValidAddress($address, $format, $encode = 0, $maxnumberofemail = 0)
2135 {
2136 global $conf;
2137
2138 $ret = '';
2139
2140 $arrayaddress = (!empty($address) ? explode(',', $address) : array());
2141
2142 // Boucle sur chaque composant de l'address
2143 $i = 0;
2144 foreach ($arrayaddress as $val) {
2145 $regs = array();
2146 if (preg_match('/^(.*)<(.*)>$/i', trim($val), $regs)) {
2147 $name = trim($regs[1]);
2148 $email = trim($regs[2]);
2149 } else {
2150 $name = '';
2151 $email = trim($val);
2152 }
2153
2154 if ($email) {
2155 $i++;
2156
2157 $newemail = '';
2158 if ($format == 5) {
2159 $newemail = $name ? $name : $email;
2160 $newemail = '<a href="mailto:'.$email.'">'.$newemail.'</a>';
2161 }
2162 if ($format == 4) {
2163 $newemail = $name ? $name : $email;
2164 }
2165 if ($format == 2) {
2166 $newemail = $email;
2167 }
2168 if ($format == 1 || $format == 3) {
2169 $newemail = '<'.$email.'>';
2170 }
2171 if ($format == 0 || $format == 3) {
2172 if (getDolGlobalString('MAIN_MAIL_NO_FULL_EMAIL')) {
2173 $newemail = '<'.$email.'>';
2174 } elseif (!$name) {
2175 $newemail = '<'.$email.'>';
2176 } else {
2177 $newemail = ($format == 3 ? '"' : '').($encode ? self::encodetorfc2822($name) : $name).($format == 3 ? '"' : '').' <'.$email.'>';
2178 }
2179 }
2180
2181 $ret = ($ret ? $ret.',' : '').$newemail;
2182
2183 // Stop if we have too much records
2184 if ($maxnumberofemail && $i >= $maxnumberofemail) {
2185 if (count($arrayaddress) > $maxnumberofemail) {
2186 $ret .= '...';
2187 }
2188 break;
2189 }
2190 }
2191 }
2192
2193 return $ret;
2194 }
2195
2203 public static function getArrayAddress($address)
2204 {
2205 $ret = array();
2206
2207 $arrayaddress = explode(',', $address);
2208
2209 // Boucle sur chaque composant de l'address
2210 foreach ($arrayaddress as $val) {
2211 $regs = array();
2212 if (preg_match('/^(.*)<(.*)>$/i', trim($val), $regs)) {
2213 $name = trim($regs[1]);
2214 $email = trim($regs[2]);
2215 } else {
2216 $name = null;
2217 $email = trim($val);
2218 }
2219
2220 $ret[$email] = getDolGlobalString('MAIN_MAIL_NO_FULL_EMAIL') ? null : $name;
2221 }
2222
2223 return $ret;
2224 }
2225}
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...
dol_move($srcfile, $destfile, $newmask='0', $overwriteifexists=1, $testvirus=0, $indexdatabase=1, $moreinfo=array())
Move a file into another name.
dol_is_file($pathoffile)
Return if path is a file.
dol_is_dir($folder)
Test if filename is a directory.
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.
dol_hash($chain, $type='0', $nosalt=0)
Returns a hash (non reversible encryption) of a string.