PEEL Shopping
Open source ecommerce : PEEL Shopping
newsletter.php
Go to the documentation of this file.
1 <?php
2 // This file should be in UTF8 without BOM - Accents examples: éèê
3 // +----------------------------------------------------------------------+
4 // | Copyright (c) 2004-2015 Advisto SAS, service PEEL - contact@peel.fr |
5 // +----------------------------------------------------------------------+
6 // | This file is part of PEEL Shopping 8.0.0, which is subject to an |
7 // | opensource GPL license: you are allowed to customize the code |
8 // | for your own needs, but must keep your changes under GPL |
9 // | More information: https://www.peel.fr/lire/licence-gpl-70.html |
10 // +----------------------------------------------------------------------+
11 // | Author: Advisto SAS, RCS 479 205 452, France, https://www.peel.fr/ |
12 // +----------------------------------------------------------------------+
13 // $Id: newsletter.php 46935 2015-09-18 08:49:48Z gboussin $
14 include("../configuration.inc.php");
15 
16 define('IN_NEWSLETTER', true);
17 $GLOBALS['page_name'] = 'newsletter';
18 
19 $output = '';
21 if (vb($_GET['mode']) == 'inscription') {
22  $GLOBALS['DOC_TITLE'] = $GLOBALS['STR_NEWSLETTER_TITLE'];
23  if (!verify_token('get_simple_newsletter', 120, false)) {
24  // Vérification du token pour empecher les inscriptions de robots
25  $form_error_object->add('token', $GLOBALS['STR_INVALID_TOKEN']);
26  }
27  if (empty($_POST['email']) || !EmailOK($_POST['email'])) {
28  // Vérification du format de l'email
29  $form_error_object->add('notif', $GLOBALS['STR_ERR_EMAIL_BAD']);
30  }
31  $output .= newsletter_validation($_POST, $form_error_object);
32 } elseif (vb($_GET['mode']) == 'desinscription') {
33  // Les inscrits à la newsletter n'ont pas de compte valide, il ne peuvent pas se connecter.
34  $GLOBALS['DOC_TITLE'] = $GLOBALS['STR_DESINSCRIPTION_NEWSLETTER'];
35  $output .= desinscription_newsletter(vb($_GET['email']));
36 } else {
37  redirect_and_die(get_url('membre'));
38 }
39 
40 include($GLOBALS['repertoire_modele'] . "/haut.php");
41 echo $output;
42 include($GLOBALS['repertoire_modele'] . "/bas.php");
43 
$GLOBALS['DOC_TITLE']
Definition: newsletter.php:19
redirect_and_die($url, $permanent_redirection=false, $avoid_loop=false)
Redirige vers l'URL demandée et arrête le programme.
Definition: fonctions.php:1551
$output
Definition: newsletter.php:19
vb(&$var, $default=null)
Variable blanche if $var n'est pas défini, retourne $default, sinon retourne $var.
Definition: format.php:97
if(strlen($date2)== '10') if($type== 'users-by-age'&&a_priv('admin_users', true)) elseif($type== 'forums-count'&&a_priv('admin_content', true)) elseif($type== 'forums-categories'&&a_priv('admin_content', true)) elseif($type== 'users-count'&&a_priv('admin_users', true)) elseif($type== 'product-categories'&&a_priv('admin_products', true)) elseif($type== 'users-by-sex'&&a_priv('admin_users', true)) elseif($type== 'users-by-country'&&a_priv('admin_users', true)) elseif($type== 'sales'&&a_priv('admin_sales', true))
Definition: chart-data.php:160
EmailOK($email)
Vérification du format d'adresse email trouvée sur http://www.phpinfo.net/?p=trucs&rub=astuces.
Definition: emails.php:282
$form_error_object
Definition: newsletter.php:23
verify_token($name= 'general', $delay_in_minutes=60, $check_referer_if_set_by_server=true, $cancel_token=true, $minimum_wait_in_seconds_before_use=0)
Vérification de la validité d'un token Par défaut, un token est valide 1h, et utilisable 1 seule fois...
Definition: fonctions.php:118

This documentation for Open ecommerce PEEL Shopping and PEEL.fr has been generated by Doxygen on Thu Oct 15 2015 14:29:17 - Peel ecommerce is a product of Agence web Advisto SAS. All rights reserved.