source: spip-zone/_plugins_/_dev_/Association/exec/relance.php @ 10460

Last change on this file since 10460 was 10460, checked in by bernard.blazin@…, 14 years ago
File size: 3.0 KB
Line 
1<?php
2/**
3* Plugin Association
4*
5* Copyright (c) 2007
6* Bernard Blazin & François de Montlivault
7* http://www.plugandspip.com
8* Ce programme est un logiciel libre distribue sous licence GNU/GPL.
9* Pour plus de details voir le fichier COPYING.txt.
10
11**/
12include_spip('inc/presentation');
13function exec_relance(){
14global $connect_statut, $connect_toutes_rubriques;
15
16debut_page();
17
18$url_asso = generer_url_ecrire('association');
19$url_relance = generer_url_ecrire('relance');
20
21
22include_spip ('inc/navigation');
23
24debut_cadre_relief(  "", false, "", $titre = _T('Relance de cotisations'));
25        debut_boite_info();
26
27print('<p>Nous sommes le '.date('d-m-Y').'</p>');
28
29//On récupère les données globales
30$sujet=$_POST['sujet'];
31$message=$_POST['message'] ;
32$message=utf8_decode($message) ;
33//$message=utf8_decode($_POST['message']) ;
34$statut=$_POST['statut'];
35$email_tab=(isset($_POST["email"])) ? $_POST["email"]:array();
36$statut_tab=(isset($_POST["statut"])) ? $_POST["statut"]:array();
37$relance_tab=(isset($_POST["relance"])) ? $_POST["relance"]:array();
38$count=count ($email_tab);
39$query = "SELECT * FROM spip_asso_profil WHERE id_profil=1";
40$val = spip_query ($query) ;
41
42while ($data = mysql_fetch_assoc($val)){
43//On prépare le mail et on envoi! On peut modifier le $headers à sa guise
44$headers .= "From: ".$data['nom']." <".$data['mail'].">\n";       //expéditeur Association
45$headers .= "Reply-To: ".$data['mail']."\n";      // réponse automatique à Association
46$headers .= "X-Mailer: PHP/" . phpversion();         // mailer
47$headers .= "X-Sender: < ".$data['mail'].">\n";   } 
48$headers .= "X-Priority: 1\n";                // Message urgent !
49$headers .= "X-MSMail-Priority: High\n";         // définition de la priorité
50//$headers .= "Return-Path: < webmaster@ >\n"; // En cas d' erreurs
51//$headers .= "Errors-To: < webmaster@ >\n";    // En cas d' erreurs
52//$headers .= "cc:  \n"; // envoi en copie à …
53//$headers .= "bcc: \n";          // envoi en copie cachée à …
54//$headers .= "Content-Type: text/html; charset=iso-8859-1\n"; // Type Mime pour un message au format HTML
55
56//On envoit le mail aux destinatairex sélectionnés, on affiche le membre relancé et on change le statut de relance
57
58for ( $i=0 ; $i < $count ; $i++ )
59{
60$email = $email_tab[$i];
61$statut = $statut_tab[$i];
62$relance = $relance_tab[$i];
63
64        if ( isset ( $relance ) )
65        {
66        mail($email, $sujet, $message, $headers);
67
68        if ($statut=="echu"){
69        $sql = "UPDATE spip_asso_adherents SET statut='relance' WHERE id_adherent = '$relance' ";
70        $req = mysql_query($sql) or die('Erreur SQL !<br>'.$sql.'<br>'.mysql_error());
71        }
72        }
73}
74
75echo '<div><br><strong>'.$count;
76if ($count=1)
77{ echo ' relance effectu&eacute;e';}
78else
79{ echo ' relances effectu&eacute;es';}
80echo '</strong></div>';
81
82
83
84       
85       
86        //remettre le champ 0 à 1 et réactualiser la date
87//spip_query("UPDATE spip_adherents SET regle_le='relance',date_jour=NOW() WHERE id_ad=$id");   
88       
89
90
91
92fin_boite_info();
93         
94  fin_cadre_relief(); 
95
96fin_page();
97}
98?>
Note: See TracBrowser for help on using the repository browser.