Your IP : 216.73.216.249
<?php
/**
* Plugin générique de configuration pour SPIP
*
* @license GNU/GPL
* @package plugins
* @subpackage cfg
* @category outils
* @copyright (c) toggg, marcimat 2007-2008
* @link http://www.spip-contrib.net/
* @version $Id$
*/
if (!defined("_ECRIRE_INC_VERSION")) return;
# CONFIG
/**
* #CONFIG retourne lire_config()
*
* Le 3eme argument permet de controler la serialisation du resultat
* (mais ne sert que pour le depot 'meta') qui doit parfois deserialiser
*
* ex: |in_array{#CONFIG{toto,#ARRAY,1}}.
*
* Ceci n'affecte pas d'autres depots et |in_array{#CONFIG{toto/,#ARRAY}} sera equivalent
* car du moment qu'il y a un /, c'est le depot 'metapack' qui est appelle.
*
* @param Object $p Arbre syntaxique du compilo
* @return Object
*/
if (!function_exists('balise_CONFIG')) {
function balise_CONFIG($p) {
if (!$arg = interprete_argument_balise(1,$p)) {
$arg = "''";
}
$sinon = interprete_argument_balise(2,$p);
$unserialize = sinon(interprete_argument_balise(3,$p),"false");
$p->code = 'lire_config(' . $arg . ',' .
($sinon && $sinon != "''" ? $sinon : 'null') . ',' . $unserialize . ')';
return $p;
}
}
# CFG_CHEMIN
/**
* La balise CFG_CHEMIN retourne le chemin d'une image stockee
* par cfg.
*
* cfg stocke : 'config/vue/champ.ext' (ce qu'affiche #CONFIG)<br>
* #cfg_chemin retourne l'adresse complete : 'IMG/config/vue/champ.ext'
*
* @param Object $p Arbre syntaxique du compilo
* @return Object
*/
function balise_CFG_CHEMIN_dist($p) {
if (!$arg = interprete_argument_balise(1,$p)) {
$arg = "''";
}
$sinon = interprete_argument_balise(2,$p);
$p->code = '($l = lire_config(' . $arg . ',' .
($sinon && $sinon != "''" ? $sinon : 'null') . ')) ? _DIR_IMG . $l : null';
return $p;
}
/**
* #EDIT_CONFIG : Pour jouer avec les Crayons et les configurations
*
* <code>
* <div class="#EDIT_CONFIG{plugin/casier/cle}">
* #CONFIG{plugin/casier/cle}
* </div>
* </code>
*
* @param <type> $p
* @return <type>
*/
function balise_EDIT_CONFIG_dist($p) {
$config = interprete_argument_balise(1,$p);
$instance = interprete_argument_balise(2,$p);
$instance = $instance ? $instance : "'0'";
$p->code = 'classe_config_crayon('.$config.', '.$instance.')';
$p->statut = 'php';
$p->interdire_scripts = false;
return $p;
}
/**
* Classe qui sera utilisé pour CFG dans le bloc éditable par Crayon
*
* @param string $config
* @param string $instance
* @return string
*/
function classe_config_crayon($config, $instance) {
// pour n'avoir que des caracteres alphanumeriques,
// on transforme "depot::plugin/casier/cle" en "depot___plugin__casier__cle"
$config = cfg_config2crayon($config);
// return 'crayon composant-'.$composant.'-'.$instance.' type_pinceau';
return 'crayon config-'.$config.'-'.$instance . ' type_config';
}
/**
* Outil de manipulation des classes
*
* @param string $config classe pour CFG
* @return string classe pour Crayon
*/
function cfg_config2crayon($config) {return str_replace(array('::','/'), array('___','__'), $config);}
/**
* Outil de manipulation des classes
*
* @param string $crayon classe pour Crayon
* @return string classe pour CFG
*/
function cfg_crayon2config($crayon) {return str_replace(array('___','__'), array('::','/'), $crayon);}
/**
* autorisation de configurer
*
* @param string $faire
* @param string $type
* @param string $id
* @param string $qui
* @param string $opt
* @return boolean
*/
function autoriser_config_crayonner_dist($faire, $type, $id, $qui, $opt) {
return autoriser('configurer', $type, $id, $qui, $opt);
}
/**
* autorisation de crayonner
*
* @param string $faire
* @param string $type
* @param string $id
* @param string $qui
* @param string $opt
* @return boolean
*/
function autoriser_config_modifier_dist($faire, $type, $id, $qui, $opt) {
return autoriser('crayonner', $type, $id, $qui, $opt);
}
# CFG_ARBO
/**
* Affiche une arborescence du contenu d'un #CONFIG
*
* - #CFG_ARBO,
* - #CFG_ARBO{ma_meta},
* - #CFG_ARBO{~toto},
* - #CFG_ARBO{ma_meta/mon_casier},
* - #CFG_ARBO{ma_table:mon_id/mon_champ}
*
* @param Object $p
* @return Object
*/
function balise_CFG_ARBO_dist($p) {
if (!$arg = interprete_argument_balise(1,$p)) {
$arg = "''";
}
$p->interdire_scripts = false;
$p->code = 'cfg_affiche_arborescence(' . $arg . ')';
return $p;
}
/**
* Fonction utilisée par le compilo pour {@see balise_CFG_ARBO_dist} :
* affiche l'arborescence qui est calculée par {@see cfg_affiche_sous_arborescence}
*
* @param string $cfg nom de la table meta
* @return string code html en sortie
*/
function cfg_affiche_arborescence($cfg='') {
$sortie = '';
$hash = substr(md5(rand()*rand()),0,6);
// integration du css
// Suppression de cette inclusion des css arbo au profit d'une inclusion d'un fichier cfg.css dans le header prive
// $sortie .= "<style type='text/css'>\n"
// . ".cfg_arbo{}\n"
// . ".cfg_arbo h5{padding:0.2em 0.2em; margin:0.2em 0; cursor:pointer;}\n"
// . ".cfg_arbo ul{border:1px solid #ccc; margin:0; padding:0.2em 0.5em; list-style-type:none;}\n"
// . "</style>\n";
// integration du js
$sortie .= "<script type='text/javascript'><!--
jQuery(document).ready(function(){
function cfg_arbo(){
jQuery('#cfg_arbo_$hash ul').hide();
jQuery('#cfg_arbo_$hash h5 strong').remove();
jQuery('#cfg_arbo_$hash h5')
.prepend('<strong>[+] <\/strong>')
.unbind().toggle(
function () {
jQuery(this).children('strong').text('[-] ');
jQuery(this).next('ul').show();
},
function () {
jQuery(this).children('strong').text('[+] ');
jQuery(this).next('ul').hide();
});
}
setTimeout(cfg_arbo,100);
});
// --></script>\n";
$tableau = lire_config($cfg);
if ($c = @unserialize($tableau)) $tableau = $c;
if (empty($cfg)) $cfg = 'spip_meta';
// parcours des donnees
$sortie .=
"<div class='cfg_arbo' id='cfg_arbo_$hash'>\n" .
cfg_affiche_sous_arborescence($cfg, $tableau) .
"\n</div>\n";
return $sortie;
}
/**
* Calcul récursif de l'arborescence des configurations
*
* @param string $nom nom de la table meta
* @param Array $tableau configuration
* @return string code html en sortie
*/
function cfg_affiche_sous_arborescence($nom, $tableau){
$sortie = "\n<h5>$nom</h5>\n";
$sortie .= "\n<ul>";
if (is_array($tableau)){
ksort($tableau);
foreach ($tableau as $tab=>$val){
if (is_array($val))
$sortie .= "<li>" . cfg_affiche_sous_arborescence($tab, $val) . "</li>";
elseif (false !== $v = @unserialize($val))
$sortie .= "<li>" . cfg_affiche_sous_arborescence($tab, $v) . "</li>";
else
$sortie .= "<li>$tab = " . htmlentities($val, ENT_COMPAT, $GLOBALS['meta']['charset']) ."</li>\n";
}
} else {
$sortie .= "<li>$nom = " . htmlentities($val, ENT_COMPAT, $GLOBALS['meta']['charset']) . "</li>";
}
$sortie .= "</ul>\n";
return $sortie;
}
if (!function_exists('filtre_cle_dist')) {
/**
* Cette fonction retourne une valeur dans un tableau arborescent
* en indiquant la cle souhaitee. On descend dans la profondeur de
* l'arborescence du tableau par des slash.
* Si on donne un chaine serialisee en entree a la place d'un tableau,
* la fonction tente de la deserialiser.
*
* Exemples :
* $x = array("a1"=>array("b1"=>array("c1"=>3), "b2"=>4), "a2"=>8);
* filtre_cle_dist($x, "a2") = 8
* filtre_cle_dist($x, "a1") = array("b1"=>array("c1"=>3), "b2"=>4)
* filtre_cle_dist($x, "a1/b2") = 4
* filtre_cle_dist($x, "a1/b1/c1") = 3
*
* Depuis un squelette SPIP : [(#TABLEAU|cle{a1/b1/c1})]
*
* @param array/string $tab : tableau ou tableau serialise
* @param string $chemin : chemin d'acces a une valeur du tableau tel que "cleA/cleB/cleC"
* @param string $defaut : valeur a retourner par defaut, si la cle n'est pas trouvee
*
* @return la valeur correspondant a la cle demandee, $defaut sinon
**/
function filtre_cle_dist($tab, $chemin, $defaut=null) {
if (!$tab) {
return $defaut;
}
if (!is_array($tab)) {
if (!is_string($tab)
or !$tab = @unserialize($tab)
or !is_array($tab)
) {
return $defaut;
}
}
$position = &$tab;
$chemins = explode('/', $chemin);
foreach ($chemins as $cle) {
if (!isset($position[$cle])) {
return $defaut;
}
$position = $position[$cle];
}
return $position;
}
}
?>