spiplistes_meleuse.php

/plugins/spip-listes_1_9_2/inc/spiplistes_meleuse.php

https://github.com/genova/boyjump
PHP | 331 lines | 215 code | 53 blank | 63 comment | 39 complexity | ecd9d36e96aa2b4ed6e8b2554ee8c79b MD5 | raw file

<?php
/******************************************************************************************/
/* SPIP-Listes est un systeme de gestion de listes d'abonnes et d'envoi d'information     */
/* par email pour SPIP. http://bloog.net/spip-listes                                      */
/* Copyright (C) 2004 Vincent CARON  v.caron<at>laposte.net                               */
/*                                                                                        */
/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
/* de la Licence Publique Generale GNU publiee par la Free Software Foundation            */
/* (version 2).                                                                           */
/*                                                                                        */
/* Ce programme est distribue car potentiellement utile, mais SANS AUCUNE GARANTIE,       */
/* ni explicite ni implicite, y compris les garanties de commercialisation ou             */
/* d'adaptation dans un but specifique. Reportez-vous � la Licence Publique Generale GNU  */
/* pour plus de d�tails.                                                                  */
/*                                                                                        */
/* Vous devez avoir re�u une copie de la Licence Publique Generale GNU                    */
/* en meme temps que ce programme ; si ce n'est pas le cas, ecrivez a la                  */
/* Free Software Foundation,                                                              */
/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, Etats-Unis.                   */
/******************************************************************************************/

include_spip('inc/meta');
include_spip('inc/texte');
include_spip('inc/filtres');
include_spip('inc/acces');

include_spip('spiplistes_boutons');
include_once(_DIR_PLUGIN_SPIPLISTES.'inc/spiplistes_mail.inc.php');

// Trouver un message a envoyer 
$result_pile = spip_query("SELECT * FROM spip_courriers AS messages WHERE statut='encour' ORDER BY date ASC LIMIT 0,1");
$message_pile = spip_num_rows($result_pile);

