source: trunk/spip/esqueleto-redcta/plugins/zabomailmans/balise/formulaire_abomailman.php @ 501

Last change on this file since 501 was 76, checked in by sebas, 16 years ago

plugin de abonomailman para enviar boletin electronico
basado sobre los cambios de sebas para arreglar los envios.

  • Property svn:executable set to *
File size: 1.2 KB
Line 
1<?php
2/*
3 * Abomailmans
4 * MaZiaR - NetAktiv
5 * tech@netaktiv.com
6 * Printemps 2007
7*/
8
9if (!defined("_ECRIRE_INC_VERSION")) return;    #securite
10
11
12function balise_FORMULAIRE_ABOMAILMAN($p) {
13         return calculer_balise_dynamique($p,'FORMULAIRE_ABOMAILMAN', array('id_abomailman'));}
14
15function balise_FORMULAIRE_ABOMAILMAN_stat($args, $filtres) {
16        return (array($args[1])); }
17
18function balise_FORMULAIRE_ABOMAILMAN_dyn($id_abomailman) {
19        include_spip ("inc/abomailmans");
20
21        $nom = _request('nom');
22        $prenom = _request('prenom');
23        $email = _request('email');
24        $listes = _request('listes', true);
25        $abonnement = _request('abonnement');
26
27
28        if ($abonnement && $email) {
29                foreach($listes as $liste_join) {
30                        if (abomailman_mail ($prenom . " " . $nom, $email, $liste_join, $liste_join)) {
31                                $liste_confirme  .= _T("abomailmans:message_confirmation") ." <b>". $liste_join ."</b><br>";
32                        }               
33                 }
34                $rslt = array(
35                        "id_abomailman" => "NULL",
36                        "message"               => $liste_confirme
37                );
38        }
39        else {
40                if ($abonnement && !$email) $message =_T("abomailmans:email_oublie");
41                $rslt = array(
42                        "id_abomailman" => $id_abomailman,
43                        "message"               => $message
44                );
45        }
46        return array('formulaires/formulaire_abomailman',0, $rslt);
47}
48
49
50
51?>
Note: See TracBrowser for help on using the repository browser.