<?php

if (!defined("_ECRIRE_INC_VERSION")) return;	#securite


// On prend l'email dans le contexte de maniere a ne pas avoir a le
// verifier dans la base ni a le devoiler au visiteur
global $balise_FORMULAIRE_ECRIRE_AUTEUR_collecte;
$balise_FORMULAIRE_ECRIRE_AUTEUR_collecte = array('id_auteur', 'id_article', 'email');

function balise_FORMULAIRE_ECRIRE_AUTEUR_stat($args, $filtres) {

	// Pas d'id_auteur ni d'id_article ? Erreur de squelette
	if (!$args[0] AND !$args[1])
		return erreur_squelette(
			_T('zbug_champ_hors_motif',
				array ('champ' => '#FORMULAIRE_ECRIRE_AUTEUR',
					'motif' => 'AUTEURS/ARTICLES')), '');

	// Si on est dans un contexte article, sortir tous les mails des auteurs
	// de l'article
	if (!$args[0] AND $args[1]) {
		unset ($args[2]);
		$s = spip_query("SELECT auteurs.email AS email
		FROM spip_auteurs as auteurs, spip_auteurs_articles as lien
		WHERE lien.id_article=".intval($args[1])
		. " AND auteurs.id_auteur = lien.id_auteur");
		while ($row = spip_fetch_array($s))
			if ($row['email'] AND email_valide($row['email']))
				$args[2].= ','.$row['email'];
		$args[2] = substr($args[2], 1);
	}

	// On ne peut pas ecrire a un auteur dont le mail n'est pas valide
	if (!$args[2] OR !email_valide($args[2]))
		return '';

	// OK
	return $args;
}

function balise_FORMULAIRE_ECRIRE_AUTEUR_dyn($id_auteur, $id_article, $mail) {
	include_ecrire('inc_texte.php3');
	$puce = $GLOBALS['puce'.$GLOBALS['spip_lang_rtl']];

	// id du formulaire (pour en avoir plusieurs sur une meme page)
	$id = ($id_auteur ? '_'.$id_auteur : '_ar'.$id_article);

	$sujet = _request('sujet_message_auteur'.$id);
	$texte = _request('texte_message_auteur'.$id);
	$adres = _request('email_message_auteur'.$id);

	$mailko = $texte && !email_valide($adres);
	$validable = $texte && $sujet && (!$mailko);

	if ($validable
	AND (_request('valide'.$id) == _T('form_prop_confirmer_envoi'))) { 
		$texte .= "\n\n-- "._T('envoi_via_le_site')." ".lire_meta('nom_site')." (".lire_meta('adresse_site')."/) --\n";
		include_ecrire("inc_mail.php3");
		envoyer_mail($mail, $sujet, $texte, $adres,
				"X-Originating-IP: ".$GLOBALS['REMOTE_ADDR']);
		return _T('form_prop_message_envoye');
	}

	$link = new Link;
	$link->delVar('sujet_message_auteur'.$id);
	$link->delVar('texte_message_auteur'.$id);
	$link->delVar('email_message_auteur'.$id);
	$link->delVar('id_auteur');

	return 
		array('formulaire_ecrire_auteur', 0,
			array(
			'action' => $link->getUrl(),
			'id' => $id,
			'mailko' => $mailko ? $puce : '',
			'mail' => $adres,
			'sujetko' => ($texte && !$sujet) ? $puce : '',
			'sujet' => $sujet,
			'texte' => $texte,
			'valide' => ($validable ?
				_T('form_prop_confirmer_envoi') :
				_T('form_prop_envoyer'))
			)
		);
}
?>
