Subversion Repositories Applications.papyrus

Rev

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

Rev 1688 Rev 1797
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.2 2006-01-02 09:51:03 alexandre_tb Exp $
22
// CVS : $Id: mail_tous.php,v 1.2.6.1 2008-02-08 08:26:52 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.2 $
33
*@version       $Revision: 1.2.6.1 $
34
// +------------------------------------------------------------------------------------------------------+
34
// +------------------------------------------------------------------------------------------------------+
35
*/
35
*/
Line 36... Line 36...
36
 
36
 
37
// +------------------------------------------------------------------------------------------------------+
37
// +------------------------------------------------------------------------------------------------------+
38
// |                                            ENTETE du PROGRAMME                                       |
38
// |                                            ENTETE du PROGRAMME                                       |
Line 39... Line 39...
39
// +------------------------------------------------------------------------------------------------------+
39
// +------------------------------------------------------------------------------------------------------+
Line 40... Line -...
40
 
-
 
41
function putFrame() {
-
 
42
    
-
 
43
    // configuration
40
 
44
    global $objet, $corps, $annuaire_LABEL_STATUT, $SERVER_ADMIN ;
41
function putFrame() {
Line 45... Line 42...
45
    global $action ;
42
    
Line 46... Line 43...
46
    
43
   
47
    $url = $GLOBALS['ins_url']->getURL() ;
-
 
48
 
-
 
49
    // Entete
-
 
Line 50... Line 44...
50
    
44
    $url = $GLOBALS['ins_url']->getURL() ;
Line 51... Line 45...
51
    $corps_debut = "RESEAU TELA BOTANICA - Le ".date("j/m/Y").
45
 
Line 52... Line 46...
52
                    "\n\nBonjour,\n"."\n\nCordialement,\n-------------------\n".
46
    // Entete
-
 
47
    
53
                    "Tela Botanica le réseau des botanistes francophones\n".
48
    $corps_debut = "";  
54
                    "accueil@tela-botanica.org\nhttp://www.tela-botanica.org\n";  
49
 
55
 
50
    $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" ;
51
 
57
 
52
    if ($_GET['action'] == ANN_MAIL_TOUS_ENVOIE) $res .= envoie_mail_selection() ;
58
    if ($_GET['action'] == ANN_MAIL_TOUS_ENVOIE) $res .= envoie_mail_selection() ;
53
 
59
 
54
    // formulaire
60
    // formulaire
55
    $GLOBALS['ins_url']->addQueryString ('action', ANN_MAIL_TOUS_ENVOIE);
61
    $res .= "<div><form action=\"$url&action=".ANN_MAIL_TOUS_ENVOIE."\" method=\"post\"><table>\n" ;
56
    $res .= '<div><form action="'.$GLOBALS['ins_url']->getURL().'" method="post"><table>'."\n" ;
62
    $res .= "<tr><td>" ;
-
 
-
 
57
    $res .= '<tr><td>' ;
63
    $res .= "Objet&nbsp;:&nbsp;</td><td><input size=\"91\" name=\"objet\" type=\"text\"></td></tr>\n" ;
58
    $res .= 'Objet&nbsp;:&nbsp;</td><td><input size="91" name="objet" type="text" /></td></tr>'."\n" ;
64
    $res .= '<tr><td>Corps&nbsp;:&nbsp;</td><td><textarea name="corps" cols="90" rows="30">'.
59
    $res .= '<tr><td>Corps&nbsp;:&nbsp;</td><td><textarea name="corps" cols="90" rows="30">'.
Line 65... Line 60...
65
    			$corps_debut.'</textarea></td></tr>'."\n" ;
60
    			$corps_debut.'</textarea></td></tr>'."\n" ;
Line 98... Line 93...
98
    return "<div>Le mail est parti !</div>\n";
93
    return "<div>Le mail est parti !</div>\n";
99
}
94
}
100
/* +--Fin du code ----------------------------------------------------------------------------------------+
95
/* +--Fin du code ----------------------------------------------------------------------------------------+
101
*
96
*
102
* $Log: not supported by cvs2svn $
97
* $Log: not supported by cvs2svn $
-
 
98
* Revision 1.2  2006/01/02 09:51:03  alexandre_tb
-
 
99
* généralisation du code et intégration au bottin
-
 
100
*
103
* +-- Fin du code ----------------------------------------------------------------------------------------+
101
* +-- Fin du code ----------------------------------------------------------------------------------------+
104
*/
102
*/
105
?>
103
?>