' . _T('couteauprive:raccourcis') . '
' . _T('couteauprive:pipelines') . ' '.count($aide).'
' . join("
", $aide) . '
' . _T('couteauprive:outils_actifs') . " $nb
" . '' . _T('couteauprive:outils_caches') . " $ca
"; } // met en forme le fichier $f en vue d'un insertion en head function cs_insert_header($f, $type) { if ($type=='css') { include_spip('inc/filtres'); return ''; } elseif ($type=='js') return ''; } // sauve la configuration dans un fichier tmp/couteau-suisse/config.php function cs_sauve_configuration() { global $outils, $metas_vars; $metas = $metas_actifs = $variables = $lesoutils = $actifs = array(); foreach($outils as $t) { $lesoutils[] = "\t// ".$t['nom']."\n\t'".$t['id']."' => '".join('|', $t['variables']) . "'"; if($t['actif']) { $actifs[] = $t['id']; $variables = array_merge($variables, $t['variables']); } } foreach($metas_vars as $i => $v) if($i!='_chaines' && $i!='_nombres') { $metas[] = $temp = "\t'$i' => " . cs_php_format($v, in_array($i, $metas_vars['_chaines'])); if(in_array($i, $variables)) $metas_actifs[] = $temp; } $sauve = "// Tous les outils et leurs variables\n\$liste_outils = array(\n" . join(",\n", $lesoutils) . "\n);\n" . "\n// Outils actifs\n\$outils_actifs =\n\t'" . join('|', $actifs) . "';\n" . "\n// Variables actives\n\$variables_actives =\n\t'" . join('|', $variables) . "';\n" . "\n// Valeurs validees en metas\n\$valeurs_validees = array(\n" . join(",\n", $metas) . "\n);\n"; $sauve .= $temp = "\n######## PACK ACTUEL DE CONFIGURATION DU COUTEAU SUISSE #########\n" . "\n// Attention, les surcharges sur les define() ou les globales ne sont pas specifiees ici\n" . "\$GLOBALS['cs_installer']['"._T('couteauprive:pack')."'] = array(\n\n\t// Installation des outils par defaut\n" . "\t'outils' =>\n\t\t'".join('|', $actifs)."',\n" . "\n\t// Installation des variables par defaut\n" . "\t'variables' => array(\n\t" . join(",\n\t", $metas_actifs) . "\n\t)\n);\n"; ecrire_fichier(_DIR_CS_TMP.'config.php', '<'."?php\n// Configuration de controle pour le plugin 'Couteau Suisse'\n\n$sauve?".'>'); if($_GET['cmd']=='pack') $GLOBALS['cs_pack_actuel'] = $temp; } // cree un tableau $infos_pipelines et initialise $cs_metas_pipelines function cs_initialise_includes($count_metas_outils) { global $outils, $cs_metas_pipelines; // toutes les infos sur les pipelines $infos_pipelines = array(); // liste des pipelines utilises $pipelines_utilises = array(); // liste des pipelines utilises $traitements_utilises = array(); // variables temporaires $temp_css = $temp_js = $temp_jq = $temp_jq_init = $temp_filtre_imprimer = array(); // pour la fonction inclure_page() include_spip('public/assembler'); // inclure d'office outils/cout_fonctions.php if ($temp=cs_lire_fichier_php("outils/cout_fonctions.php")) $infos_pipelines['code_fonctions'][] = $temp; // variable de verification $infos_pipelines['code_options'][] = "\$GLOBALS['cs_verif']=$count_metas_outils;"; // parcours de tous les outils foreach ($outils as $i=>$outil) { // stockage de la liste des fonctions par pipeline, si l'outil est actif... if ($outil['actif']) { $inc = $outil['id']; $pipe2 = ''; foreach ($outil as $pipe=>$fonc) { if (is_pipeline_outil($pipe, $pipe2)) { // module a inclure $infos_pipelines[$pipe2]['inclure'][] = $inc; // fonction a appeler $infos_pipelines[$pipe2]['fonction'][] = $fonc; // liste des pipelines utilises if (!in_array($pipe2, $pipelines_utilises)) $pipelines_utilises[] = $pipe2; } elseif (is_pipeline_outil_inline($pipe, $pipe2)) { // code inline $infos_pipelines[$pipe2]['inline'][] = $fonc; if (!in_array($pipe2, $pipelines_utilises)) $pipelines_utilises[] = $pipe2; } elseif (is_traitements_outil($pipe, $fonc, $traitements_utilises)) { // rien a faire : $traitements_utilises est rempli par is_traitements_outil() } } // recherche d'un fichier .css, .css.html et/ou .js eventuellement present dans outils/ if ($f=find_in_path($_css = "outils/$inc.css")) $cs_metas_pipelines['header'][] = cs_insert_header($f, 'css'); if ($f=find_in_path("outils/$inc.js")) $cs_metas_pipelines['header'][] = cs_insert_header($f, 'js'); // en fait on peut pas car les balises vont devoir etre traitees et les traitements ne sont pas encore dispo ! if ($f=find_in_path("outils/$inc.css.html")) { // ici, cout_fonction.php va etre appele pour traiter les balises du css $GLOBALS['cs_options']++; $f = inclure_page($_css, array('fond'=>$_css)); $GLOBALS['cs_options']--; $temp_css[] = $f['texte']; } // recherche d'un code inline eventuellement propose if (isset($outil['code:options'])) $infos_pipelines['code_options'][] = $outil['code:options']; if (isset($outil['code:fonctions'])) $infos_pipelines['code_fonctions'][] = $outil['code:fonctions']; if (isset($outil['code:css'])) $temp_css[] = cs_parse_code_js($outil['code:css']); if (isset($outil['code:js'])) $temp_js[] = cs_parse_code_js($outil['code:js']); if (isset($outil['code:jq_init'])) $temp_jq_init[] = cs_parse_code_js($outil['code:jq_init']); if (isset($outil['code:jq'])) $temp_jq[] = cs_parse_code_js($outil['code:jq']); // recherche d'un fichier monoutil_options.php ou monoutil_fonctions.php pour l'inserer dans le code if ($temp=cs_lire_fichier_php("outils/{$inc}_options.php")) $infos_pipelines['code_options'][] = $temp; if ($temp=cs_lire_fichier_php("outils/{$inc}_fonctions.php")) $infos_pipelines['code_fonctions'][] = $temp; } } // insertion du css pour la BarreTypo if(in_array('BT_toolbox', $pipelines_utilises)) $temp_css[] = 'span.cs_BT {background-color:#FFDDAA; font-weight:bold; border:1px outset #CCCC99; padding:0.2em 0.3em;} span.cs_BTg {font-size:140%; padding:0 0.3em;}'; // concatenation des css inline, js inline et filtres trouves if (count($temp_css)) $cs_metas_pipelines['header'][] = ""; if (count($temp_jq_init)) { $temp_js[] = "var cs_init = function() {\n".join("\n", $temp_jq_init)."\n}\nif(typeof onAjaxLoad=='function') onAjaxLoad(cs_init);"; $temp_jq[] = "cs_init.apply(document);"; } if (count($temp_jq)) $temp_js[] = "if (window.jQuery) jQuery(document).ready(function(){\n".join("\n", $temp_jq)."\n});"; if (count($temp_js)) $cs_metas_pipelines['header'][] = "\n"; // mise en code des traitements trouves foreach($traitements_utilises as $b=>$balise) { foreach($balise as $p=>$precision) { // ici, on fait attention de ne pas melanger propre et typo if(array_key_exists('typo', $precision) && array_key_exists('propre', $precision)) die(_T('couteauprive:erreur:traitements')); foreach($precision as $f=>$fonction) { // pas d'objet precis if ($f===0) $traitements_utilises[$b][$p][$f] = join("(", array_reverse($fonction)).'('; // un objet precis else { $pre = isset($fonction['pre'])?join('(', $fonction['pre']).'(':''; $post = isset($fonction['post'])?join('(', $fonction['post']).'(':''; $traitements_utilises[$b][$p][$f] = $post.$f.'('.$pre; } } $temp = "\$GLOBALS['table_des_traitements']['$b'][" . ($p=='0'?'':"'$p'") . "]='" . join('(', $traitements_utilises[$b][$p]).'%s'; $traitements_utilises[$b][$p] = $temp . str_repeat(')', substr_count($temp, '(')) . "';"; } $traitements_utilises[$b] = join("\n", $traitements_utilises[$b]); } if(count($traitements_utilises)) $infos_pipelines['code_options'][] = "// Table des traitements\n" . join("\n", $traitements_utilises); // effacement du repertoire temporaire de controle if (@file_exists(_DIR_CS_TMP) && ($handle = @opendir(_DIR_CS_TMP))) { while (($fichier = @readdir($handle)) !== false) if ($fichier[0] != '.') supprimer_fichier(_DIR_CS_TMP.$fichier); closedir($handle); } else spip_log('Erreur - cs_initialise_includes() : '._DIR_CS_TMP.' introuvable !'); // installation de $cs_metas_pipelines ecrire_fichier_en_tmp($infos_pipelines, 'options'); ecrire_fichier_en_tmp($infos_pipelines, 'fonctions'); $code = array(); foreach($pipelines_utilises as $pipe) $code[] = set_cs_metas_pipelines_pipeline($infos_pipelines, $pipe); if($nb=count($code)) ecrire_fichier(_DIR_CS_TMP . "pipelines.php", '<'."?php\n// Code de controle pour le plugin 'Couteau Suisse' : $nb pipeline(s) actif(s)\n\n".join("\n", $code).'?'.'>'); } // retire les guillemets extremes s'il y en a function cs_retire_guillemets($valeur) { if (preg_match(',^\'(.*)\'$,ms', trim($valeur), $matches)) return str_replace("\'", "'", $matches[1]); if (preg_match(',^"(.*)"$,ms', trim($valeur), $matches)) return str_replace('\"', '"', $matches[1]); return $valeur; } // met en forme une valeur dans le stype php function cs_php_format($valeur, $is_chaine = true) { $valeur = cs_retire_guillemets($valeur); if(!strlen($valeur)) return $is_chaine?"''":0; if(!$is_chaine) return $valeur; $valeur = str_replace("\\", "\\\\", $valeur); return "'".str_replace("'", "\\'", $valeur)."'"; } // retourne le code compile d'une variable en fonction de sa valeur function cs_get_code_variable($variable, $valeur) { global $cs_variables; // si la variable n'a pas ete declaree if(!isset($cs_variables[$variable])) return _L("// Variable '$variable' inconnue !"); $cs_variable = &$cs_variables[$variable]; // mise en forme php de $valeur if(!strlen($valeur)) { if($cs_variable['format']=='nombre') $valeur='0'; else $valeur='""'; } else $valeur = cs_php_format($valeur, $cs_variable['format']!='nombre'); $code = ''; foreach($cs_variable as $type=>$param) if (preg_match(',^code(:(.*))?$,', $type, $regs)) { $eval = '$test = ' . (isset($regs[2])?str_replace('%s', $valeur, $regs[2]):'true') . ';'; $test = false; eval($eval); if($test) return str_replace('%s', $valeur, $param); } } // remplace les valeurs marquees comme %%toto%% par le code reel prevu par $cs_variables['toto']['code:condition'] // attention de bien declarer les variables a l'aide de add_variable() function cs_parse_code_php($code) { global $metas_vars, $cs_variables; while(preg_match(",([']?)%%([a-zA-Z_][a-zA-Z0-9_]*?)%%([']?),", $code, $matches)) { $cotes = $matches[1]=="'" && $matches[3]=="'"; $nom = $matches[2]; // la valeur de la variable n'est stockee dans les metas qu'au premier post if (isset($metas_vars[$nom])) { $rempl = cs_get_code_variable($nom, $metas_vars[$nom]); } else { // tant que le webmestre n'a pas poste, on prend la valeur (dynamique) par defaut $defaut = cs_get_defaut($nom); $rempl = cs_get_code_variable($nom, $defaut); $code = "/* Valeur par defaut : {$nom} = $defaut */\n" . $code; } if ($cotes) $rempl = str_replace("'", "\'", $rempl); $code = str_replace($matches[0], $matches[1].$rempl.$matches[3], $code); //echo "\nRETURN CODE = $code"; } return $code; } // remplace les valeurs marquees comme %%toto%% par la valeur reelle de $metas_vars['toto'] // + quelques optimisations du code // si cette valeur n'existe pas encore, la valeur utilisee sera $cs_variables['toto']['defaut'] // attention de bien declarer les variables a l'aide de add_variable() function cs_parse_code_js($code) { global $metas_vars, $cs_variables; while(preg_match(',%%([a-zA-Z_][a-zA-Z0-9_]*)%%,U', $code, $matches)) { // la valeur de la variable n'est stockee dans les metas qu'au premier post if (isset($metas_vars[$matches[1]])) { $rempl = $metas_vars[$matches[1]]; } else { // tant que le webmestre n'a pas poste, on prend la valeur (dynamique) par defaut $rempl = cs_get_defaut($matches[1]); } $code = str_replace($matches[0], $rempl, $code); } return cs_optimise_js($code); } // attention : optimisation tres sommaire, pour codes simples ! // -> optimise les if(0), if(1), if(false), if(true) function cs_optimise_js($code) { $code = preg_replace(',if\s*\(\s*([^)]*\s*)\)\s*{\s*,imsS', 'if(\\1){', $code); $code = str_replace('if(false){', 'if(0){', $code); $code = str_replace('if(true){', 'if(1){', $code); if (preg_match(',if\(([0-9])\){(.*)$,msS', $code, $regs)) { $temp = $regs[2]; $ouvre = $ferme = -1; $nbouvre = 1; do { if ($ouvre===false) $min = $ferme + 1; else $min = min($ouvre, $ferme) + 1; $ouvre=strpos($temp, '{', $min); $ferme=strpos($temp, '}', $min); if($ferme!==false) { if($ouvre!==false && $ouvre<$ferme) $nbouvre++; else $nbouvre--; } } while($ferme!==false && $nbouvre>0); if($ferme===false) return "/* Erreur sur les accolades : \{$regs[2] */"; $temp = substr($temp, 0, $ferme); $rempl = "if($regs[1])\{$temp}"; if(intval($regs[1])) $code = str_replace($rempl, "/* optimisation : 'if($regs[1])' */ $temp", $code); else $code = str_replace($rempl, "/* optimisation : 'if($regs[1]) {$temp}' */", $code); } return $code; } // lance la fonction d'installation de chaque outil actif, si elle existe. // la fonction doit etre ecrite sous la forme monoutil_installe() et placee // dans le fichier outils/monoutil.php function cs_installe_outils() { global $metas_outils; foreach($metas_outils as $nom=>$o) if($o['actif']) { include_spip('outils/'.$nom); if (function_exists($f = $nom.'_installe')) { $f(); cs_log(" -- $f() : OK !"); } } ecrire_metas(); } ?>