Subversion Repositories Sites.tela-botanica.org

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
4 david 1
<?php
2
 
3
/***************************************************************************\
4
 *  SPIP, Systeme de publication pour l'internet                           *
5
 *                                                                         *
6
 *  Copyright (c) 2001-2005                                                *
7
 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
8
 *                                                                         *
9
 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
10
 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
11
\***************************************************************************/
12
 
13
 
14
//
15
// Ce fichier ne sera execute qu'une fois
16
if (defined("_ECRIRE_INC_MAIL")) return;
17
define("_ECRIRE_INC_MAIL", "1");
18
 
19
 
20
 
21
//
22
// Infos de mails sur l'hebergeur (tout ca est assez sale)
23
//
24
global $hebergeur;
25
global $HTTP_X_HOST, $REQUEST_URI, $SERVER_NAME, $HTTP_HOST;
26
$hebergeur = '';
27
 
28
// Lycos (ex-Multimachin)
29
if ($HTTP_X_HOST == 'membres.lycos.fr') {
30
	$hebergeur = 'lycos';
31
}
32
// Altern
33
else if (ereg('altern\.com$', $SERVER_NAME)) {
34
	$hebergeur = 'altern';
35
}
36
// NexenServices
37
else if ($_SERVER['SERVER_ADMIN'] == 'www@nexenservices.com') {
38
	if (!function_exists('email'))
39
		include ('mail.inc');
40
	$hebergeur = 'nexenservices';
41
}
42
// Online
43
else if (function_exists('email')) {
44
	$hebergeur = 'online';
45
}
46
 
47
 
48
//
49
// Chez lyconiania, envoyer un mail coupe la connection MySQL (sic)
50
//
51
 
52
$GLOBALS['queue_mails'] = '';
53
 
54
function envoyer_queue_mails() {
55
	global $queue_mails;
56
	if (!$queue_mails) return;
57
	reset($queue_mails);
58
	while (list(, $val) = each($queue_mails)) {
59
		$email = $val['email'];
60
		$sujet = $val['sujet'];
61
		$texte = $val['texte'];
62
		$headers = $val['headers'];
63
		@mail($email, $sujet, $texte, $headers);
64
	}
65
}
66
 
67
if ($GLOBALS['hebergeur'] == 'lycos') {
68
	register_shutdown_function(envoyer_queue_mails);
69
}
70
 
71
// Apparemment free etait le dernier hebergeur connu a ne pas offrir de mail
72
// cette fonction va donc pouvoir disparaitre
73
function tester_mail() {
74
	global $hebergeur;
75
	$test_mail = true;
76
	return $test_mail;
77
}
78
 
79
function nettoyer_caracteres_mail($t) {
80
 
81
	$t = filtrer_entites($t);
82
 
83
	if (lire_meta('charset') <> 'utf-8') {
84
		$t = str_replace(
85
			array("&#8217;","&#8220;","&#8221;"),
86
			array("'",      '"',      '"'),
87
		$t);
88
	}
89
 
90
	$t = str_replace(
91
		array("&mdash;", "&endash;"),
92
		array("--","-" ),
93
	$t);
94
 
95
	return $t;
96
}
97
 
98
function envoyer_mail($email, $sujet, $texte, $from = "", $headers = "") {
99
	global $hebergeur, $queue_mails, $flag_wordwrap;
100
	include_ecrire('inc_filtres.php3');
101
	include_ecrire('inc_charsets.php3');
102
 
103
	if (!email_valide($email)) return false;
104
	if ($email == _T('info_mail_fournisseur')) return false; // tres fort
105
 
106
	spip_log("mail ($email): $sujet from $from");
107
 
108
	if (!$from) {
109
		$email_envoi = lire_meta("email_envoi");
110
		$from = email_valide($email_envoi) ? $email_envoi : $email;
111
	}
112
 
113
	$charset = lire_meta('charset');
114
 
115
	// Ajouter au besoin le \n final dans les $headers passes en argument
116
	if ($headers = trim($headers)) $headers .= "\n";
117
 
118
	// Ajouter le Content-Type s'il n'y est pas deja
119
	if (strpos($headers, "Content-Type: ") === false)
120
		$headers .=
121
		"MIME-Version: 1.0\n".
122
		"Content-Type: text/plain; charset=$charset\n".
123
		"Content-Transfer-Encoding: 8bit\n";
124
 
125
	// Et maintenant le champ From:
126
	$headers .= "From: $from\n";
127
 
128
	// nettoyer les &eacute; &#8217, &emdash; etc...
129
	$texte = nettoyer_caracteres_mail($texte);
130
	$sujet = nettoyer_caracteres_mail($sujet);
131
 
132
	// encoder le sujet si possible selon la RFC
133
	if (init_mb_string()) {
134
		# un bug de mb_string casse mb_encode_mimeheader si l'encoding interne
135
		# est UTF-8 et le charset iso-8859-1 (constate php5-mac ; php4.3-debian)
136
		mb_internal_encoding($charset);
137
		$sujet = mb_encode_mimeheader($sujet, $charset, 'Q');
138
		mb_internal_encoding('utf-8');
139
	}
140
 
141
	if ($flag_wordwrap) $texte = wordwrap($texte);
142
 
143
	if (os_serveur == 'windows') {
144
		$texte = ereg_replace ("\r*\n","\r\n", $texte);
145
		$headers = ereg_replace ("\r*\n","\r\n", $headers);
146
	}
147
 
148
	switch($hebergeur) {
149
	case 'lycos':
150
		$queue_mails[] = array(
151
			'email' => $email,
152
			'sujet' => $sujet,
153
			'texte' => $texte,
154
			'headers' => $headers);
155
		return true;
156
	case 'free':
157
		return false;
158
	case 'online':
159
		return @email('webmaster', $email, $sujet, $texte);
160
	default:
161
		return @mail($email, $sujet, $texte, $headers);
162
	}
163
}
164
 
