www/squelettes-dist/formulaires/ecrire_auteur.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2014                                                *
   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 if (!defined('_ECRIRE_INC_VERSION')) return;
  15
  16 function formulaires_ecrire_auteur_charger_dist($id_auteur, $id_article, $mail){
  17         include_spip('inc/texte');
  18         $puce = definir_puce();
  19         $valeurs = array(
  20                 'sujet_message_auteur'=>'',
  21                 'texte_message_auteur'=>'',
  22                 'email_message_auteur'=>isset($GLOBALS['visiteur_session']['email'])?$GLOBALS['visiteur_session']['email']:'',
  23                 'nobot'=>'',
  24         );
  25
  26         // id du formulaire (pour en avoir plusieurs sur une meme page)
  27         $valeurs['id'] = ($id_auteur ? '_'.$id_auteur : '_ar'.$id_article);
  28         // passer l'id_auteur au squelette
  29         $valeurs['id_auteur'] = $id_auteur;
  30         $valeurs['id_article'] = $id_article;
  31
  32         return $valeurs;
  33 }
  34
  35 function formulaires_ecrire_auteur_verifier_dist($id_auteur, $id_article, $mail){
  36         $erreurs = array();
  37         include_spip('inc/filtres');
  38
  39         if (!$adres = _request('email_message_auteur'))
  40                 $erreurs['email_message_auteur'] = _T("info_obligatoire");
  41         elseif(!email_valide($adres))
  42                 $erreurs['email_message_auteur'] = _T('form_prop_indiquer_email');
  43         else {
  44                 include_spip('inc/session');
  45                 session_set('email', $adres);
  46         }
  47
  48         $sujet=_request('sujet_message_auteur');
  49         if($sujet AND !(strlen($sujet)>3))
  50                 $erreurs['sujet_message_auteur'] = _T('forum:forum_attention_trois_caracteres');
  51
  52         if (!$texte=_request('texte_message_auteur'))
  53                 $erreurs['texte_message_auteur'] = _T("info_obligatoire");
  54         elseif(!(strlen($texte)>10))
  55                 $erreurs['texte_message_auteur'] = _T('forum:forum_attention_dix_caracteres');
  56
  57         if (_request('nobot'))
  58                 $erreurs['message_erreur'] = _T('pass_rien_a_faire_ici');
  59
  60         if (!_request('confirmer') AND !count($erreurs))
  61                 $erreurs['previsu']=' ';
  62         return $erreurs;
  63 }
  64
  65 function formulaires_ecrire_auteur_traiter_dist($id_auteur, $id_article, $mail){
  66
  67         $adres = _request('email_message_auteur');
  68         $sujet = _request('sujet_message_auteur');
  69
  70         $sujet = "[".supprimer_tags(extraire_multi($GLOBALS['meta']['nom_site']))."] "
  71                 . _T('info_message_2')." "
  72           . $sujet;
  73         $texte=_request('texte_message_auteur');
  74
  75         $texte .= "\n\n-- "._T('envoi_via_le_site')." ".supprimer_tags(extraire_multi($GLOBALS['meta']['nom_site']))." (".$GLOBALS['meta']['adresse_site']."/) --\n";
  76         $envoyer_mail = charger_fonction('envoyer_mail','inc');
  77
  78         if ($envoyer_mail($mail, $sujet, $texte, $adres,
  79         "X-Originating-IP: ".$GLOBALS['ip']))
  80                 $message = _T('form_prop_message_envoye');
  81         else
  82                 $message = _T('pass_erreur_probleme_technique');
  83
  84         return array('message_ok'=>$message);
  85 }
  86
  87 ?>