source: spip-zone/_plugins_/clevermail/2_0/action/clevermail_list_subscriber_remove.php @ 32472

Last change on this file since 32472 was 32472, checked in by scaron@…, 10 years ago

Conservation des abonnés CleverMail? après désinscription

File size: 1.4 KB
Line 
1<?php
2function action_clevermail_list_subscriber_remove_dist() {
3        $securiser_action = charger_fonction('securiser_action', 'inc');
4  $arg = $securiser_action();
5  $lsr_id = $arg;
6
7  if (sql_countsel("spip_cm_lists_subscribers", "lsr_id=".sql_quote($lsr_id)) == 1) {
8          include_spip('inc/autoriser');
9          if (autoriser('supprimer','cm_list_subscriber',sql_quote($lsr_id))) {
10            $abonnement = sql_fetsel("sub_id, lst_id", "spip_cm_lists_subscribers", "lsr_id=".sql_quote($lsr_id));
11                $abonne = sql_getfetsel("sub_email", "spip_cm_subscribers", "sub_id=".intval($abonnement['sub_id']));
12                $liste = sql_getfetsel("lst_name", "spip_cm_lists", "lst_id=".intval($abonnement['lst_id']));
13            sql_delete("spip_cm_lists_subscribers", "lsr_id = ".sql_quote($lsr_id));
14      sql_delete("spip_cm_posts_queued", "sub_id = ".intval($abonnement['sub_id']));
15      if (sql_countsel("spip_cm_lists_subscribers", "sub_id=".intval($abonnement['sub_id'])) == 0) {
16        // No more subscription, subscriber address is removed
17        //sql_delete("spip_cm_subscribers", "sub_id = ".intval($abonnement['sub_id']));
18        sql_updateq("spip_cm_subscribers",
19                                array('sub_email' => md5(substr($abonne,0,strpos($abonne, '@'))).substr($abonne,strpos($abonne, '@'))),
20                                        "sub_id = ".intval($abonnement['sub_id']));
21      }
22        spip_log('Suppression du l\'abonnement de « '.$abonne.' » à la liste « '.$liste.' » (id='.$abonnement['lst_id'].')', 'clevermail');
23          }
24  }
25}
26?>
Note: See TracBrowser for help on using the repository browser.