Email aux auteurs et autres participants au forum d’un article

// IMS_MODIF Envoi d'un mail à tous les participants du forum dont on a l'email
// Envoi d'un mail aux auteurs
$prevenir_auteurs = lire_meta("prevenir_auteurs");
if ($prevenir_auteurs == "oui" AND $afficher_texte != "non") {
  $destinataires = array();
  if ($id_article = $forum_id_article) {
    $url = ereg_replace('^/', '', generer_url_article($id_article));
    $adresse_site = lire_meta("adresse_site");
    $nom_site_spip = lire_meta("nom_site");
    $url = "$adresse_site/$url";
    if ($url_site == "http://") $url_site = "";
    $courr = _T('form_forum_message_auto')."\n\n";
    $parauteur = '';
    if (strlen($auteur) > 2) {
      $parauteur = " "._T('forum_par_auteur', array('auteur' => $auteur));
      if ($email_auteur) $parauteur .= " <$email_auteur>";
    }
    $courr .= _T('forum_poste_par', array('parauteur' => $parauteur))."\n";
    $courr .= _T('forum_ne_repondez_pas')."\n";
    $courr .= "$url\n";
    $courr .= "\n\n".$titre."\n\n".textebrut(propre($texte))."\n\n$nom_site_forum\n$url_site\n";
    $sujet = "[$nom_site_spip] ["._T('forum_forum')."] $titre";
    $email_auteur_post = $email_auteur;
    if ($email_auteur) $destinataires[] = $email_auteur;
            
    // auteurs de l'article
    $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 = spip_query($query);
    while ($row = spip_fetch_array($result)) {
      $email_auteur = trim($row["email"]);
      if (strlen($email_auteur) < 3) continue;
      $destinataires[] = $email_auteur;
    }
            
    // participants au forum
    $query = "SELECT email_auteur, id_forum FROM spip_forum WHERE id_article='$id_article' AND statut='publie'";
    $result = spip_query($query);
    while ($row = spip_fetch_array($result)) {
      $email_auteur = trim($row["email_auteur"]);
      if (strlen($email_auteur) < 3) continue;
      $destinataires[] = $email_auteur;
    }
            
    // administrateur(s) de l'article
    $query = "SELECT id_rubrique FROM spip_articles WHERE id_article='$id_article'";
    $result = spip_query($query);
    if ($row = spip_fetch_array($result)) $id_rubrique = intval($row['id_rubrique']);
    $the_rubriques[] = $id_rubrique ;                                                               
    $query = "SELECT id_parent, id_rubrique FROM spip_rubriques WHERE id_rubrique='$id_rubrique'";
    $result = spip_query($query);
    $row = spip_fetch_array($result);
    $id_parent = trim($row["id_parent"]);
    while ($id_parent !=0 ){
      $the_rubriques[] = $id_parent ;
      $query = "SELECT id_parent, id_rubrique FROM spip_rubriques WHERE id_rubrique='$id_parent'";
      $result = spip_query($query);
      $row = spip_fetch_array($result);
      $id_parent = trim($row["id_parent"]);
    }
            
    // e-mail des administrateurs de la rubrique et des rubriques parentes
    foreach ($the_rubriques as $key => $id_rubrique){
      $query = "SELECT auteurs.* FROM spip_auteurs AS auteurs, spip_auteurs_rubriques AS lien ".
      "WHERE lien.id_rubrique='$id_rubrique' AND auteurs.id_auteur=lien.id_auteur ";
      $result = spip_query($query);
      while ($row = spip_fetch_array($result)) {
        $email_auteur = trim($row["email"]);
        if (strlen($email_auteur) < 3) continue;
        $destinataires[] = $email_auteur;
      }
    }
            
    // sequence de fin
    // on vide les doublons
    $destinataires = array_unique($destinataires);
    // on enlève l'auteur du message
    $the_key = array_search($email_auteur_post,$destinataires);
    if (array_key_exists($the_key,$destinataires)) unset($destinataires[$the_key]);
    // on envoie
    foreach($destinataires as $key => $adresse_email){
      envoyer_mail($adresse_email, $sujet, $courr);
    }
  }
}
//IMS_MODIF fin