Subversion Repositories Applications.papyrus

Rev

Blame | Last modification | View Log | RSS feed

<?php

// +--------------------------------------------------------------------+
// | mail_tous.php                                                      |
// +--------------------------------------------------------------------+
// | Copyright (c) 2002 Tela Botanica                                                           |
// +--------------------------------------------------------------------+
// | Application permetant d'envoyer un mail à tous                     |
// +--------------------------------------------------------------------+
// | Auteur : Alexandre Granier <alexandre@tela-botanica.org>                   |
// +--------------------------------------------------------------------+
//
// $Id: mail_tous.php,v 1.1.1.1 2005-01-03 17:27:49 alex Exp $

include_once "php/lib/pack.lib.gen.php" ;
include_once "php/auth_object_login.php" ;

function putFrame() {
    
    // configuration
    global $GS_GLOBAL ;
    global $objet, $corps, $annuaire_LABEL_STATUT, $SERVER_ADMIN ;
    global $action ;
    
    $url = "document.php?project=".$GS_GLOBAL['project']."&locale=".$GS_GLOBAL['locale']."&doc=".$GS_GLOBAL['document_row']->D_NAME ;
    $url .= "&page=".$GS_GLOBAL['current_page_ndx'] ;
    
    $link = $GS_GLOBAL['link'] ;
    $annu_table = "annuaire_tela" ;
    $champs_mail = "U_MAIL" ;
    
    // Identification
    $loginObj = new authLoginClass() ;
    if (!gs_manageAuthWithObject ($GS_GLOBAL['mysql_db'], $GS_GLOBAL['link'], $loginObj, &$outputText))  {
                $res = $outputText ;
        } else {
    
        // Entete
        confirmation() ;
        $corps_debut = "RESEAU TELA BOTANICA - Le ".date("j/m/Y").
                        "\n\nBonjour,\n"."\n\nCordialement,\n-------------------\nTela Botanica le réseau des botanistes francophones\naccueil@tela-botanica.org\nhttp://www.tela-botanica.org\n";  
    
        $res = "<tr class=\"titlePage\"><td>Envoi d'un mail &agrave; tous les membres</td></tr>\n" ;
        $res .= "<tr><td>&nbsp;</td></tr>\n" ;
        
        if ($action == "go") $res .= envoie_mail() ;
        
        // formulaire
        $res .= "<tr><td><form action=\"$url&action=go\" method=\"post\"><table width=\"100%\">\n" ;
        $res .= "<tr><td class=\"insLabel\">" ;
        $res .= "Objet&nbsp;:&nbsp;</td><td><input size=\"91\" name=\"objet\" type=\"text\" class=\"insInputForm\"></td></tr>\n" ;
        $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" ;
        $res .= "<tr><td></td><td><input type=\"submit\" class=\"texte_tb\" value=\"envoyer\"" ;
        $res .= " onclick=\"javascript:return confirmLink(this, 'Etes-vous sur de vouloir envoyer ce message !!');\"" ;
        $res .= "></td></tr>\n" ;
        $res .= "</table></form></td></tr>\n" ;
        
    }
return $res ;
}

include_once ("Mail.php");

// envoie le mail à tous


function envoie_mail() 
{
    global $objet, $corps, $annuaire_LABEL_STATUT, $SERVER_ADMIN, $GS_GLOBAL ;
    
    $annuaire = "annuaire_tela" ;
    $champs_mail = "U_MAIL" ;
    
    $headers['From']    = "accueil@tela-botanica.org" ;
    $headers['Subject'] = stripslashes($objet) ;

    $corps = stripslashes($corps) ;
    
    $requete = cxt_getVariable($GS_GLOBAL['mysql_db'], $GS_GLOBAL['link'], "requete_mail_tous") ;
    cxt_clear($GS_GLOBAL['mysql_db'], $GS_GLOBAL['link']) ;

    $resultat = mysql_query($requete) or die ("echec") ;
    
    while ($ligne = mysql_fetch_object($resultat)) {
        if (!mail($ligne->U_MAIL, $headers['Subject'], $corps, "From: ".$headers['From'])) {
        return "<tr><td>Une erreur s'est produite:<br>".$mail_object->getMessage()."</td></tr>\n" ;
        }
    }
    
    
    return "<tr><td class=\"titlePage\">Le mail est parti !</td></tr>\n";

}
?>