Subversion Repositories Sites.tela-botanica.org

<?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 fois

if (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';

}

// Altern

else if (ereg('altern\.com$', $SERVER_NAME)) {

	$hebergeur = 'altern';

}

// NexenServices

else if ($_SERVER['SERVER_ADMIN'] == 'www@nexenservices.com') {

	if (!function_exists('email'))

		include ('mail.inc');

	$hebergeur = 'nexenservices';

}

// Online

else 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 disparaitre

function 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 fort

	spip_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 argument

	if ($headers = trim($headers)) $headers .= "\n";

	// Ajouter le Content-Type s'il n'y est pas deja

	if (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 é &#8217, &emdash; etc...

	$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)

		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);

		}

	}

}

?>