4 * Le plugin qui lave plus SPIP que SPIP
5 * (c) 2008 Mathieu Marcillaud, Cedric Morin, Tetue
10 if (!defined('_ECRIRE_INC_VERSION')) {
14 include_spip('public/spip_bonux_criteres');
15 include_spip('public/spip_bonux_balises');
18 * une fonction pour generer une balise img a partir d'un nom de fichier
22 * @param string $class
26 function tag_img($img, $alt = '', $class = '') {
27 $balise_img = chercher_filtre('balise_img');
29 return $balise_img($img, $alt, $class);
32 if (!defined('_PREVISU_TEMPORAIRE_VALIDITE')) {
33 define('_PREVISU_TEMPORAIRE_VALIDITE', 12);
36 function previsu_verifier_cle_temporaire($cle) {
37 $validite = _PREVISU_TEMPORAIRE_VALIDITE
; // validite de 12h maxi par défaut
41 $date = date('Y-m-d H', strtotime("-$old hour"));
42 if ($cle == previsu_cle_temporaire($date)) {
45 } while ($old++
< $validite);
50 function previsu_cle_temporaire($date = null) {
51 include_spip('inc/securiser_action');
54 $date = date('Y-m-d H');
58 $cle = md5($url . $date . secret_du_site());
63 if (!function_exists('push_table_valeur')) {
65 * Filtre ajoutant une valeur à la fin d'une liste, possiblement dans une clé d'un tableau (comme table_valeur()).
67 * Attention, cette fonction est bien un "push", c'est-à-dire qu'elle ajoute un élément à la fin d'une liste.
69 * `#TABLEAU|push_table_valeur{a/b/c, valeur, #CONDITION}`
70 * - si la clé "c" est une liste : on ajoute "valeur" à la fin
71 * - si la clé "c" n'existe pas : on crée une liste et on met la première valeur dedans
72 * - si la clé "c" est un scalaire : on ne fait rien
73 * - si les clés autres que la dernière n'existent pas : on en fait des tableaux en cascade
78 * @param array|object|string $table
79 * Table ou objet dont on veut modifier ou augmenter une des clés/propriétés. Peut être une chaîne à désérialiser contenant ce tableau ou cet objet.
80 * @param string $chemin
81 * Une suite de clés ou de propriétés d'objet, séparées par le caractère "/" : un/element/ici
82 * @param mixed $valeur
83 * Une valeur à ajouter au paramètre précédent.
84 * @param mixed $condition =true
85 * Une valeur quelconque qui sera testée de manière booléenne pour savoir si on fait le traitement ou pas.
86 * Cela allège l'écriture si l'ajout de valeur ne doit se faire que sous condition, notamment que s'il y a une valeur à ajouter.
87 * @param string $cle_finale
88 * Une clé dans laquelle placer la valeur si précisée
90 * @return array|object
91 * Retourne le tableau ou l'objet initial, modifié suivant les paramètres.
93 function push_table_valeur($table, $chemin, $valeur, $condition = true, $cle_finale = false) {
94 // Si la condition est fausse, on ne fait rien du tout
96 $table = is_string($table) ? @unserialize
($table) : $table;
97 $element_a_modifier =& $table;
99 // S'il y a un emplacement donné, on cherche si c'est un tableau
100 if ($chemin and is_string($chemin) and $chemin = explode('/', $chemin) and is_array($chemin)) {
102 foreach ($chemin as $cle) {
104 // On ne fait que s'il la clé vaut quelque chose
106 // Si c'est un tableau, on vérifie si la clé existe
107 if (is_array($element_a_modifier)) {
108 // Si la clé n'existe pas : on met un tableau vide qui se remplira
109 if (!isset($element_a_modifier[$cle])) {
110 $element_a_modifier[$cle] = array();
112 $element_a_modifier =& $element_a_modifier[$cle];
113 } elseif (is_object($element_a_modifier)) {
114 // Si c'est un objet on vérifie si la propriété existe
115 // Si la propriété n'existe pas : on met un tableau vide qui se remplira
116 if (!isset($element_a_modifier->$cle)) {
117 $element_a_modifier->$cle = array();
119 $element_a_modifier =& $element_a_modifier->$cle;
125 // Maintenant on est au bon endroit de ce qu'on veut modifier :
127 // Si l'élément à modifier est bien un tableau : on push la valeur dedans
128 if (is_array($element_a_modifier)) {
129 if ($cle_finale and is_string($cle_finale)) {
130 $element_a_modifier[$cle_finale] = $valeur;
132 array_push($element_a_modifier, $valeur);
135 // Sinon (si c'est un scalaire) on ne fait rien et il faudra utiliser set_table_valeur() par exemple
143 * Cette fonction permet de transformer un texte clair en nom court pouvant servir d'identifiant, class, id, url...
144 * en ne conservant que des caracteres alphanumeriques et un separateur
146 * @param string $texte
147 * Texte à transformer en nom machine
148 * @param string $type
150 * @param array $options
151 * string separateur : par défaut, un underscore `_`.
152 * int longueur_maxi : par defaut 60
156 function filtre_slugify_dist($texte, $type = '', $options = array()) {
158 $separateur = (isset($options['separateur'])?
$options['separateur']:'_');
159 $longueur_maxi = (isset($options['longueur_maxi'])?
$options['longueur_maxi']:60);
161 if (!function_exists('translitteration')) {
162 include_spip('inc/charsets');
165 // pas de balise html
166 if (strpos($texte, '<') !== false) {
167 $texte = strip_tags($texte);
169 if (strpos($texte, '&') !== false) {
170 $texte = unicode2charset($texte);
172 // On enlève les espaces indésirables
173 $texte = trim($texte);
175 // On enlève les accents et cie
176 $texte = translitteration($texte);
178 // On remplace tout ce qui n'est pas un mot par un separateur
179 $texte = preg_replace(',\W+,ms', $separateur, $texte);
181 // nettoyer les doubles occurences du separateur si besoin
182 while (strpos($texte, "$separateur$separateur") !== false) {
183 $texte = str_replace("$separateur$separateur", $separateur, $texte);
186 // pas de separateur au debut ni a la fin
187 $texte = trim($texte, $separateur);
190 $texte = strtolower($texte);
196 if (preg_match(',^\d,', $texte)) {
197 $texte = substr($type, 0, 1).$texte;
201 if (strlen($texte)>$longueur_maxi) {
202 $texte = substr($texte, 0, $longueur_maxi);
208 if (!function_exists('slugify')) {
209 function slugify($texte, $type = '', $options = array()) {
210 $slugify = chercher_filtre('slugify');
211 return $slugify($texte, $type, $options);