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

Last change on this file since 10446 was 10446, checked in by fdm@…, 14 years ago

Ajouté un répertoire à distance

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($_POST['message']) ;
33$statut=$_POST['statut'];
34$email_tab=(isset($_POST["email"])) ? $_POST["email"]:array();
35$statut_tab=(isset($_POST["statut"])) ? $_POST["statut"]:array();
36$relance_tab=(isset($_POST["relance"])) ? $_POST["relance"]:array();
37$count=count ($email_tab);
38$query = "SELECT * FROM spip_asso_profil WHERE id_profil=1";
39$val = spip_query ($query) ;
40
41while ($data = mysql_fetch_assoc($val)){
42//On prépare le mail et on envoi! On peut modifier le $headers à sa guise
43$headers .= "From: ".$data['nom']." <".$data['mail'].">\n";       //expéditeur Association
44$headers .= "Reply-To: ".$data['mail']."\n";      // réponse automatique à Association
45$headers .= "X-Mailer: PHP/" . phpversion();         // mailer
46$headers .= "X-Sender: < ".$data['mail'].">\n";   } 
47$headers .= "X-Priority: 1\n";                // Message urgent !
48$headers .= "X-MSMail-Priority: High\n";         // définition de la priorité
49//$headers .= "Return-Path: < webmaster@ >\n"; // En cas d' erreurs
50//$headers .= "Errors-To: < webmaster@ >\n";    // En cas d' erreurs
51//$headers .= "cc:  \n"; // envoi en copie à …
52//$headers .= "bcc: \n";          // envoi en copie cachée à …
53//$headers .= "Content-Type: text/html; charset=iso-8859-1\n"; // Type Mime pour un message au format HTML
54
55//On envoit le mail aux destinatairex sélectionnés, on affiche le membre relancé et on change le statut de relance
56
57for ( $i=0 ; $i < $count ; $i++ )
58{
59$email = $email_tab[$i];
60$statut = $statut_tab[$i];
61$relance = $relance_tab[$i];
62
63        if ( isset ( $relance ) )
64        {
65        mail($email, $sujet, $message, $headers);
66
67        if ($statut=="echu"){
68        $sql = "UPDATE spip_asso_adherents SET statut='relance' WHERE id_adherent = '$relance' ";
69        $req = mysql_query($sql) or die('Erreur SQL !<br>'.$sql.'<br>'.mysql_error());
70        }
71        }
72}
73
74echo '<div><br><strong>'.$count;
75if ($count=1)
76{ echo ' relance effectu&eacute;e';}
77else
78{ echo ' relances effectu&eacute;es';}
79echo '</strong></div>';
80
81
82
83       
84       
85        //remettre le champ 0 à 1 et réactualiser la date
86//spip_query("UPDATE spip_adherents SET regle_le='relance',date_jour=NOW() WHERE id_ad=$id");   
87       
88
89
90
91fin_boite_info();
92         
93  fin_cadre_relief(); 
94
95fin_page();
96}
97?>
Note: See TracBrowser for help on using the repository browser.