";
return $res ;
}
/** function carto_formulaire ()
*
*
*
* @return string HTML
*/
function carto_formulaire($titre_mail="", $corps="") {
$res = "
".INS_ENVOYER_MAIL."
\n";
$res .= INS_SUJET.' :
'."\n"
.INS_MESSAGE.' :
'."\n";
$res.=' '."\n";
return $res ;
}
/**
* Renvoie le code HTML de la liste des inscrits
* en fonction de la requete passé en parametre
*
* @return Renvoie le code HTML de la liste des inscrits
*/
function listes_inscrit($requete, $select, $url) {
$res='';
$resultat= $GLOBALS['ins_db']->query($requete);
if (DB::isError($resultat)) {
die ($resultat->getMessage().' '.$resultat->getDebugInfo()) ;
}
while ($ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC)) {
$res.=''."\n".
$ligne[INS_CHAMPS_NOM].' '.$ligne[INS_CHAMPS_PRENOM].' '.
$ligne[INS_CHAMPS_CODE_POSTAL].' '.$ligne[INS_CHAMPS_VILLE].' '.
date("d.m.Y", strtotime($ligne[INS_CHAMPS_DATE_INSCRIPTION])).'
'."\n";
}
$res .= ''."\n";
$res .= ' '."\n";
return $res ;
}
/** envoie_mail()
*
*
* @return envoie l'email
*/
function carto_envoie_mail() {
$requete = 'SELECT '.INS_CHAMPS_MAIL.' FROM '.INS_ANNUAIRE.' WHERE '.INS_CHAMPS_ID.'='.$GLOBALS['AUTH']->getAuthData(INS_CHAMPS_ID);
$resultat = $GLOBALS['ins_db']->query($requete);
if (DB::isError($resultat)) {
die ($resultat->getMessage().' '.$resultat->getDebugInfo());
}
$ligne = $resultat->fetchRow(DB_FETCHMODE_ASSOC);
$entete = "From: <".$ligne[INS_CHAMPS_MAIL].">\n";
$GLOBALS['corps'] .= INS_TEXTE_FIN_MAIL;
$GLOBALS['corps'] = stripslashes($GLOBALS['corps']) ;
$liste = "" ;
foreach ($GLOBALS['select'] as $key => $value) {
mail ($value, stripslashes($GLOBALS['titre_mail']), $GLOBALS['corps'] , $entete) ;
$liste .= $value."\n" ;
}
$GLOBALS['corps'] .= "\n----------------------------------------------------------------------------";
$GLOBALS['corps'] .= "\n".INS_MESSAGE_ENVOYE_A." :\n $liste" ;
mail(INS_MAIL_ADMIN, stripslashes(INS_SURVEILLANCE_ENVOI_MAIL.$GLOBALS['titre_mail']), $GLOBALS['corps'], $entete);
$GLOBALS['corps'] = '';
$GLOBALS['titre_mail'] = '';
}
//-- Fin du code source ------------------------------------------------------------
/*
* $Log: not supported by cvs2svn $
* Revision 1.1 2005/09/22 14:02:49 ddelon
* nettoyage annuaire et php5
*
* Revision 1.2 2005/09/22 13:30:49 florian
* modifs pour compatibilité XHTML Strict + corrections de bugs (mais ya encore du boulot!!)
*
* Revision 1.1 2004/12/15 13:30:20 alex
* version initiale
*
*
*/
?>