if ($message_pile > 0){

	// Message
	$row = spip_fetch_array($result_pile);
	$titre = typo($row["titre"]);
	$texte = $row["texte"];
	$texte = stripslashes($texte);
	$message_texte = $row["message_texte"];
	
	
	$type = $row["type"];
	$id_courrier = $row["id_courrier"];
	$id_liste = $row["id_liste"];
	$email_test = $row["email_test"];
	
	$nb_emails_envoyes = 0;
	$total_abonnes = $row["total_abonnes"];
	
	$nb_emails_echec = 0;
	$nb_emails_non_envoyes = 0;
	$nb_emails['texte'] = 0;
	$nb_emails['html'] = 0;

	$debut_envoi = $row["date_debut_envoi"];

	$pied_page = "" ;
	$pied_page = pied_de_page_liste($id_liste) ;
	
	// on prepare l'email
	$nomsite = $GLOBALS['meta']['nom_site'];
	$urlsite = $GLOBALS['meta']['adresse_site'];

	$pied_page_texte="\n\n________________________________________________________________________"  ;
	$pied_page_texte.="\n\n"._T('spiplistes:editeur').$nomsite."\n"  ;
	$pied_page_texte.=$urlsite."\n";
	$pied_page_texte.="________________________________________________________________________"  ;
		
	$lang = spiplistes_langue_liste($id_liste);
	if($lang != '') $GLOBALS['spip_lang'] = $lang ;
	
	// Determiner le destinataire ou la liste destinataire
	
	//est-ce un mail de test ?
	if( email_valide($email_test) ){
		spiplistes_log( _T('spiplistes:email_test')." : ".$destinataires);
		$test = 'oui';
		$mail_collectif = 'non' ;
	} 
	else {
		//est-ce un mail collectif ? // a degager : on devrait toujours avoir une liste
		if($id_liste == 0){
			$mail_collectif = 'oui' ;
			spiplistes_log(_T('spiplistes:envoi_tous')) ;
		}
		else {
			//c'est un mail pour une liste alors ?
			$mail_collectif = 'non' ;
			$result_d = spip_query("SELECT * FROM spip_listes WHERE id_liste="._q($id_liste));
	
			if($ro = spip_fetch_array($result_d)){
				$titre_liste = $ro["titre"];
				$id = $ro["id_liste"];
				$email_liste = $ro["email_envoi"];
				spiplistes_log(_T('spiplistes:envoi_listes').$titre_liste);
			}
			else{			//erreur
				spiplistes_log(_T('spiplistes:envoi_erreur'));
			}
		}
	}
	

	// email emmeteur
	$email_webmaster = (email_valide($GLOBALS['meta']['email_defaut'])) ? $GLOBALS['meta']['email_defaut'] : $GLOBALS['meta']['email_webmaster'];
	$from = email_valide($email_liste) ? $email_liste : $email_webmaster;

	$is_from_valide = email_valide($from);         
          
	$objet= filtrer_entites($titre);
	if ($GLOBALS['meta']['spiplistes_charset_envoi']!=$GLOBALS['meta']['charset']){
		include_spip('inc/charsets');
		$pied_page = unicode2charset(charset2unicode($pied_page),$GLOBALS['meta']['spiplistes_charset_envoi']);
		$pied_page_texte = unicode2charset(charset2unicode($pied_page_texte),$GLOBALS['meta']['spiplistes_charset_envoi']);
		$from = unicode2charset(charset2unicode($from),$GLOBALS['meta']['spiplistes_charset_envoi']);
		$objet = unicode2charset(charset2unicode($objet),$GLOBALS['meta']['spiplistes_charset_envoi']);
	}
	
	// on prepare le debut de la version html
	$pageh = "<html>\n\n<body>\n\n".$texte."\n\n";
	// la fin de la version html sera generee pour chaque destinataire
  
	// on prepare la version texte
	if($message_texte !='')
		$page_ = $message_texte ;  
	else
		$page_ = spiplistes_version_texte($texte);
    

	if ($GLOBALS['meta']['spiplistes_charset_envoi']!=$GLOBALS['meta']['charset']){
		include_spip('inc/charsets');
		$pageh = unicode2charset(charset2unicode($pageh),$GLOBALS['meta']['spiplistes_charset_envoi']);
		$page_ = unicode2charset(charset2unicode($page_),$GLOBALS['meta']['spiplistes_charset_envoi']);
	}

	$page_.= $pied_page_texte;

	$remplacements = array("&#8216;"=>"'","&#8217;"=>"'","&#8220;"=>'"',"&#8221;"=>'"');
	if ($GLOBALS['meta']['spiplistes_charset_envoi'] <> 'utf-8') {
		$objet = strtr($objet, $remplacements);
		$page_ = strtr($page_, $remplacements);
		$pied_page = strtr($pied_page, $remplacements);
		$pied_page_texte = strtr($pied_page_texte, $remplacements);
		$from = strtr($from, $remplacements);
 	}
	
	$email_a_envoyer['texte'] = new phpMail('', $objet, '',$page_, $GLOBALS['meta']['spiplistes_charset_envoi']);
	$email_a_envoyer['texte']->From = $from ; 
	$email_a_envoyer['texte']->AddCustomHeader("Errors-To: ".$from); 
	$email_a_envoyer['texte']->AddCustomHeader("Reply-To: ".$from); 
	$email_a_envoyer['texte']->AddCustomHeader("Return-Path: ".$from); 
	$email_a_envoyer['texte']->SMTPKeepAlive = true;
	
	$email_a_envoyer['html'] = new phpMail('', $objet, $pageh, $page_, $GLOBALS['meta']['spiplistes_charset_envoi']);
	$email_a_envoyer['html']->From = $from ; 
	$email_a_envoyer['html']->AddCustomHeader("Errors-To: ".$from); 
	$email_a_envoyer['html']->AddCustomHeader("Reply-To: ".$from); 
	$email_a_envoyer['html']->AddCustomHeader("Return-Path: ".$from); 	
	$email_a_envoyer['html']->SMTPKeepAlive = true;

	spiplistes_log(_T('spiplistes:email_reponse').$from."\n"._T('spiplistes:contacts')." : ".$total_abonnes) ;
	if($total_abonnes){

		spiplistes_log(_T('spiplistes:message'). $titre);

		$limit=$GLOBALS['meta']['spiplistes_lots']; // nombre de messages envoyes par boucles.	
		
		//chopper un lot 
		
		if($test == 'oui')
			$result_inscrits = spip_query("SELECT id_auteur, nom, email FROM spip_auteurs WHERE email ="._q($email_test)." ORDER BY id_auteur ASC");
		else{
			//$result_inscrits = spip_query("SELECT a.nom, a.id_auteur, a.email, a.extra FROM spip_auteurs AS a, spip_auteurs_courriers AS b WHERE a.id_auteur=b.id_auteur AND b.id_courrier = "._q($id_courrier)." ORDER BY a.id_auteur ASC  LIMIT 0,".intval($limit));
			// un id pour ce processus
			$id_process = substr(creer_uniqid(),0,5);
			spip_query("UPDATE spip_auteurs_courriers SET etat="._q($id_process)." WHERE etat='' AND id_courrier = "._q($id_courrier)." LIMIT ".intval($limit));
			$result_inscrits = spip_query(
				"SELECT a.nom, a.id_auteur, a.email 
				FROM spip_auteurs AS a, spip_auteurs_courriers AS b 
				WHERE a.id_auteur=b.id_auteur AND b.id_courrier = "._q($id_courrier)." AND etat="._q($id_process)."
				ORDER BY a.id_auteur ASC");
		}
			
		$liste_abonnes = spip_num_rows($result_inscrits);
		if($liste_abonnes > 0){

			// ne sert qu'a laffichage
			$debut = $nb_emails_envoyes + $nb_emails_non_envoyes ; // ??
			spiplistes_log("envois effectues : ".$debut.", pas : ".$limit.", nb:".$liste_abonnes) ;	
#	spip_timer();
			//envoyer le lot d'email selectionne
			while ($row2 = spip_fetch_array($result_inscrits)) {
				$str_temp = " ";
				$id_auteur = $row2['id_auteur'] ;

				//indiquer eventuellement le debut de l'envoi
				if($debut_envoi=="0000-00-00 00:00:00" AND $test !='oui') {
					spip_query("UPDATE spip_courriers SET date_debut_envoi=NOW() WHERE id_courrier="._q($id_courrier)); 
					$debut_envoi = true; // ne pas faire 20 update au premier lot :)
				}
		
				$abo = spip_fetch_array(spip_query("SELECT `spip_listes_format` FROM `spip_auteurs_elargis` WHERE `id_auteur`=$id_auteur")) ;		
				
				$format_abo = $abo["spip_listes_format"];

				$nom_auteur = $row2["nom"];
				$email = $row2["email"];
				
				$str_temp .= $nom_auteur."(".$format_abo.") - $email";
				$total=$total+1;
				unset ($cookie);

				

				if ( ($format_abo == 'texte') 
				  OR ($format_abo == 'html') ) {
					$cookie = creer_uniqid();
					spip_query("UPDATE spip_auteurs SET cookie_oubli ="._q($cookie)." WHERE email ="._q($email));				

					if ($is_from_valide){
						$body_html = $pageh.$pied_page."<a href=\"".generer_url_public('abonnement','d='.$cookie)."\">"._T('spiplistes:abonnement_mail')."</a>\n\n</body></html>";
						$body_text = $page_ ."\n\n"
							  . filtrer_entites(_T('spiplistes:abonnement_mail'))."\n"
							  . filtrer_entites(generer_url_public('abonnement','d='.$cookie))."\n\n"  ;
						
						if ($format_abo == 'html')  {// email HTML ------------------
							// desabo pied de page HTML
							$email_a_envoyer[$format_abo]->Body = $body_html;
							$email_a_envoyer[$format_abo]->AltBody = $body_text;
						} else {						// email TXT -----------------------
							// desabo pied de page texte
              $email_a_envoyer[$format_abo]->Body = $body_text;
						}

						$email_a_envoyer[$format_abo]->SetAddress($email,$nom_auteur);

						
						if ($email_a_envoyer[$format_abo]->send()) {
							spip_query("DELETE FROM spip_auteurs_courriers WHERE id_auteur="._q($id_auteur)." AND id_courrier="._q($id_courrier));				
							$str_temp .= "  [OK]";
							$nb_emails_envoyes++;
							$nb_emails[$format_abo]++;
						}
						else {
							$str_temp .= _T('spiplistes:erreur_mail');
							$nb_emails_echec++;
       			}
					}
					else {
						$str_temp .= _T('spiplistes:sans_adresse');
						$nb_emails_echec++;
					}
				}
				else {  // email fin TXT /HTML  -----------------------------------------
					$nb_emails_non_envoyes++; //desabonnes 
					spip_query("DELETE FROM spip_auteurs_courriers WHERE id_auteur="._q($id_auteur)." AND id_courrier="._q($id_courrier));	
					$str_temp .= _L('pas abonne en ce moment');
				} /* fin abo*/
				spiplistes_log($str_temp);
			}/* fin while */
			
			// si c'est un test on repasse en redac
			if ($test== 'oui') {
				spip_query("UPDATE spip_courriers SET statut='redac', email_test='', total_abonnes=0 WHERE id_courrier="._q($id_courrier));
				spiplistes_log('repasse en redac');
			}
			$email_a_envoyer['texte']->SmtpClose();
			$email_a_envoyer['html']->SmtpClose();
		} 
		else {   /* fin liste abonnes */	
			// archiver
			spiplistes_log("UPDATE spip_courriers SET statut='publie' WHERE id_courrier="._q($id_courrier));
			spip_query("UPDATE spip_courriers SET statut='publie' WHERE id_courrier="._q($id_courrier));
			$fin_envoi="oui";
		}
	}
	else {
		//aucun destinataire connu pour ce message
		spiplistes_log(_T('spiplistes:erreur_sans_destinataire')."---"._T('spiplistes:envoi_annule'));
		spip_query("UPDATE spip_courriers SET titre="._q(_T('spiplistes:erreur_destinataire')).", statut='publie' WHERE id_courrier="._q($id_courrier)); 
	}
#echo 	spip_timer();
	// faire le bilan apres l'envoi d'un lot en esperant que les differents processus simultanes se telescopent pas trop
	if($test != 'oui'){
		$stats = spip_fetch_array(spip_query("SELECT nb_emails_envoyes,nb_emails_non_envoyes,nb_emails_echec,nb_emails_texte,nb_emails_html FROM spip_courriers AS messages WHERE id_courrier = $id_courrier"));
		$nb_emails_envoyes = $nb_emails_envoyes + $stats['nb_emails_envoyes'] ;
		spip_query("UPDATE spip_courriers SET nb_emails_envoyes="._q($nb_emails_envoyes)." WHERE id_courrier="._q($id_courrier)); 
	   if($nb_emails_non_envoyes > 0){
			$nb_emails_non_envoyes = $nb_emails_non_envoyes + $stats['nb_emails_non_envoyes'] ;
			spip_query("UPDATE spip_courriers SET nb_emails_non_envoyes="._q($nb_emails_non_envoyes)." WHERE id_courrier="._q($id_courrier));
	    }
		if($nb_emails_echec > 0){
			$nb_emails_echec = $nb_emails_echec + $stats['nb_emails_echec'] ;
			spip_query("UPDATE spip_courriers SET nb_emails_echec="._q($nb_emails_echec)." WHERE id_courrier="._q($id_courrier)); 
	    }
		$nb_emails['texte'] = $nb_emails['texte'] + $stats['nb_emails_texte'] ;
		$nb_emails['html'] = $nb_emails['html'] + $stats['nb_emails_html'] ;
		spip_query("UPDATE spip_courriers SET nb_emails_texte="._q($nb_emails['texte'])." WHERE id_courrier="._q($id_courrier)); 
	    spip_query("UPDATE spip_courriers SET nb_emails_html="._q($nb_emails['html'])." WHERE id_courrier="._q($id_courrier)); 
		if($fin_envoi=="oui")
			spip_query("UPDATE spip_courriers SET date_fin_envoi=NOW() WHERE id_courrier="._q($id_courrier)); 
	}
}
else {
	spiplistes_log(_T('spiplistes:envoi_fini'))   ;
}	/* flag pile*/



/******************************************************************************************/
/* SPIP-Listes est un systeme de gestion de listes d'abonnes et d'envoi d'information     */
/* par email pour SPIP. http://bloog.net/spip-listes              					      */
/* Copyright (C) 2004 Vincent CARON  v.caron<at>laposte.net                               */
/*                                                     								      */
/* Ce programme est libre, vous pouvez le redistribuer et/ou le modifier selon les termes */
/* de la Licence Publique Generale GNU publiee par la Free Software Foundation            */
/* (version 2).                                                                           */
/*                                                                                        */
/* Ce programme est distribue car potentiellement utile, mais SANS AUCUNE GARANTIE,       */
/* ni explicite ni implicite, y compris les garanties de commercialisation ou             */
/* d'adaptation dans un but specifique. Reportez-vous � la Licence Publique Generale GNU  */
/* pour plus de d�tails.                                                                  */
/*                                                                                        */
/* Vous devez avoir re�u une copie de la Licence Publique Generale GNU                    */
/* en meme temps que ce programme ; si ce n'est pas le cas, ecrivez a la                  */
/* Free Software Foundation,                                                              */
/* Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307, Etats-Unis.                   */
/******************************************************************************************/
?>