ajout du pseudo-slug no_gamumail qui permet de bloquer automatiquement tout envoi de mail passé à Gamumail avec cet identifiant de slug
This commit is contained in:
parent
6cdab4719c
commit
b7447eb50c
3 changed files with 30 additions and 1 deletions
|
@ -99,6 +99,13 @@ $GLOBALS['remplacements_gamumail']['@@num_facture@@'] = 'numéro de la facture';
|
||||||
function formulaires_gamumail_charger_dist($slug, $auteur = 0, $Tclient = [], $Tpdf = [], $redirect = '', $options = []){
|
function formulaires_gamumail_charger_dist($slug, $auteur = 0, $Tclient = [], $Tpdf = [], $redirect = '', $options = []){
|
||||||
}
|
}
|
||||||
```
|
```
|
||||||
|
#### argument $slug "no_gamumail"
|
||||||
|
Si $slug à pour valeur **no_gamumail** alors l'envoi est annulé
|
||||||
|
Exemple d'option à insérer dans un select sélecteur de slug :
|
||||||
|
```html
|
||||||
|
<option value="no_gamumail"[ (#ENV{slug}|=={no_gamumail}|oui) selected="selected"]><:souscriptions:pas_de_mail_auto:></option>
|
||||||
|
```
|
||||||
|
|
||||||
#### argument Tclient
|
#### argument Tclient
|
||||||
l'Argument $Tclient est utilisé pour récupérer des emails dans un ou X autres Objets SPIP
|
l'Argument $Tclient est utilisé pour récupérer des emails dans un ou X autres Objets SPIP
|
||||||
|
|
||||||
|
|
|
@ -183,6 +183,17 @@ function formulaires_gamumail_verifier_dist($slug, $destinataires = 0, $Tclient
|
||||||
}
|
}
|
||||||
|
|
||||||
function formulaires_gamumail_traiter_dist($slug, $destinataires = 0, $Tclient = [], $Tpdf = [], $redirect = '', $options = []) :Array{
|
function formulaires_gamumail_traiter_dist($slug, $destinataires = 0, $Tclient = [], $Tpdf = [], $redirect = '', $options = []) :Array{
|
||||||
|
|
||||||
|
// blocage de l'envoi par appel du pseudo-slug no_gamumail
|
||||||
|
if ($slug === 'no_gamumail') {
|
||||||
|
$retour['message_ok'] = _T('gamumail:message_no_gamumail');
|
||||||
|
if ($redirect AND $redirect != '') {
|
||||||
|
$retour['redirect'] = $redirect;
|
||||||
|
}
|
||||||
|
spip_log("Pas d'envoi de mail pour cause de slug no_gamumail","gamumail");
|
||||||
|
return $retour;
|
||||||
|
}
|
||||||
|
|
||||||
include_spip('inc/texte');
|
include_spip('inc/texte');
|
||||||
include_spip('classes/facteur');
|
include_spip('classes/facteur');
|
||||||
|
|
||||||
|
|
|
@ -30,11 +30,19 @@ if (!defined('_ECRIRE_INC_VERSION')){
|
||||||
*
|
*
|
||||||
*/
|
*/
|
||||||
function inc_envoyer_gamumail($slug, $destinataires, $options = [], $Tid_doc_piece_jointe = []) {
|
function inc_envoyer_gamumail($slug, $destinataires, $options = [], $Tid_doc_piece_jointe = []) {
|
||||||
|
|
||||||
include_spip('inc/texte');
|
include_spip('inc/texte');
|
||||||
include_spip('classes/facteur');
|
include_spip('classes/facteur');
|
||||||
|
|
||||||
$retour = array();
|
$retour = array();
|
||||||
|
|
||||||
|
// blocage de l'envoi pour le pseudo-slug "no_gamumail"
|
||||||
|
if ($slug === 'no_gamumail') {
|
||||||
|
$retour['message_ok'] = _T('gamumail:message_no_gamumail');
|
||||||
|
spip_log("Pas d'envoi de mail pour cause de slug no_gamumail","gamumail");
|
||||||
|
return $retour;
|
||||||
|
}
|
||||||
|
|
||||||
// sécu
|
// sécu
|
||||||
if (preg_match('/[^a-zA-Z0-9_\-]/', $slug)) {
|
if (preg_match('/[^a-zA-Z0-9_\-]/', $slug)) {
|
||||||
$retour['message_erreur'] = _T("gamumail:erreur_format_slug");
|
$retour['message_erreur'] = _T("gamumail:erreur_format_slug");
|
||||||
|
@ -251,8 +259,11 @@ function inc_envoyer_gamumail($slug, $destinataires, $options = [], $Tid_doc_pie
|
||||||
]);
|
]);
|
||||||
//var_dump($sujet);
|
//var_dump($sujet);
|
||||||
$sujet = $remplacement_generiques($args, $sujet);
|
$sujet = $remplacement_generiques($args, $sujet);
|
||||||
|
// pour ne pas avoir de warning de la fonction envoyer_mail() on doit lui passer un paramètre $from et un $header
|
||||||
|
$from = '';
|
||||||
|
$header = '';
|
||||||
$envoyer_mail = charger_fonction('envoyer_mail', 'inc/');
|
$envoyer_mail = charger_fonction('envoyer_mail', 'inc/');
|
||||||
$ok = $envoyer_mail($pour, $sujet, $corps);
|
$ok = $envoyer_mail($pour, $sujet, $corps, $from, $header);
|
||||||
}
|
}
|
||||||
|
|
||||||
if (!$ok) {
|
if (!$ok) {
|
||||||
|
|
Loading…
Add table
Reference in a new issue