WP File Manager

Name	Action
..
content.php	Edit
contextualize.php	Edit

Editing: contextualize.php

<?php /** * Plugin Newsletters * (c) 2012 Cedric Morin * Licence GNU/GPL */ if (!defined('_ECRIRE_INC_VERSION')) return; /** * Contextualiser la newsletter en fonction des infos utilisateur * Par simplification, les variables contextuelles sont exprimees par un simple @nom_variable@ * mais on peut ecrire des variantes complexes avec le balisage SPIP #ENV{nom_variable,truc} etc * C'est plus complique a ecrire car ces balises ne doivent pes etre valuees au premier hit * et donc echappees dans le modele de newsletter : * * \#ENV{nom} => devient #ENV{nom} apres calcul du modele => devient le vrai nom dans la newsletter contextualisee * * @param $content * le contenu (html ou texte) de la newsletter * @param $context * le contexte des variables * @return string */ function newsletter_contextualize_dist($content,$context){ // vite si rien a faire ! if (strpos($content,"@")==false AND strpos($content,"#ENV")==false) return $content; // remplacer les @@truc@@ par [(#ENV{truc,''})] $content = preg_replace(",@([\w\d]+)@,Uims","[(#ENV{\\1,''})]",$content); // vite si rien a faire ! (le premier coup on a pu etre trompe par un email en clair) if (strpos($content,"@")==false AND strpos($content,"#ENV")==false) return $content; $content = "#CACHE{0}\n".$content; // pas de cache, on ne va calculer qu'une fois pour chaque contexte ! // eviter de planter l'evaluation via un <?php restant dans une version texte dans laquelle les < ne sont plus echappes // corrolaire : pas de php pour la contextualization (ni de balise dynamique) if (strpos($content,'<'.'?')!==false) $content = str_replace('<'.'?', "\\<\\@\\?", $content); $md5 = md5($content); // ecrire le squelette dans un fichier temporaire $dir = sous_repertoire(_DIR_CACHE,"newsletters"); $tmp = $dir."cont".$md5; // un meme contenu = un meme nom = un meme skel compile (evite la recompilation a chaque appel) if (file_exists($f=$tmp.".html") OR file_put_contents($f,$content)){ if (_DIR_RACINE AND strncmp($tmp,_DIR_RACINE,strlen(_DIR_RACINE))==0) $tmp = substr($tmp,strlen(_DIR_RACINE)); // si chemin absolu, l'ajouter au path elseif (substr(_DIR_CACHE,0,1)=="/") _chemin(_DIR_CACHE); $content = recuperer_fond($tmp,$context); #@unlink($f); // on le garde pour l'envoi suivant, mais il faudrait purger a un moment ! } if (strpos($content,"\\<\\@\\?")!==false) $content = str_replace("\\<\\@\\?", '<'.'?', $content); return $content; }