X-Git-Url: http://git.cyclocoop.org/?p=velocampus%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fecrire%2Finc%2Fenvoyer_mail.php;fp=www%2Fecrire%2Finc%2Fenvoyer_mail.php;h=d1d09883175322931d923774869128cfade0571e;hp=0000000000000000000000000000000000000000;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c diff --git a/www/ecrire/inc/envoyer_mail.php b/www/ecrire/inc/envoyer_mail.php new file mode 100644 index 0000000..d1d0988 --- /dev/null +++ b/www/ecrire/inc/envoyer_mail.php @@ -0,0 +1,254 @@ + 'utf-8') { + $t = str_replace( + array("’","“","”"), + array("'", '"', '"'), + $t); + } + + $t = str_replace( + array("—", "&endash;"), + array("--","-" ), + $t); + + return $t; +} + +/** + * Envoi d'un mail + * http://doc.spip.org/@inc_envoyer_mail_dist + * + * @param string $destinataire + * @param string $sujet + * @param string|array $corps + * au format string, c'est un corps d'email au format texte, comme supporte nativement par le core + * au format array, c'est un corps etendu qui peut contenir + * string texte : le corps d'email au format texte + * string from : email de l'envoyeur (prioritaire sur argument $from de premier niveau, deprecie) + * array headers : tableau d'en-tetes personalises, une entree par ligne d'en-tete + * --- Support partiel par une fonction mail_embarquer_pieces_jointes a fournir, --- + * --- chargee de convertir en texte encodee les pieces jointes --- + * array pieces_jointes : listes de pieces a embarquer dans l'email, chacune au format array : + * string chemin : chemin file system pour trouver le fichier a embarquer + * string nom : nom du document tel qu'apparaissant dans l'email + * string encodage : encodage a utiliser, parmi 'base64', '7bit', '8bit', 'binary', 'quoted-printable' + * string mime : mime type du document + * --- Non implemente ici --- + * string html : le corps d'email au format html + * string nom_envoyeur : un nom d'envoyeur pour completer l'email from + * string cc : destinataires en copie conforme + * string bcc : destinataires en copie conforme cachee + * string adresse_erreur : addresse de retour en cas d'erreur d'envoi + * @param string $from (deprecie, utiliser l'entree from de $corps) + * @param string $headers (deprecie, utiliser l'entree headers de $corps) + * @return bool + */ +function inc_envoyer_mail_dist($destinataire, $sujet, $corps, $from = "", $headers = "") { + + if (!email_valide($destinataire)) return false; + if ($destinataire == _T('info_mail_fournisseur')) return false; // tres fort + global $hebergeur, $queue_mails; + + // Fournir si possible un Message-Id: conforme au RFC1036, + // sinon SpamAssassin denoncera un MSGID_FROM_MTA_HEADER + + $email_envoi = $GLOBALS['meta']["email_envoi"]; + if (!email_valide($email_envoi)) { + spip_log("Meta email_envoi invalide. Le mail sera probablement vu comme spam."); + $email_envoi = $destinataire; + } + + if (is_array($corps)){ + $texte = $corps['texte']; + $from = (isset($corps['from'])?$corps['from']:$from); + $headers = (isset($corps['headers'])?$corps['headers']:$headers); + if (is_array($headers)) + $headers = implode("\n",$headers); + $parts = ""; + if ($corps['pieces_jointes'] AND function_exists('mail_embarquer_pieces_jointes')) + $parts = mail_embarquer_pieces_jointes($corps['pieces_jointes']); + } else + $texte = $corps; + + if (!$from) $from = $email_envoi; + + // ceci est la RegExp NO_REAL_NAME faisant hurler SpamAssassin + if (preg_match('/^["\s]*\?\s*$/', $from)) + $from .= ' (' . str_replace(')','', translitteration(str_replace('@', ' at ', $from))) . ')'; + + // nettoyer les é ’, &emdash; etc... + // les 'cliquer ici' etc sont a eviter; voir: + // http://mta.org.ua/spamassassin-2.55/stuff/wiki.CustomRulesets/20050914/rules/french_rules.cf + $texte = nettoyer_caracteres_mail($texte); + $sujet = nettoyer_caracteres_mail($sujet); + + // encoder le sujet si possible selon la RFC + if (init_mb_string()) { + # un bug de mb_string casse mb_encode_mimeheader si l'encoding interne + # est UTF-8 et le charset iso-8859-1 (constate php5-mac ; php4.3-debian) + $charset = $GLOBALS['meta']['charset']; + mb_internal_encoding($charset); + $sujet = mb_encode_mimeheader($sujet, $charset, 'Q', "\n"); + mb_internal_encoding('utf-8'); + } + + if (function_exists('wordwrap') && (preg_match(',multipart/mixed,',$headers) == 0)) + $texte = wordwrap($texte); + + list($headers, $texte) = mail_normaliser_headers($headers, $from, $destinataire, $texte, $parts); + + if (_OS_SERVEUR == 'windows') { + $texte = preg_replace ("@\r*\n@","\r\n", $texte); + $headers = preg_replace ("@\r*\n@","\r\n", $headers); + $sujet = preg_replace ("@\r*\n@","\r\n", $sujet); + } + + spip_log("mail $destinataire\n$sujet\n$headers",'mails'); + // mode TEST : forcer l'email + if (defined('_TEST_EMAIL_DEST')) { + if (!_TEST_EMAIL_DEST) + return false; + else + $destinataire = _TEST_EMAIL_DEST; + } + + switch($hebergeur) { + case 'lycos': + $queue_mails[] = array( + 'email' => $destinataire, + 'sujet' => $sujet, + 'texte' => $texte, + 'headers' => $headers); + return true; + case 'free': + return false; + default: + return @mail($destinataire, $sujet, $texte, $headers); + } +} + +function mail_normaliser_headers($headers, $from, $to, $texte, $parts="") +{ + $charset = $GLOBALS['meta']['charset']; + + // Ajouter le Content-Type et consort s'il n'y est pas deja + if (strpos($headers, "Content-Type: ") === false) + $type = + "Content-Type: text/plain;charset=\"$charset\";\n". + "Content-Transfer-Encoding: 8bit\n"; + else $type = ''; + + // calculer un identifiant unique + preg_match('/@\S+/', $from, $domain); + $uniq = rand() . '_' . md5($to . $texte) . $domain[0]; + + // Si multi-part, s'en servir comme borne ... + if ($parts) { + $texte = "--$uniq\n$type\n" . $texte ."\n"; + foreach ($parts as $part) { + $n = strlen($part[1]) . ($part[0] ? "\n" : ''); + $e = join("\n", $part[0]); + $texte .= "\n--$uniq\nContent-Length: $n$e\n\n" . $part[1]; + } + $texte .= "\n\n--$uniq--\n"; + // Si boundary n'est pas entre guillemets, + // elle est comprise mais le charset est ignoree ! + $type = "Content-Type: multipart/mixed; boundary=\"$uniq\"\n"; + } + + // .. et s'en servir pour plaire a SpamAssassin + + $mid = 'Message-Id: <' . $uniq . ">"; + + // indispensable pour les sites qui collent d'office From: serveur-http + // sauf si deja mis par l'envoyeur + $rep = (strpos($headers,"Reply-To:")!==FALSE) ? '' : "Reply-To: $from\n"; + + // Nettoyer les en-tetes envoyees + if (strlen($headers)) $headers = trim($headers)."\n"; + + // Et mentionner l'indeboulonable nomenclature ratee + + $headers .= "From: $from\n$type$rep$mid\nMIME-Version: 1.0\n"; + + return array($headers, $texte); +} +?>