165
function extrait_article($row) {
166
	include_ecrire("inc_texte.php3");
167
	include_ecrire("inc_filtres.php3");
168
 
169
	$adresse_site = lire_meta("adresse_site");
170
 
171
	$id_article = $row[0];
172
	$titre = $row[2];
173
	$chapo = $row[6];
174
	$texte = $row[7];
175
	$date = $row[9];
176
	$statut = $row[10];
177
 
178
	$les_auteurs = "";
179
 	$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";
180
	$result_auteurs = spip_query($query);
181
 
182
	while ($row = spip_fetch_array($result_auteurs)) {
183
		$nom_auteur = trim(supprimer_tags(typo($row['nom'])));
184
 
185
		if ($les_auteurs) $les_auteurs .= ', ';
186
		$les_auteurs .= $nom_auteur;
187
	}
188
 
189
	$extrait = "** $titre **\n";
190
	if ($les_auteurs) $extrait .= _T('info_les_auteurs_1', array('les_auteurs' => $les_auteurs));
191
	if ($statut == 'publie') $extrait .= " "._T('date_fmt_nomjour_date', array('nomjour'=>nom_jour($date), 'date'=>affdate($date)));
192
	$extrait .= "\n\n".textebrut(propre(couper_intro("$chapo<p>$texte", 700)))."\n\n";
193
	if ($statut == 'publie') $extrait .= "-> ".$adresse_site."/spip_redirect.php3?id_article=$id_article\n\n";
194
	return $extrait;
195
}
196
 
197
 
198
function nettoyer_titre_email($titre) {
199
	$titre = ereg_replace("\n", ' ', supprimer_tags($titre));
200
	return ($titre);
201
}
202
 
203
function envoyer_mail_publication($id_article) {
204
	global $connect_nom;
205
	$adresse_suivi = lire_meta("adresse_suivi");
206
	$nom_site_spip = lire_meta("nom_site");
207
	$suivi_edito = lire_meta("suivi_edito");
208
 
209
	if ($suivi_edito == "oui") {
210
		$query = "SELECT * FROM spip_articles WHERE id_article = $id_article";
211
		$result = spip_query($query);
212
 
213
		if ($row = spip_fetch_array($result)) {
214
 
215
			// selectionne langue
216
			$lang_utilisateur = $GLOBALS['spip_lang'];
217
			changer_langue($row['lang']);
218
 
219
			$titre = nettoyer_titre_email($row['titre']);
220
 
221
			$sujet = _T('info_publie_1', array('nom_site_spip' => $nom_site_spip, 'titre' => $titre));
222
			$courr = _T('info_publie_2')."\n\n";
223
			$nom = trim(supprimer_tags(typo($connect_nom)));
224
			$courr .= _T('info_publie_01', array('titre' => $titre, 'connect_nom' => $nom))."\n\n\n";
225
			$courr = $courr . extrait_article($row);
226
			envoyer_mail($adresse_suivi, $sujet, $courr);
227
 
228
			// reinstalle la langue utilisateur (au cas ou)
229
			changer_langue($lang_utilisateur);
230
		}
231
	}
232
}
233
 
234
function envoyer_mail_proposition($id_article) {
235
	$adresse_suivi = lire_meta("adresse_suivi");
236
	$adresse_site = lire_meta("adresse_site");
237
	$nom_site_spip = lire_meta("nom_site");
238
	$suivi_edito = lire_meta("suivi_edito");
239
 
240
	if ($suivi_edito == "oui") {
241
		if ($row = spip_fetch_array(spip_query("SELECT * FROM spip_articles WHERE id_article = $id_article"))) {
242
 
243
			$lang_utilisateur = $GLOBALS['spip_lang'];
244
			changer_langue($row['lang']);
245
 
246
			$titre = nettoyer_titre_email($row['titre']);
247
 
248
			$sujet = _T('info_propose_1', array('nom_site_spip' => $nom_site_spip, 'titre' => $titre));
249
			envoyer_mail($adresse_suivi,
250
				     $sujet,
251
				     _T('info_propose_2')
252
				     ."\n\n"
253
				     . _T('info_propose_3', array('titre' => $titre))
254
				     ."\n"
255
				     . _T('info_propose_4')
256
				     ."\n"
257
				     . _T('info_propose_5')
258
				     ."\n"
259
				     . $adresse_site
260
				     . '/'
261
				     . _DIR_RESTREINT_ABS
262
				     . "articles.php3?id_article=$id_article\n\n\n"
263
				     . extrait_article($row));
264
			changer_langue($lang_utilisateur);
265
		}
266
	}
267
}
268
 
269
?>