X-Git-Url: http://git.cyclocoop.org/?a=blobdiff_plain;f=www%2Fplugins%2Fspip-bonux-3%2Fspip_bonux_fonctions.php;h=6bebbd1211bf830bcbf2388ff54b760cf62f7306;hb=4f443dce95ff6f8221c189880a70c74ce1c1f238;hp=d383bbe26467c3176b0b17eb810cd5d5401f0b5c;hpb=4a628e9b277d3617535f99d663ca79fa2e891177;p=lhc%2Fweb%2Fwww.git

diff --git a/www/plugins/spip-bonux-3/spip_bonux_fonctions.php b/www/plugins/spip-bonux-3/spip_bonux_fonctions.php
index d383bbe2..6bebbd12 100644
--- a/www/plugins/spip-bonux-3/spip_bonux_fonctions.php
+++ b/www/plugins/spip-bonux-3/spip_bonux_fonctions.php
@@ -20,6 +20,7 @@ include_spip('public/spip_bonux_balises');
  * @param string $img
  * @param string $alt
  * @param string $class
+ *
  * @return string
  */
 function tag_img($img, $alt = '', $class = '') {
@@ -28,8 +29,12 @@ function tag_img($img, $alt = '', $class = '') {
 	return $balise_img($img, $alt, $class);
 }
 
+if (!defined('_PREVISU_TEMPORAIRE_VALIDITE')) {
+	define('_PREVISU_TEMPORAIRE_VALIDITE', 12);
+}
+
 function previsu_verifier_cle_temporaire($cle) {
-	$validite = 12; // validite de 12h maxi
+	$validite = _PREVISU_TEMPORAIRE_VALIDITE; // validite de 12h maxi par défaut
 	$old = 0;
 
 	do {
@@ -50,84 +55,159 @@ function previsu_cle_temporaire($date = null) {
 	}
 
 	$url = self();
-	$cle = md5($url.$date.secret_du_site());
+	$cle = md5($url . $date . secret_du_site());
 
 	return $cle;
 }
 
 if (!function_exists('push_table_valeur')) {
-/**
- * Filtre ajoutant une valeur à la fin d'une liste, possiblement dans une clé d'un tableau (comme table_valeur()).
- *
- * Attention, cette fonction est bien un "push", c'est-à-dire qu'elle ajoute un élément à la fin d'une liste.
- *
- * #TABLEAU|push_table_valeur{a/b/c, valeur, #CONDITION}
- * - si la clé "c" est une liste : on ajoute "valeur" à la fin
- * - si la clé "c" n'existe pas : on crée une liste et on met la première valeur dedans
- * - si la clé "c" est un scalaire : on ne fait rien
- * - si les clés autres que la dernière n'existent pas : on en fait des tableaux en cascade
- *
- * @see table_valeur
- * @filtre
- * @param array|object|string $table
- *     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.
- * @param string $chemin
- *     Une suite de clés ou de propriétés d'objet, séparées par le caractère "/" : un/element/ici
- * @param mixed $valeur
- *     Une valeur à ajouter au paramètre précédent.
- * @param mixed $condition=true
- *     Une valeur quelconque qui sera testée de manière booléenne pour savoir si on fait le traitement ou pas.
- *     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.
- * @param string $cle_finale
- *     Une clé dans laquelle placer la valeur si précisée
- * @return array|object
- *     Retourne le tableau ou l'objet initial, modifié suivant les paramètres.
- */
-function push_table_valeur($table, $chemin, $valeur, $condition = true, $cle_finale = false) {
-	// Si la condition est fausse, on ne fait rien du tout
-	if ($condition) {
-		$table = is_string($table) ? @unserialize($table) : $table;
-		$element_a_modifier =& $table;
-
-		// S'il y a un emplacement donné, on cherche si c'est un tableau
-		if ($chemin and is_string($chemin) and $chemin = explode('/', $chemin) and is_array($chemin)) {
-			$i = 0;
-			foreach ($chemin as $cle) {
-				$i += 1;
-				// On ne fait que s'il la clé vaut quelque chose
-				if ($cle !== '') {
-					// Si c'est un tableau, on vérifie si la clé existe
-					if (is_array($element_a_modifier)) {
-						// Si la clé n'existe pas : on met un tableau vide qui se remplira
-						if (!isset($element_a_modifier[$cle])) {
-							$element_a_modifier[$cle] = array();
+	/**
+	 * Filtre ajoutant une valeur à la fin d'une liste, possiblement dans une clé d'un tableau (comme table_valeur()).
+	 *
+	 * Attention, cette fonction est bien un "push", c'est-à-dire qu'elle ajoute un élément à la fin d'une liste.
+	 *
+	 * `#TABLEAU|push_table_valeur{a/b/c, valeur, #CONDITION}`
+	 * - si la clé "c" est une liste : on ajoute "valeur" à la fin
+	 * - si la clé "c" n'existe pas : on crée une liste et on met la première valeur dedans
+	 * - si la clé "c" est un scalaire : on ne fait rien
+	 * - si les clés autres que la dernière n'existent pas : on en fait des tableaux en cascade
+	 *
+	 * @see table_valeur
+	 * @filtre
+	 *
+	 * @param array|object|string $table
+	 *                         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.
+	 * @param string $chemin
+	 *                         Une suite de clés ou de propriétés d'objet, séparées par le caractère "/" : un/element/ici
+	 * @param mixed $valeur
+	 *                         Une valeur à ajouter au paramètre précédent.
+	 * @param mixed $condition =true
+	 *                         Une valeur quelconque qui sera testée de manière booléenne pour savoir si on fait le traitement ou pas.
+	 *                         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.
+	 * @param string $cle_finale
+	 *                         Une clé dans laquelle placer la valeur si précisée
+	 *
+	 * @return array|object
+	 *     Retourne le tableau ou l'objet initial, modifié suivant les paramètres.
+	 */
+	function push_table_valeur($table, $chemin, $valeur, $condition = true, $cle_finale = false) {
+		// Si la condition est fausse, on ne fait rien du tout
+		if ($condition) {
+			$table = is_string($table) ? @unserialize($table) : $table;
+			$element_a_modifier =& $table;
+
+			// S'il y a un emplacement donné, on cherche si c'est un tableau
+			if ($chemin and is_string($chemin) and $chemin = explode('/', $chemin) and is_array($chemin)) {
+				$i = 0;
+				foreach ($chemin as $cle) {
+					$i += 1;
+					// On ne fait que s'il la clé vaut quelque chose
+					if ($cle !== '') {
+						// Si c'est un tableau, on vérifie si la clé existe
+						if (is_array($element_a_modifier)) {
+							// Si la clé n'existe pas : on met un tableau vide qui se remplira
+							if (!isset($element_a_modifier[$cle])) {
+								$element_a_modifier[$cle] = array();
+							}
+							$element_a_modifier =& $element_a_modifier[$cle];
+						} elseif (is_object($element_a_modifier)) {
+							// Si c'est un objet on vérifie si la propriété existe
+							// Si la propriété n'existe pas : on met un tableau vide qui se remplira
+							if (!isset($element_a_modifier->$cle)) {
+								$element_a_modifier->$cle = array();
+							}
+							$element_a_modifier =& $element_a_modifier->$cle;
 						}
-						$element_a_modifier =& $element_a_modifier[$cle];
-					} elseif (is_object($element_a_modifier)) {
-						// Si c'est un objet on vérifie si la propriété existe
-						// Si la propriété n'existe pas : on met un tableau vide qui se remplira
-						if (!isset($element_a_modifier->$cle)) {
-							$element_a_modifier->$cle = array();
-						}
-						$element_a_modifier =& $element_a_modifier->$cle;
 					}
 				}
 			}
-		}
 
-		// Maintenant on est au bon endroit de ce qu'on veut modifier :
+			// Maintenant on est au bon endroit de ce qu'on veut modifier :
 
-		// Si l'élément à modifier est bien un tableau : on push la valeur dedans
-		if (is_array($element_a_modifier)) {
-			if ($cle_finale and is_string($cle_finale)) {
-				$element_a_modifier[$cle_finale] = $valeur;
-			} else {
-				array_push($element_a_modifier, $valeur);
+			// Si l'élément à modifier est bien un tableau : on push la valeur dedans
+			if (is_array($element_a_modifier)) {
+				if ($cle_finale and is_string($cle_finale)) {
+					$element_a_modifier[$cle_finale] = $valeur;
+				} else {
+					array_push($element_a_modifier, $valeur);
+				}
 			}
+			// Sinon (si c'est un scalaire) on ne fait rien et il faudra utiliser set_table_valeur() par exemple
 		}
-		// Sinon (si c'est un scalaire) on ne fait rien et il faudra utiliser set_table_valeur() par exemple
+
+		return $table;
 	}
+}
+
+/**
+ * Cette fonction permet de transformer un texte clair en nom court pouvant servir d'identifiant, class, id, url...
+ * en ne conservant que des caracteres alphanumeriques et un separateur
+ *
+ * @param string $texte
+ *   Texte à transformer en nom machine
+ * @param string $type
+ *
+ * @param array $options
+ *   string separateur : par défaut, un underscore `_`.
+ *   int longueur_maxi : par defaut 60
+ *
+ * @return string
+ */
+function filtre_slugify_dist($texte, $type = '', $options = array()) {
 
-	return $table;
+	$separateur = (isset($options['separateur'])?$options['separateur']:'_');
+	$longueur_maxi = (isset($options['longueur_maxi'])?$options['longueur_maxi']:60);
+
+	if (!function_exists('translitteration')) {
+		include_spip('inc/charsets');
+	}
+
+	// pas de balise html
+	if (strpos($texte, '<') !== false) {
+		$texte = strip_tags($texte);
+	}
+	if (strpos($texte, '&') !== false) {
+		$texte = unicode2charset($texte);
+	}
+	// On enlève les espaces indésirables
+	$texte = trim($texte);
+
+	// On enlève les accents et cie
+	$texte = translitteration($texte);
+
+	// On remplace tout ce qui n'est pas un mot par un separateur
+	$texte = preg_replace(',\W+,ms', $separateur, $texte);
+
+	// nettoyer les doubles occurences du separateur si besoin
+	while (strpos($texte, "$separateur$separateur") !== false) {
+		$texte = str_replace("$separateur$separateur", $separateur, $texte);
+	}
+
+	// pas de separateur au debut ni a la fin
+	$texte = trim($texte, $separateur);
+
+	// en minuscules
+	$texte = strtolower($texte);
+
+	switch ($type) {
+		case 'class':
+		case 'id':
+		case 'anchor':
+			if (preg_match(',^\d,', $texte)) {
+				$texte = substr($type, 0, 1).$texte;
+			}
+	}
+
+	if (strlen($texte)>$longueur_maxi) {
+		$texte = substr($texte, 0, $longueur_maxi);
+	}
+
+	return $texte;
 }
+
+if (!function_exists('slugify')) {
+	function slugify($texte, $type = '', $options = array()) {
+		$slugify = chercher_filtre('slugify');
+		return $slugify($texte, $type, $options);
+	}
 }