source: trunk/spip/esqueleto-redcta/plugins/zabomailmans/balise/formulaire_abomailman_une_liste.php @ 76

Last change on this file since 76 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*/
8if (!defined("_ECRIRE_INC_VERSION")) return;    #securite
9
10
11function balise_FORMULAIRE_ABOMAILMAN_UNE_LISTE($p) {
12         return calculer_balise_dynamique($p,'FORMULAIRE_ABOMAILMAN_UNE_LISTE', array('id_abomailman'));}
13
14function balise_FORMULAIRE_ABOMAILMAN_UNE_LISTE_stat($args, $filtres) {
15        return (array($args[1])); }
16
17function balise_FORMULAIRE_ABOMAILMAN_UNE_LISTE_dyn($id_abomailman) {
18        include_spip ("inc/abomailmans");
19
20        $nom = _request('nom');
21        $prenom = _request('prenom');
22        $email = _request('email');
23        $listes = _request('listes', true);
24        $abonnement = _request('abonnement');
25
26        if ($abonnement && $email) {
27                foreach($listes as $liste_join) {
28                        if (abomailman_mail ($prenom . " " . $nom, $email, $liste_join, $liste_join)) {
29                                $liste_confirme  .= _T("abomailmans:message_confirmation") ." <b>". $liste_join ."</b><br>";
30                        }               
31                 }
32
33                $rslt = array(
34                        "id_abomailman" => "NULL",
35                        "liste_confirme"                => $liste_confirme
36                );
37        }
38        else {
39                if ($abonnement && !$email) $message =_T("abomailmans:email_oublie");
40                        $rslt = array(
41                                "id_abomailman" => $id_abomailman,
42                                "message"               => $message
43                        );
44        }
45        return array('formulaires/formulaire_abomailman_une_liste',0, $rslt);
46}
47
48
49
50?>
Note: See TracBrowser for help on using the repository browser.