Go to most recent revision | Blame | Last modification | View Log | RSS feed
<?php/***************************************************************************\* SPIP, Systeme de publication pour l'internet ** ** Copyright (c) 2001-2005 ** Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James ** ** Ce programme est un logiciel libre distribue sous licence GNU/GPL. ** Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *\***************************************************************************///// Ce fichier ne sera execute qu'une foisif (defined("_ECRIRE_INC_MAIL")) return;define("_ECRIRE_INC_MAIL", "1");//// Infos de mails sur l'hebergeur (tout ca est assez sale)//global $hebergeur;global $HTTP_X_HOST, $REQUEST_URI, $SERVER_NAME, $HTTP_HOST;$hebergeur = '';// Lycos (ex-Multimachin)if ($HTTP_X_HOST == 'membres.lycos.fr') {$hebergeur = 'lycos';}// Alternelse if (ereg('altern\.com$', $SERVER_NAME)) {$hebergeur = 'altern';}// NexenServiceselse if ($_SERVER['SERVER_ADMIN'] == 'www@nexenservices.com') {if (!function_exists('email'))include ('mail.inc');$hebergeur = 'nexenservices';}// Onlineelse if (function_exists('email')) {$hebergeur = 'online';}//// Chez lyconiania, envoyer un mail coupe la connection MySQL (sic)//$GLOBALS['queue_mails'] = '';function envoyer_queue_mails() {global $queue_mails;if (!$queue_mails) return;reset($queue_mails);while (list(, $val) = each($queue_mails)) {$email = $val['email'];$sujet = $val['sujet'];$texte = $val['texte'];$headers = $val['headers'];@mail($email, $sujet, $texte, $headers);}}if ($GLOBALS['hebergeur'] == 'lycos') {register_shutdown_function(envoyer_queue_mails);}// Apparemment free etait le dernier hebergeur connu a ne pas offrir de mail// cette fonction va donc pouvoir disparaitrefunction tester_mail() {global $hebergeur;$test_mail = true;return $test_mail;}function nettoyer_caracteres_mail($t) {$t = filtrer_entites($t);if (lire_meta('charset') <> 'utf-8') {$t = str_replace(array("’","“","”"),array("'", '"', '"'),$t);}$t = str_replace(array("—", "&endash;"),array("--","-" ),$t);return $t;}function envoyer_mail($email, $sujet, $texte, $from = "", $headers = "") {global $hebergeur, $queue_mails, $flag_wordwrap;include_ecrire('inc_filtres.php3');include_ecrire('inc_charsets.php3');if (!email_valide($email)) return false;if ($email == _T('info_mail_fournisseur')) return false; // tres fortspip_log("mail ($email): $sujet from $from");if (!$from) {$email_envoi = lire_meta("email_envoi");$from = email_valide($email_envoi) ? $email_envoi : $email;}$charset = lire_meta('charset');// Ajouter au besoin le \n final dans les $headers passes en argumentif ($headers = trim($headers)) $headers .= "\n";// Ajouter le Content-Type s'il n'y est pas dejaif (strpos($headers, "Content-Type: ") === false)$headers .="MIME-Version: 1.0\n"."Content-Type: text/plain; charset=$charset\n"."Content-Transfer-Encoding: 8bit\n";// Et maintenant le champ From:$headers .= "From: $from\n";// nettoyer les é ’, &emdash; etc...$texte = nettoyer_caracteres_mail($texte);$sujet = nettoyer_caracteres_mail($sujet);// encoder le sujet si possible selon la RFCif (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)mb_internal_encoding($charset);$sujet = mb_encode_mimeheader($sujet, $charset, 'Q');mb_internal_encoding('utf-8');}if ($flag_wordwrap) $texte = wordwrap($texte);if (os_serveur == 'windows') {$texte = ereg_replace ("\r*\n","\r\n", $texte);$headers = ereg_replace ("\r*\n","\r\n", $headers);}switch($hebergeur) {case 'lycos':$queue_mails[] = array('email' => $email,'sujet' => $sujet,'texte' => $texte,'headers' => $headers);return true;case 'free':return false;case 'online':return @email('webmaster', $email, $sujet, $texte);default:return @mail($email, $sujet, $texte, $headers);}}function extrait_article($row) {include_ecrire("inc_texte.php3");include_ecrire("inc_filtres.php3");$adresse_site = lire_meta("adresse_site");$id_article = $row[0];$titre = $row[2];$chapo = $row[6];$texte = $row[7];$date = $row[9];$statut = $row[10];$les_auteurs = "";$query = "SELECT auteurs.* FROM spip_auteurs AS auteurs, spip_auteurs_articles AS lien WHERE lien.id_article=$id_article AND auteurs.id_auteur=lien.id_auteur";$result_auteurs = spip_query($query);while ($row = spip_fetch_array($result_auteurs)) {$nom_auteur = trim(supprimer_tags(typo($row['nom'])));if ($les_auteurs) $les_auteurs .= ', ';$les_auteurs .= $nom_auteur;}$extrait = "** $titre **\n";if ($les_auteurs) $extrait .= _T('info_les_auteurs_1', array('les_auteurs' => $les_auteurs));if ($statut == 'publie') $extrait .= " "._T('date_fmt_nomjour_date', array('nomjour'=>nom_jour($date), 'date'=>affdate($date)));$extrait .= "\n\n".textebrut(propre(couper_intro("$chapo<p>$texte", 700)))."\n\n";if ($statut == 'publie') $extrait .= "-> ".$adresse_site."/spip_redirect.php3?id_article=$id_article\n\n";return $extrait;}function nettoyer_titre_email($titre) {$titre = ereg_replace("\n", ' ', supprimer_tags($titre));return ($titre);}function envoyer_mail_publication($id_article) {global $connect_nom;$adresse_suivi = lire_meta("adresse_suivi");$nom_site_spip = lire_meta("nom_site");$suivi_edito = lire_meta("suivi_edito");if ($suivi_edito == "oui") {$query = "SELECT * FROM spip_articles WHERE id_article = $id_article";$result = spip_query($query);if ($row = spip_fetch_array($result)) {// selectionne langue$lang_utilisateur = $GLOBALS['spip_lang'];changer_langue($row['lang']);$titre = nettoyer_titre_email($row['titre']);$sujet = _T('info_publie_1', array('nom_site_spip' => $nom_site_spip, 'titre' => $titre));$courr = _T('info_publie_2')."\n\n";$nom = trim(supprimer_tags(typo($connect_nom)));$courr .= _T('info_publie_01', array('titre' => $titre, 'connect_nom' => $nom))."\n\n\n";$courr = $courr . extrait_article($row);envoyer_mail($adresse_suivi, $sujet, $courr);// reinstalle la langue utilisateur (au cas ou)changer_langue($lang_utilisateur);}}}function envoyer_mail_proposition($id_article) {$adresse_suivi = lire_meta("adresse_suivi");$adresse_site = lire_meta("adresse_site");$nom_site_spip = lire_meta("nom_site");$suivi_edito = lire_meta("suivi_edito");if ($suivi_edito == "oui") {if ($row = spip_fetch_array(spip_query("SELECT * FROM spip_articles WHERE id_article = $id_article"))) {$lang_utilisateur = $GLOBALS['spip_lang'];changer_langue($row['lang']);$titre = nettoyer_titre_email($row['titre']);$sujet = _T('info_propose_1', array('nom_site_spip' => $nom_site_spip, 'titre' => $titre));envoyer_mail($adresse_suivi,$sujet,_T('info_propose_2')."\n\n". _T('info_propose_3', array('titre' => $titre))."\n". _T('info_propose_4')."\n". _T('info_propose_5')."\n". $adresse_site. '/'. _DIR_RESTREINT_ABS. "articles.php3?id_article=$id_article\n\n\n". extrait_article($row));changer_langue($lang_utilisateur);}}}?>