Subversion Repositories Applications.papyrus

Rev

Rev 448 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 448 Rev 679
Line 17... Line 17...
17 
// |                                                                                                      |
 17 
// |                                                                                                      |
18 
// | You should have received a copy of the GNU Lesser General Public                                     |
 18 
// | You should have received a copy of the GNU Lesser General Public                                     |
19 
// | License along with this library; if not, write to the Free Software                                  |
 19 
// | License along with this library; if not, write to the Free Software                                  |
20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
 20 
// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |
21 
// +------------------------------------------------------------------------------------------------------+
 21 
// +------------------------------------------------------------------------------------------------------+
22 
// CVS : $Id: mail_tous.php,v 1.1 2005-09-22 14:02:49 ddelon Exp $
 22 
// CVS : $Id: mail_tous.php,v 1.2 2006-01-02 09:51:03 alexandre_tb Exp $
23 
/**
 23 
/**
24 
* Permet d'envoie un mail à une sélection dans l'annuaire
 24 
* Permet d'envoie un mail à une sélection dans l'annuaire
25 
*
25 
*
26 
*
 26 
*
27 
*@package annuaire
 27 
*@package annuaire
28 
//Auteur original :
 28 
//Auteur original :
29 
*@author        Alexandre Granier <alexandre@tela-botanica.org>
 29 
*@author        Alexandre Granier <alexandre@tela-botanica.org>
30 
//Autres auteurs :
 30 
//Autres auteurs :
31 
*@author        Aucun
 31 
*@author        Aucun
32 
*@copyright     Tela-Botanica 2000-2004
 32 
*@copyright     Tela-Botanica 2000-2004
33 
*@version       $Revision: 1.1 $
 33 
*@version       $Revision: 1.2 $
34 
// +------------------------------------------------------------------------------------------------------+
 34 
// +------------------------------------------------------------------------------------------------------+
35 
*/
 35 
*/
Line 36... Line 36...
36 
 
 36 
 
37 
// +------------------------------------------------------------------------------------------------------+
 37 
// +------------------------------------------------------------------------------------------------------+
Line 42... Line 42...
42
42
43 
    // configuration
 43 
    // configuration
44 
    global $objet, $corps, $annuaire_LABEL_STATUT, $SERVER_ADMIN ;
 44 
    global $objet, $corps, $annuaire_LABEL_STATUT, $SERVER_ADMIN ;
Line 45... Line 45...
45 
    global $action ;
 45 
    global $action ;
46
- 
 
47 
    $url = $GLOBALS['ann_url']->getURL() ;
 - 
 
48
- 
 
Line 49... Line 46...
49 
    $annu_table = "annuaire_tela" ;
 46
Line 50... Line 47...
50 
    $champs_mail = "U_MAIL" ;
 47 
    $url = $GLOBALS['ins_url']->getURL() ;
- 
 
 48 
 
- 
 
 49 
    // Entete
51 
 
 50
Line 52... Line 51...
52 
    // Entete
 51 
    $corps_debut = "RESEAU TELA BOTANICA - Le ".date("j/m/Y").
53
52 
                    "\n\nBonjour,\n"."\n\nCordialement,\n-------------------\n".
54 
    $corps_debut = "RESEAU TELA BOTANICA - Le ".date("j/m/Y").
 53 
                    "Tela Botanica le réseau des botanistes francophones\n".
55 
                    "\n\nBonjour,\n"."\n\nCordialement,\n-------------------\nTela Botanica le réseau des botanistes francophones\naccueil@tela-botanica.org\nhttp://www.tela-botanica.org\n";
54 
                    "accueil@tela-botanica.org\nhttp://www.tela-botanica.org\n";
56 
 
 55 
 
57 
    $res = "<h1>Envoi d'un mail &agrave; tous les membres</h1>\n" ;
 56 
    $res = "<h1>Envoi d'un mail &agrave; tous les membres</h1>\n" ;
58
57 
 
59 
    if ($_GET['action'] == ANN_MAIL_TOUS_ENVOIE) $res .= envoie_mail_selection() ;
 58 
    if ($_GET['action'] == ANN_MAIL_TOUS_ENVOIE) $res .= envoie_mail_selection() ;
