source: spip-zone/_plugins_/mailsubscribers/trunk/action/unsubscribe_mailsubscriber.php @ 69533

Last change on this file since 69533 was 69533, checked in by marcimat@…, 7 years ago

Certains fichiers PHP n'étaient pas en UTF-8

File size: 1.8 KB
Line 
1<?php
2/**
3 * Plugin mailsubscribers
4 * (c) 2012 Cédric Morin
5 * Licence GNU/GPL v3
6 */
7
8if (!defined('_ECRIRE_INC_VERSION')) return;
9
10/**
11 * Des-inscrire un email deja en base
12 * (mise a jour du statut en refuse)
13 *
14 * @param string $email
15 */
16function action_unsubscribe_mailsubscriber_dist($email=null){
17        include_spip('mailsubscribers_fonctions');
18        if (is_null($email)){
19                $email = _request('email');
20                $arg = _request('arg');
21                $row = sql_fetsel('id_mailsubscriber,email,jeton,lang,statut','spip_mailsubscribers','email='.sql_quote($email));
22                if (!$row
23                        OR $arg!==mailsubscriber_cle_action("unsubscribe",$row['email'],$row['jeton'])){
24                        $row = false;
25                }
26        }
27        else {
28                $row = sql_fetsel('id_mailsubscriber,email,jeton,statut','spip_mailsubscribers','email='.sql_quote($email));
29        }
30        if (!$row){
31                include_spip('inc/minipres');
32                echo minipres();
33                exit;
34        }
35
36        include_spip("inc/lang");
37        changer_langue($row['lang']);
38        include_spip("inc/autoriser");
39        autoriser_exception("modifier","mailsubscriber",$row['id_mailsubscriber']);
40        autoriser_exception("instituer","mailsubscriber",$row['id_mailsubscriber']);
41
42        if ($row['statut']=='valide'){
43                // OK l'email est connu et valide
44                include_spip("action/editer_objet");
45                objet_modifier("mailsubscriber",$row['id_mailsubscriber'],array('statut'=>'refuse'));
46                $titre = _T('mailsubscriber:unsubscribe_texte_email_1',array('email'=>$row['email']));
47        }
48        else {
49                $titre = _T('mailsubscriber:unsubscribe_deja_texte',array('email'=>$row['email']));
50        }
51        autoriser_exception("modifier","mailsubscriber",$row['id_mailsubscriber'],false);
52        autoriser_exception("instituer","mailsubscriber",$row['id_mailsubscriber'],false);
53
54
55        // Dans tous les cas on finit sur un minipres qui dit si ok ou echec
56        include_spip('inc/minipres');
57        echo minipres($titre,"","",true);
58
59}
Note: See TracBrowser for help on using the repository browser.