Subversion Repositories Applications.papyrus

<?

/*vim: set expandtab tabstop=4 shiftwidth=4: */

// +------------------------------------------------------------------------------------------------------+

// | PHP version 4.1                                                                                      |

// +------------------------------------------------------------------------------------------------------+

// | Copyright (C) 2004 Tela Botanica (accueil@tela-botanica.org)                                         |

// +------------------------------------------------------------------------------------------------------+

// | This library is free software; you can redistribute it and/or                                        |

// | modify it under the terms of the GNU Lesser General Public                                           |

// | License as published by the Free Software Foundation; either                                         |

// | version 2.1 of the License, or (at your option) any later version.                                   |

// |                                                                                                      |

// | This library is distributed in the hope that it will be useful,                                      |

// | but WITHOUT ANY WARRANTY; without even the implied warranty of                                       |

// | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU                                    |

// | Lesser General Public License for more details.                                                      |

// |                                                                                                      |

// | You should have received a copy of the GNU Lesser General Public                                     |

// | License along with this library; if not, write to the Free Software                                  |

// | Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA                            |

// +------------------------------------------------------------------------------------------------------+

// CVS : $Id: annuaire.php,v 1.3 2005-01-06 15:44:33 alex Exp $

/**

* programme principal du module annuaire

*

* programme principal du module annuaire

*

*@package annuaire

//Auteur original :

*@author        Alexandre Granier <alexandre@tela-botanica.org>

//Autres auteurs :

*@author        Aucun

*@copyright     Tela-Botanica 2000-2004

*@version       $Revision: 1.3 $

// +------------------------------------------------------------------------------------------------------+

*/

// +------------------------------------------------------------------------------------------------------+

// |                                            ENTETE du PROGRAMME                                       |

// +------------------------------------------------------------------------------------------------------+

include_once 'client/annuaire/configuration/ann_config.inc.php' ;

include_once ANN_CHEMIN_LIBRAIRIE.'annuaire.fonct.php' ;

if (isset($lang)) {

    include_once ANN_CHEMIN_APPLI."/langues/ann_langue_$lang.inc.php" ;

} else {

    include_once ANN_CHEMIN_APPLI.'/langues/ann_langue_fr.inc.php' ;

}

include_once 'HTML/QuickForm.php' ;

define ("ENVOIE_MAIL", 2) ;

/**

 *  Renvoie le code HTML de l'application

 *

 * @return  string  HTML

 */

function afficherContenuCorps () {

    $res = "<h1 class=\"annuaire_titre1\">".ANN_TITRE."</h1>\n" ;

    if (!$GLOBALS['AUTH']->getAuth())  {

        $res .= AUTH_formulaire_login() ;

    } else {

        // Le code javascript des cases à cocher

        $java =

            "function setCheckboxes(the_form)

            {

            var do_check=document.forms[the_form].elements['selecttotal'].checked;

            var elts            = document.forms[the_form].elements['select[]'];

            var elts_cnt = (typeof(elts.length) != 'undefined')

                                ? elts.length

                                : 0;

            if (elts_cnt) {

                for (var i = 0; i < elts_cnt; i++) {

                    elts[i].checked = do_check;

                } // Fin for

            } else {

                elts.checked = do_check;

            } // Fin if... else

            return true;

        } // Fin de la fonction 'setCheckboxes()'";

        GEN_stockerCodeScript($java) ;

        $res .= "<h2 class=\"annuaire_titre2\">".ANN_CLIQUEZ_LETTRE."</h2>\n";

        global $baseURL ;

        $baseURL = $GLOBALS['ann_url']->getURL() ;

            // S'il y a un mail a envoyé, on l'envoie

        if ($action == ENVOIE_MAIL) $res .= envoie_mail () ;

        $res .= parcourrirAnnu("") ;

    }

    return $res;

}

//==============================================================================

// FUNCTION putFooter ()

//

// Generation of footer.

//==============================================================================

function putFooter () {

  return ' ';

}

function envoie_mail () {

    global $titre, $corps, $HTTP_POST_VARS, $select, $AUTH, $db ;

    // On vérifie qu'un email aie été sélectionné

    if (!is_array($select)) {

        $res ="<div class=\"annuaire_erreur\">".ANN_VERIF_MAIL_COCHE."</divr>";

        return $res ;

    }

    if ($titre == "" || $corps == "") {

        $res = "<div class=\"annuaire_erreur\">".ANN_VERIF_TITRE."</div>\n" ;

        return $res ;

    }

    // On récupère le mail de l'expéditeur

    $req_exp = "select ".ANN_CHAMPS_MAIL." from ".ANN_ANNUAIRE." where ".ANN_CHAMPS_ID."=".$AUTH->getAuthData(ANN_CHAMPS_ID) ;

    $res_exp = $db->query($req_exp) ;

    if (DB::isError($res_exp)) {

	die ("Echec de la requete sur annuaire_tela <br>".$res_exp->getMessage()) ;

    }

    $ligne_exp = $res_exp->fetchRow(DB_FETCHMODE_ASSOC) ;

    $expediteur = $ligne_exp[ANN_CHAMPS_MAIL] ;

    $corps .= ANN_PIED_MESSAGE ;

    $liste = "" ;

    for ($i = 0; $i < count($select); $i++) {

        $requete = "select ".ANN_CHAMPS_MAIL." from ".ANN_ANUAIRE." where ".ANN_CHAMPS_ID."=".$select[$i] ;

        $resultat = $db->query($requete) ;

        if (DB::isError($resultat)) {

            die ("Echec de la requete sur annuaire_tela <br>".$resultat->getMessage()) ;

        }

        $ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC) ;

        // L'envoie du mail proprement dit

        if (!mail($ligne[ANN_CHAMPS_MAIL], stripslashes($titre), stripslashes($corps), "From: $expediteur")) {

            return "<div class=\"annuaire_erreur\">Le mail n'est pas partie</div>\n" ;

        }

        $liste .= $ligne[ANN_CHAMPS_MAIL]."\n" ;

    }

    $corps .= "\n----------------------------------------------------------------------------

                Ce message a été envoyé à :\n $liste" ;

    mail ("ANN_MAIL_ADMIN", stripslashes($titre), stripslashes($corps), "From: $expediteur");

}

/**------------------------------------------------------------------------------

* $Log: not supported by cvs2svn $

* Revision 1.2  2005/01/06 15:17:39  alex

* ajout de commentaires

*

* Revision 1.1.1.1  2005/01/03 17:27:49  alex

* Import initial

*

* Revision 1.1  2005/01/03 17:18:43  alex

* retour vers la liste des participants après un ajout.

*

*

*-- End of source  ------------------------------------------------------------*/

?>