60
59 
 
- 
 
 60 
    // formulaire
61 
    // formulaire
 61 
    $res .= "<div><form action=\"$url&action=".ANN_MAIL_TOUS_ENVOIE."\" method=\"post\"><table>\n" ;
62 
    $res .= "<div><form action=\"$url&action=".ANN_MAIL_TOUS_ENVOIE."\" method=\"post\"><table>\n" ;
 62 
    $res .= "<tr><td>" ;
63 
    $res .= "<tr><td class=\"insLabel\">" ;
 63 
    $res .= "Objet&nbsp;:&nbsp;</td><td><input size=\"91\" name=\"objet\" type=\"text\"></td></tr>\n" ;
64 
    $res .= "Objet&nbsp;:&nbsp;</td><td><input size=\"91\" name=\"objet\" type=\"text\" class=\"insInputForm\"></td></tr>\n" ;
 64 
    $res .= '<tr><td>Corps&nbsp;:&nbsp;</td><td><textarea name="corps" cols="90" rows="30">'.
Line 65... Line 65...
65 
    $res .= "<tr><td class=\"insLabel\">Corps&nbsp;:&nbsp;</td><td><textarea name=\"corps\" cols=\"90\" rows=\"30\" class=\"insInputForm\">$corps_debut</textarea></td></tr>\n" ;
 65 
    			$corps_debut.'</textarea></td></tr>'."\n" ;
Line 76... Line 76...
76 
// envoie le mail à tous
 76 
// envoie le mail à tous
Line 77... Line 77...
77 
 
 77 
 
78 
 
 78 
 
79 
function envoie_mail_selection()
- 
 
80 
{
 - 
 
81 
    global $objet, $corps, $annuaire_LABEL_STATUT, $SERVER_ADMIN, $GS_GLOBAL ;
 - 
 
82
- 
 
83 
    $annuaire = "annuaire_tela" ;
 - 
 
84 
    $champs_mail = "U_MAIL" ;
 - 
 
85
- 
 
Line -... Line 79...
- 
 
 79 
function envoie_mail_selection()
- 
 
 80 
{
- 
 
 81 
 
86 
    $headers['From']    = "accueil@tela-botanica.org" ;
 82 
    $headers['From']    = INS_MAIL_ADMIN_APRES_INSCRIPTION ;
Line 87... Line 83...
87 
    $headers['Subject'] = stripslashes($objet) ;
 83 
    $headers['Subject'] = stripslashes($_REQUEST['objet']) ;
88 
 
 84 
 
Line 89... Line 85...
89 
    $corps = stripslashes($corps) ;
 85 
    $corps = stripslashes($_REQUEST['corps']) ;
Line 90... Line 86...
90
86
91 
    $requete = $_SESSION['requete_mail_tous'] ;
 87 
    $requete = $_SESSION['requete_mail_tous'] ;
92 
    unset ($_SESSION['requete_mail_tous']) ;
 88 
    unset ($_SESSION['requete_mail_tous']) ;
93 
 
 89 
 
94 
    $resultat = mysql_query($requete) or die ("echec") ;
 90 
    $resultat = $GLOBALS['ins_db']->query($requete) ;
Line 95... Line 91...
95
91
96 
    while ($ligne = mysql_fetch_object($resultat)) {
 - 
 
97 
        if (!mail($ligne->U_MAIL, $headers['Subject'], $corps, "From: ".$headers['From'])) {
 92 
    while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
- 
 
 93 
        if (!mail($ligne[INS_CHAMPS_MAIL], $headers['Subject'], $corps, "From: ".$headers['From'])) {
- 
 
 94 
        	return "<div>Une erreur s'est produite:<br>".$mail_object->getMessage()."</div>\n" ;
- 
 
 95 
        }
- 
 
 96 
    }
- 
 
 97
98 
        return "<tr><td>Une erreur s'est produite:<br>".$mail_object->getMessage()."</td></tr>\n" ;
 98 
    return "<div>Le mail est parti !</div>\n";