Browse Source

Mise en forme

svn/attic/couteau_suisse/118435
patfr@ifrance.com 3 years ago
parent
commit
cc2a9b4a64
  1. 1085
      config_outils.php
  2. 114
      cout_define.php
  3. 252
      cout_lancement.php
  4. 193
      cout_pipelines.php
  5. 402
      couteau_suisse_administrations.php
  6. 40
      couteau_suisse_fonctions.php
  7. 331
      couteau_suisse_options.php
  8. 42
      inc/actions_compat.php
  9. 540
      inc/cs_outils.php
  10. 327
      inc/description_outil.php

1085
config_outils.php
File diff suppressed because it is too large
View File

114
cout_define.php

@ -1,57 +1,59 @@
<?php
#-----------------------------------------------------#
# Plugin : Couteau Suisse - Licence : GPL #
# Auteur : Patrice Vanneufville, 2006 #
# Contact : patrice¡.!vanneufville¡@!laposte¡.!net #
# Infos : https://contrib.spip.net/?article2166 #
#-----------------------------------------------------#
if(!defined("_ECRIRE_INC_VERSION")) return;
// Ici se definissent les constantes du Couteau Suisse
// RSS de trac
@define('_CS_RSS_SOURCE', 'https://zone.spip.org/trac/spip-zone/log/_plugins_/couteau_suisse?format=rss&mode=stop_on_copy&limit=20');
// Doc de contrib.spip.net
@define('_URL_CONTRIB', 'https://contrib.spip.net/?article');
// Revisions du CS
@define('_URL_CS_PLUGIN_XML', 'https://zone.spip.org/trac/spip-zone/browser/_plugins_/couteau_suisse/plugin.xml?format=txt');
// On met a jour le flux rss toutes les 2 heures
define('_CS_RSS_UPDATE', 2*3600);
define('_CS_RSS_COUNT', 15);
// Fichier
define('_CS_TMP_RSS', _DIR_TMP.'rss_couteau_suisse.html');
// Traductions des modules
define('_CS_TRAD_ACCUEIL', 'https://trad.spip.net/');
define('_CS_TRAD_MODULE', _CS_TRAD_ACCUEIL.'tradlang_module/');
// Qui sont les webmestres et les administrateurs ?
function get_liste_administrateurs() {
include_spip('inc/autoriser');
include_spip('inc/texte');
$admins = $webmestres = array();
$s = spip_query("SELECT * FROM spip_auteurs WHERE statut='0minirezo'");
$fetch = function_exists('sql_fetch')?'sql_fetch':'spip_fetch_array'; // compatibilite SPIP 1.92
while ($qui = $fetch($s)) {
$nom = '<a href="'
. generer_url_ecrire(defined('_SPIP30000')?'auteur':'auteur_infos',"id_auteur=$qui[id_auteur]")
. '">' . typo($qui['nom'])."</a> (id_auteur=$qui[id_auteur])";
if(autoriser('webmestre','','',$qui)) $webmestres[$qui['id_auteur']] = $nom;
else if(autoriser('configurer','plugins','',$qui)) $admins[$qui['id_auteur']] = $nom;
}
return array(
count($webmestres)?join(', ', $webmestres):_T('couteauprive:variable_vide'),
count($admins)?join(', ', $admins):_T('couteauprive:variable_vide'));
}
// Polices disponibles
function get_liste_fonts() {
return array_keys(find_all_in_path('polices/', '\w+\.ttf$'));
}
// Montrer le fichier mes_options.php en cours
function show_file_options() {
return cs_root_canonicalize(cs_spip_file_options(3));
}
<?php
#-----------------------------------------------------#
# Plugin : Couteau Suisse - Licence : GPL #
# Auteur : Patrice Vanneufville, 2006 #
# Contact : patrice¡.!vanneufville¡@!laposte¡.!net #
# Infos : https://contrib.spip.net/?article2166 #
#-----------------------------------------------------#
if (!defined("_ECRIRE_INC_VERSION"))
return;
// Ici se definissent les constantes du Couteau Suisse
// RSS de trac
@define('_CS_RSS_SOURCE', 'https://zone.spip.org/trac/spip-zone/log/_plugins_/couteau_suisse?format=rss&mode=stop_on_copy&limit=20');
// Doc de contrib.spip.net
@define('_URL_CONTRIB', 'https://contrib.spip.net/?article');
// Revisions du CS
@define('_URL_CS_PLUGIN_XML', 'https://zone.spip.org/trac/spip-zone/browser/_plugins_/couteau_suisse/plugin.xml?format=txt');
// On met a jour le flux rss toutes les 2 heures
define('_CS_RSS_UPDATE', 2 * 3600);
define('_CS_RSS_COUNT', 15);
// Fichier
define('_CS_TMP_RSS', _DIR_TMP . 'rss_couteau_suisse.html');
// Traductions des modules
define('_CS_TRAD_ACCUEIL', 'https://trad.spip.net/');
define('_CS_TRAD_MODULE', _CS_TRAD_ACCUEIL . 'tradlang_module/');
// Qui sont les webmestres et les administrateurs ?
function get_liste_administrateurs() {
include_spip('inc/autoriser');
include_spip('inc/texte');
$admins = $webmestres = array();
$s = spip_query("SELECT * FROM spip_auteurs WHERE statut='0minirezo'");
$fetch = function_exists('sql_fetch') ? 'sql_fetch' : 'spip_fetch_array'; // compatibilite SPIP 1.92
while ($qui = $fetch($s)) {
$nom = '<a href="' . generer_url_ecrire(defined('_SPIP30000') ? 'auteur' : 'auteur_infos', "id_auteur=$qui[id_auteur]") . '">' . typo($qui['nom']) . "</a> (id_auteur=$qui[id_auteur])";
if (autoriser('webmestre', '', '', $qui))
$webmestres[$qui['id_auteur']] = $nom;
elseif (autoriser('configurer', 'plugins', '', $qui))
$admins[$qui['id_auteur']] = $nom;
}
return array(
count($webmestres) ? join(', ', $webmestres) : _T('couteauprive:variable_vide'),
count($admins) ? join(', ', $admins) : _T('couteauprive:variable_vide')
);
}
// Polices disponibles
function get_liste_fonts() {
return array_keys(find_all_in_path('polices/', '\w+\.ttf$'));
}
// Montrer le fichier mes_options.php en cours
function show_file_options() {
return cs_root_canonicalize(cs_spip_file_options(3));
}
?>

252
cout_lancement.php

@ -10,12 +10,17 @@
# Seulement s'il y a lieu, on va inclure ici #
# cout_utils.php et compiler les outils. #
#-----------------------------------------------------#
if (!defined("_ECRIRE_INC_VERSION")) return;
if (!defined("_ECRIRE_INC_VERSION"))
return;
cs_log("inclusion des fonctions de cout_lancement.php pour initialisation");
// compatibilite avec les plugins de version anterieure a 1.7.0.0
function tweak_choix($s) { if ($p = strpos($s, '(')) return substr($s, 0, $p); return ''; }
function tweak_choix($s) {
if ($p = strpos($s, '('))
return substr($s, 0, $p);
return '';
}
// Compatibilite : stripos() n'existe pas en php4 (SPIP < 3)
if (!function_exists('stripos')) {
function stripos($botte, $aiguille) {
@ -29,7 +34,7 @@ if (!function_exists('stripos')) {
// Creer un bloc base64 correspondant a $rempl ; au besoin en marquant
// une $source differente ; optimisation du code spip !
// echappe_retour() permet de revenir en arriere
function cs_code_echappement($rempl, $source='', $mode='span') {
function cs_code_echappement($rempl, $source = '', $mode = 'span') {
// Convertir en base64
$base64 = base64_encode($rempl);
// guillemets simples dans la balise pour simplifier l'outil 'guillemets'
@ -42,36 +47,44 @@ function cs_preg_quote(&$item) {
// lit ecrit les metas et initialise $cs_metas_pipelines
// cette fonction est appellee par couteau_suisse_options a chaque hit de la page
function cs_initialisation($forcer=false, $init_includes=true) {
function cs_initialisation($forcer = false, $init_includes = true) {
global $cs_metas_pipelines, $metas_outils;
static $deja_passe_ici = 0;
if($log=defined('_LOG_CS')) {
if ($log = defined('_LOG_CS')) {
$rand = sprintf('[#%04x] ', rand());
if(!$deja_passe_ici) {
$mysql = function_exists('mysql_get_client_info')?' - MYSQL v'.mysql_get_client_info():'';
cs_log("#### 1er PASSAGE $rand################################# - \$forcer = ".intval($forcer)
. "\n{$rand}PHP v".phpversion()."$mysql - base SPIP v$GLOBALS[spip_version_base] - code SPIP v$GLOBALS[spip_version_code]");
if (!$deja_passe_ici) {
$mysql = function_exists('mysql_get_client_info') ? ' - MYSQL v' . mysql_get_client_info() : '';
cs_log("#### 1er PASSAGE $rand################################# - \$forcer = " . intval($forcer) . "\n{$rand}PHP v" . phpversion() . "$mysql - base SPIP v$GLOBALS[spip_version_base] - code SPIP v$GLOBALS[spip_version_code]");
}
}
$deja_passe_ici++;
if($log) cs_log("{$rand}cs_initialisation($forcer) : Passage #$deja_passe_ici");
if ($log)
cs_log("{$rand}cs_initialisation($forcer) : Passage #$deja_passe_ici");
// si les metas ne sont pas lus, on les lit
if (isset($GLOBALS['meta']['tweaks_pipelines'])) {
$cs_metas_pipelines = unserialize($GLOBALS['meta']['tweaks_pipelines']);
if($log) cs_log("$rand -- cs_metas_pipelines = ".(is_array($cs_metas_pipelines)?join(', ',array_keys($cs_metas_pipelines)):''));
if ($log)
cs_log("$rand -- cs_metas_pipelines = " . (is_array($cs_metas_pipelines) ? join(', ', array_keys($cs_metas_pipelines)) : ''));
// liste des actifs & definition des constantes attestant qu'un outil est bien actif : define('_CS_monoutil', 'oui');
$liste = array();
foreach($metas_outils as $nom=>$o) if(isset($o['actif']) && $o['actif']) { $liste[]=$nom; @define('_CS_'.$nom, 'oui'); }
foreach ($metas_outils as $nom => $o)
if (isset($o['actif']) && $o['actif']) {
$liste[] = $nom;
@define('_CS_' . $nom, 'oui');
}
$liste2 = join(', ', $liste);
if($log) cs_log("$rand -- ".count($liste).' outil(s) actif(s)'.(strlen($liste2)?" = ".$liste2:''));
if ($log)
cs_log("$rand -- " . count($liste) . ' outil(s) actif(s)' . (strlen($liste2) ? " = " . $liste2 : ''));
// Vanter notre art de la compilation...
// La globale $spip_header_silencieux permet de rendre le header absent pour raisons de securite
if (!headers_sent() && (!isset($GLOBALS['spip_header_silencieux']) OR !$GLOBALS['spip_header_silencieux']))
@header('X-Outils-CS: '.$liste2);
if($log) cs_log($rand.($forcer?"\$forcer = true":"cs_initialisation($forcer) : Sortie car les metas sont presents"));
@header('X-Outils-CS: ' . $liste2);
if ($log)
cs_log($rand . ($forcer ? "\$forcer = true" : "cs_initialisation($forcer) : Sortie car les metas sont presents"));
// Les pipelines sont en meta, tout va bien on peut partir d'ici.
if (!$forcer) return;
if (!$forcer)
return;
}
// ici on commence l'initialisation de tous les outils
$GLOBALS['cs_init'] = 1;
@ -81,8 +94,8 @@ if($log) cs_log($rand.($forcer?"\$forcer = true":"cs_initialisation($forcer) : S
// remplir $outils (et aussi $cs_variables qu'on n'utilise pas ici);
include_spip('config_outils');
// verifier que tous les outils actives sont bien presents
foreach($metas_outils as $nom=>$o)
if(isset($o['actif']) && $o['actif'] && !isset($outils[$nom]))
foreach ($metas_outils as $nom => $o)
if (isset($o['actif']) && $o['actif'] && !isset($outils[$nom]))
unset($metas_outils[$nom]);
ecrire_meta('tweaks_actifs', serialize($metas_outils));
ecrire_metas(); # Pour SPIP 1.92
@ -91,25 +104,29 @@ if($log) cs_log($rand.($forcer?"\$forcer = true":"cs_initialisation($forcer) : S
$metas_vars['_chaines'] = $cs_variables['_chaines'];
$metas_vars['_nombres'] = $cs_variables['_nombres'];
// au cas ou un outil manipule des variables
$description_outil = charger_fonction('description_outil', 'inc');
$description_outil = charger_fonction('description_outil', 'inc');
// completer les variables manquantes et incorporer l'activite lue dans les metas
if($log) cs_log("$rand -- foreach(\$outils) : cs_initialisation_d_un_outil()");
if ($log)
cs_log("$rand -- foreach(\$outils) : cs_initialisation_d_un_outil()");
// initialiser chaque outil
include_spip('inc/cs_outils');
foreach($outils as $outil)
foreach ($outils as $outil)
cs_initialisation_d_un_outil($id = $outil['id'], $description_outil, false);
// installer $cs_metas_pipelines
$cs_metas_pipelines = array();
if($log) cs_log("$rand -- cs_initialise_includes()... couteau_suisse_fonctions.php sera peut-etre inclus.");
if ($log)
cs_log("$rand -- cs_initialise_includes()... couteau_suisse_fonctions.php sera peut-etre inclus.");
// creer les includes (config/mes_options, mes_options et mes_fonctions) et le fichier de controle pipelines.php
if($init_includes) cs_initialise_includes(count($metas_outils));
if ($init_includes)
cs_initialise_includes(count($metas_outils));
// verifier le fichier d'options _FILE_OPTIONS (ecrire/mes_options.php ou config/mes_options.php)
// De'sactive' par de'faut. Activer l'outil "Comportements du Couteau Suisse" pour ge'rer cette option.
cs_verif_FILE_OPTIONS($metas_outils['cs_comportement']['actif'] && $metas_vars['spip_options_on'], true);
// sauver la configuration
cs_sauve_configuration();
if($log) cs_log("$rand -- ecriture metas");
if ($log)
cs_log("$rand -- ecriture metas");
// en metas : outils actifs
ecrire_meta('tweaks_actifs', serialize($metas_outils));
// en metas : variables d'outils
@ -118,19 +135,21 @@ if($log) cs_log("$rand -- ecriture metas");
ecrire_meta('tweaks_pipelines', serialize($cs_metas_pipelines));
// maj forcee des fichiers distants ?
$test = 0;
foreach($metas_outils as $nom=>$o)
if(isset($o['actif']) && $o['actif'] && isset($o['maj_distant']) && $o['maj_distant']) {
foreach ($metas_outils as $nom => $o)
if (isset($o['actif']) && $o['actif'] && isset($o['maj_distant']) && $o['maj_distant']) {
cs_action_fichiers_distants($outils[$nom], true, true);
if(!isset($outils[$nom]['erreurs']['fichiers_distants'])) {
if (!isset($outils[$nom]['erreurs']['fichiers_distants'])) {
$metas_outils[$nom]['maj_distant'] = 0;
$test = 1;
} else
$test = 1;
} else
spip_log("Erreur - cs_action_fichiers_distants() : l'outil \"$nom\" ne peut mettre a jour ses fichiers distants !");
}
if($test) ecrire_meta('tweaks_actifs', serialize($metas_outils));
if ($test)
ecrire_meta('tweaks_actifs', serialize($metas_outils));
ecrire_metas(); # Pour SPIP 1.92
$GLOBALS['cs_init'] = 0;
if($log) cs_log("{$rand}cs_initialisation($forcer) : Sortie");
if ($log)
cs_log("{$rand}cs_initialisation($forcer) : Sortie");
}
/*
@ -143,13 +162,12 @@ define('_BALISES_BLOCS',
.'d[ltd]|script|noscript|map|button|fieldset');
*/
function cs_block($texte) {
return preg_match(',(\n\n|\r\n\r\n|\r\r),', $texte)
|| preg_match(',(\n|^)-[*]* a|</?(p|'._BALISES_BLOCS.')[>[:space:]],iS', $texte);
return preg_match(',(\n\n|\r\n\r\n|\r\r),', $texte) || preg_match(',(\n|^)-[*]* a|</?(p|' . _BALISES_BLOCS . ')[>[:space:]],iS', $texte);
}
// fonction callback pour cs_echappe_balises
function cs_echappe_html_callback($matches) {
return _CS_HTMLA.cs_code_echappement($matches[1], 'CS');
return _CS_HTMLA . cs_code_echappement($matches[1], 'CS');
}
// evite les transformations typo dans les balises $balises
@ -159,35 +177,40 @@ function cs_echappe_html_callback($matches) {
// $texte est le texte d'origine
// si $balises = '' alors la protection par defaut est : html|code|cadre|frame|script
// si $balises = false alors le texte est utilise tel quel
function cs_echappe_balises($balises, $fonction, $texte, $arg=NULL){
if(!strlen($texte)) return '';
if (($fonction!==false) && !function_exists($fonction)) {
function cs_echappe_balises($balises, $fonction, $texte, $arg = NULL) {
if (!strlen($texte))
return '';
if (($fonction !== false) && !function_exists($fonction)) {
// chargement des fonctions
include_spip('couteau_suisse_fonctions');
if (!function_exists($fonction)) {
spip_log("Erreur - cs_echappe_balises() : $fonction() non definie dans : ".$_SERVER['REQUEST_URI']);
spip_log("Erreur - cs_echappe_balises() : $fonction() non definie dans : " . $_SERVER['REQUEST_URI']);
return $texte;
}
}
// trace d'anciennes balises <html></html> ou autre echappement SPIP ?
if(strpos($texte, _CS_HTMLA)!==false) {
$texte = preg_replace(',<p[^>]*>(\s*'._CS_HTMLX.')</p>,', '$1', $texte);
$texte = preg_replace_callback(','._CS_HTMLA.'(.*?)(?='._CS_HTMLB.'),s', 'cs_echappe_html_callback', $texte);
if (strpos($texte, _CS_HTMLA) !== false) {
$texte = preg_replace(',<p[^>]*>(\s*' . _CS_HTMLX . ')</p>,', '$1', $texte);
$texte = preg_replace_callback(',' . _CS_HTMLA . '(.*?)(?=' . _CS_HTMLB . '),s', 'cs_echappe_html_callback', $texte);
}
// protection du texte
if($balises!==false) {
if(!strlen($balises)) $balises = 'html|code|cadre|frame|script';
$balises = ',<('.$balises.')(\s[^>]*)?>(.*)</\1>,UimsS';
if ($balises !== false) {
if (!strlen($balises))
$balises = 'html|code|cadre|frame|script';
$balises = ',<(' . $balises . ')(\s[^>]*)?>(.*)</\1>,UimsS';
include_spip('inc/texte');
$texte = echappe_html($texte, 'CS', true, $balises);
}
// retour du texte simplement protege
if ($fonction===false) return $texte;
if ($fonction === false)
return $texte;
// transformation par $fonction
$texte = $arg==NULL?$fonction($texte):$fonction($texte, $arg);
$texte = $arg == NULL ? $fonction($texte) : $fonction($texte, $arg);
// deprotection en abime, notamment des modeles...
if(strpos($texte, 'base64CS')!==false) $texte = echappe_retour($texte, 'CS');
if(strpos($texte, 'base64CS')!==false) return echappe_retour($texte, 'CS');
if (strpos($texte, 'base64CS') !== false)
$texte = echappe_retour($texte, 'CS');
if (strpos($texte, 'base64CS') !== false)
return echappe_retour($texte, 'CS');
return $texte;
}
@ -196,116 +219,137 @@ function cs_canonicalize($file) {
$file = str_replace('//', '/', str_replace('\\', '/', $file));
$file = explode('/', $file);
$keys = array_keys($file, '..');
foreach($keys as $keypos => $key) if($key) array_splice($file, $key - ($keypos * 2 + 1), 2);
foreach ($keys as $keypos => $key)
if ($key)
array_splice($file, $key - ($keypos * 2 + 1), 2);
$file = implode('/', $file);
return preg_replace(',([^.])\./,', '\1', $file);
}
// retourne un chemin canonique base sur la racine du site
// $relatif est le chemin relatif dans lequel on veut situer $file
function cs_root_canonicalize($file, $relatif='') {
function cs_root_canonicalize($file, $relatif = '') {
static $root, $lenroot;
//echo " ($file => ";
//echo " ($file => ";
$file = cs_canonicalize($file);
//echo "$file) ";
if(!isset($root)) $lenroot = strlen($root = cs_canonicalize(_ROOT_RACINE));
//echo "$file) ";
if (!isset($root))
$lenroot = strlen($root = cs_canonicalize(_ROOT_RACINE));
// complet sur la racine du serveur
if(strncmp($file, $root, $lenroot)===0) return substr($file, $lenroot);
if (strncmp($file, $root, $lenroot) === 0)
return substr($file, $lenroot);
// complet sur la racine du site
if(strncmp($file, '/', 1)===0) return substr($file, 1);
if (strncmp($file, '/', 1) === 0)
return substr($file, 1);
// relatif
$file = cs_canonicalize(getcwd().'/'.$relatif.'/'.$file);
if(strncmp($file, $root, $lenroot)===0) return substr($file, $lenroot);
$file = cs_canonicalize(getcwd() . '/' . $relatif . '/' . $file);
if (strncmp($file, $root, $lenroot) === 0)
return substr($file, $lenroot);
return $file;
}
// manipule le fichier config/mes_options.php
function cs_ecrire_config($regexpr, $replace, $ajout_sinon='') {
function cs_ecrire_config($regexpr, $replace, $ajout_sinon = '') {
$fo = cs_spip_file_options(1);
$t = '';
if ($fo && ((is_array($regexpr) && count($regexpr)) || strlen($regexpr))
&& ((is_array($replace) && count($replace)) || strlen($replace))) {
$t = '';
if ($fo && ((is_array($regexpr) && count($regexpr)) || strlen($regexpr)) && ((is_array($replace) && count($replace)) || strlen($replace))) {
if (lire_fichier($fo, $t) && strlen($t)) {
$t = preg_replace($regexpr, $replace, $t, 1);
if(ecrire_fichier($fo, $t)) return;
else if(defined('_LOG_CS')) cs_log("ERREUR : l'ecriture du fichier $fo a echoue !");
} else if(defined('_LOG_CS')) cs_log(" -- fichier $fo illisible. Inclusion non permise");
if(strlen($t)) return;
if (ecrire_fichier($fo, $t))
return;
else if (defined('_LOG_CS'))
cs_log("ERREUR : l'ecriture du fichier $fo a echoue !");
} else if (defined('_LOG_CS'))
cs_log(" -- fichier $fo illisible. Inclusion non permise");
if (strlen($t))
return;
}
// creation
if(!strlen($ajout_sinon)) return;
if (!strlen($ajout_sinon))
return;
$fo = cs_spip_file_options(2);
$ok = ecrire_fichier($fo, '<?'."php\n".$ajout_sinon."\n?".'>');
if(defined('_LOG_CS')) cs_log(" -- fichier $fo absent ".($ok?'mais cree avec l\'inclusion':' et impossible a creer'));
$ok = ecrire_fichier($fo, '<?' . "php\n" . $ajout_sinon . "\n?" . '>');
if (defined('_LOG_CS'))
cs_log(" -- fichier $fo absent " . ($ok ? 'mais cree avec l\'inclusion' : ' et impossible a creer'));
}
// liste des barres typo disponibles
function cs_pp_liste_barres($outil=false) {
function cs_pp_liste_barres($outil = false) {
global $metas_vars;
// pour barre_outils_liste() qu'on trouve maintenant dans l'extension porte_plume
if(defined('_SPIP30000')) include_spip('public/parametrer');
else include_spip('inc/barre_outils');
if (!$sets = barre_outils_liste()) return array();
if($outil) foreach($sets as $f=>$b) {
$v = 'pp_'.$b.'_'.$outil;
// par defaut le bouton est present dans toutes les barres
if(isset($metas_vars[$v]) && !$metas_vars[$v]) unset($sets[$f]);
}
if (defined('_SPIP30000'))
include_spip('public/parametrer');
else
include_spip('inc/barre_outils');
if (!$sets = barre_outils_liste())
return array();
if ($outil)
foreach ($sets as $f => $b) {
$v = 'pp_' . $b . '_' . $outil;
// par defaut le bouton est present dans toutes les barres
if (isset($metas_vars[$v]) && !$metas_vars[$v])
unset($sets[$f]);
}
return $sets;
}
// renvoie la meta d'un outil (fonction obsolete)
function cs_lire_meta_outil($outil, $meta='', $unserialize=true) {
if(!$meta) $meta = 'cs_'.$outil;
if (!isset($GLOBALS['meta'][$meta])) { $f = $outil.'_installe'; $f(); }
return $unserialize?unserialize($GLOBALS['meta'][$meta]):$GLOBALS['meta'][$meta];
function cs_lire_meta_outil($outil, $meta = '', $unserialize = true) {
if (!$meta)
$meta = 'cs_' . $outil;
if (!isset($GLOBALS['meta'][$meta])) {
$f = $outil . '_installe';
$f();
}
return $unserialize ? unserialize($GLOBALS['meta'][$meta]) : $GLOBALS['meta'][$meta];
}
// renvoie les donnees precompilees d'un outil
function cs_lire_data_outil($outil, $casier_=false) {
function cs_lire_data_outil($outil, $casier_ = false) {
static $datas = array();
$casier = ($casier_ && $casier_!==$outil)?$outil.'_'.$casier_:$outil;
if(isset($datas[$casier]))
$casier = ($casier_ && $casier_ !== $outil) ? $outil . '_' . $casier_ : $outil;
if (isset($datas[$casier]))
return $datas[$casier];
// recherche dans le fichier cache
if(!(isset($GLOBALS['cs_outils']) && $GLOBALS['cs_outils']) && @is_readable($f = _DIR_CS_TMP.'mes_outils.php'))
if (!(isset($GLOBALS['cs_outils']) && $GLOBALS['cs_outils']) && @is_readable($f = _DIR_CS_TMP . 'mes_outils.php'))
include_once($f);
if(function_exists($f = 'cs_data_'.$casier))
if (function_exists($f = 'cs_data_' . $casier))
return $datas[$casier] = $f();
// installation de l'outil
include_spip('outils/'.$outil);
if( (function_exists($f = $outil.'_installe') || function_exists($f = $f.'_dist'))
&& ($tmp=$f())
&& (isset($tmp[$ok=$casier]) || (!$casier_ && (isset($tmp[$ok=0]) || isset($tmp[$ok=$outil])))))
return $datas[$ok] = $tmp[$ok];
include_spip('outils/' . $outil);
if ((function_exists($f = $outil . '_installe') || function_exists($f = $f . '_dist')) && ($tmp = $f()) && (isset($tmp[$ok = $casier]) || (!$casier_ && (isset($tmp[$ok = 0]) || isset($tmp[$ok = $outil])))))
return $datas[$ok] = $tmp[$ok];
return NULL;
}
function rep_icones_barre(&$icones_barre) {
if(defined('_SPIP20100')) include_spip('images_fonctions');
if(!isset($icones_barre))
if (defined('_SPIP20100'))
include_spip('images_fonctions');
if (!isset($icones_barre))
$icones_barre = sous_repertoire(sous_repertoire(_DIR_VAR, 'couteau-suisse'), 'icones_barre');
}
// au stade mes_options, cette constante n'est pas encore definie...
function define_IMG_GD_MAX_PIXELS() {
if(!defined('_IMG_GD_MAX_PIXELS'))
define('_IMG_GD_MAX_PIXELS', (isset($GLOBALS['meta']['max_taille_vignettes'])&&$GLOBALS['meta']['max_taille_vignettes']<5500000)?$GLOBALS['meta']['max_taille_vignettes']:0);
if (!defined('_IMG_GD_MAX_PIXELS'))
define('_IMG_GD_MAX_PIXELS', (isset($GLOBALS['meta']['max_taille_vignettes']) && $GLOBALS['meta']['max_taille_vignettes'] < 5500000) ? $GLOBALS['meta']['max_taille_vignettes'] : 0);
}
// renvoie _T('couteauprive:'.$texte) puis detruit la chaine du module concerne
if(defined('_SPIP30100')) {
if (defined('_SPIP30100')) {
function couteauprive_T($texte, $args = array()) {
$res = _T('couteauprive:'.$texte, $args, array('sanitize' => FALSE));
if(isset($GLOBALS[$tmp='i18n_couteauprive_'.$GLOBALS['spip_lang']][$texte]))
unset($GLOBALS[$tmp][$texte]);
$res = _T('couteauprive:' . $texte, $args, array(
'sanitize' => FALSE
));
if (isset($GLOBALS[$tmp = 'i18n_couteauprive_' . $GLOBALS['spip_lang']][$texte]))
unset($GLOBALS[$tmp][$texte]);
return $res;
}
} else {
function couteauprive_T($texte, $args = array()) {
$res = _T('couteauprive:'.$texte, $args);
if(defined('_SPIP19300') && isset($GLOBALS[$tmp='i18n_couteauprive_'.$GLOBALS['spip_lang']][$texte]))
unset($GLOBALS[$tmp][$texte]);
$res = _T('couteauprive:' . $texte, $args);
if (defined('_SPIP19300') && isset($GLOBALS[$tmp = 'i18n_couteauprive_' . $GLOBALS['spip_lang']][$texte]))
unset($GLOBALS[$tmp][$texte]);
return $res;
}
}

193
cout_pipelines.php

@ -8,10 +8,12 @@
# Fichier contenant les fonctions relatives aux #
# pipelines appeles par SPIP. #
#-----------------------------------------------------#
if(!defined("_ECRIRE_INC_VERSION")) return;
if (!defined("_ECRIRE_INC_VERSION"))
return;
// attention, ici il se peut que le plugin ne soit pas initialise (cas des .js/.css par exemple)
if(defined('_LOG_CS')) cs_log("inclusion de cout_pipelines.php");
if (defined('_LOG_CS'))
cs_log("inclusion de cout_pipelines.php");
// fonction d'erreur indispensable a tous les pipelines
function cs_deferr($f) {
@ -23,41 +25,44 @@ function cs_deferr($f) {
*********/
// ajout d'un onglet sur la page de configuration de SPIP<3
function couteau_suisse_ajouter_onglets($flux){
function couteau_suisse_ajouter_onglets($flux) {
include_spip('inc/autoriser');
$arg = $flux['args']=='configuration' || $flux['args']=='plugins';
$arg = $flux['args'] == 'configuration' || $flux['args'] == 'plugins';
// si on est admin...
if($arg && autoriser('configurer', 'cs'))
$flux['data']['couteau_suisse']= new Bouton(cs_icone(24), 'couteau:titre', generer_url_ecrire('admin_couteau_suisse'));
if ($arg && autoriser('configurer', 'cs'))
$flux['data']['couteau_suisse'] = new Bouton(cs_icone(24), 'couteau:titre', generer_url_ecrire('admin_couteau_suisse'));
return $flux;
}
function eval_metas_pipelines(&$flux, $pipe){
function eval_metas_pipelines(&$flux, $pipe) {
global $cs_metas_pipelines;
if(isset($cs_metas_pipelines[$pipe])) eval($cs_metas_pipelines[$pipe]);
if (isset($cs_metas_pipelines[$pipe]))
eval($cs_metas_pipelines[$pipe]);
return $flux;
}
function couteau_suisse_affiche_gauche($flux){
function couteau_suisse_affiche_gauche($flux) {
return eval_metas_pipelines($flux, 'affiche_gauche');
}
function couteau_suisse_affiche_droite($flux){
function couteau_suisse_affiche_droite($flux) {
return eval_metas_pipelines($flux, 'affiche_droite');
}
function couteau_suisse_affiche_milieu($flux){
function couteau_suisse_affiche_milieu($flux) {
return eval_metas_pipelines($flux, 'affiche_milieu');
}
function couteau_suisse_boite_infos($flux){
function couteau_suisse_boite_infos($flux) {
return eval_metas_pipelines($flux, 'boite_infos');
}
function couteau_suisse_pre_boucle($flux){
function couteau_suisse_pre_boucle($flux) {
return eval_metas_pipelines($flux, 'pre_boucle');
}
function couteau_suisse_header_prive($flux_){
function couteau_suisse_header_prive($flux_) {
global $cs_metas_pipelines;
$flux = '';
if(isset($cs_metas_pipelines['header_prive'])) eval($cs_metas_pipelines['header_prive']);
cs_compile_header($flux,'css', '_prive', false); cs_compile_header($flux, 'js', '_prive');
if (isset($cs_metas_pipelines['header_prive']))
eval($cs_metas_pipelines['header_prive']);
cs_compile_header($flux, 'css', '_prive', false);
cs_compile_header($flux, 'js', '_prive');
return $flux_ . $flux;
}
@ -66,34 +71,37 @@ function couteau_suisse_header_prive($flux_){
* PUBLIC *
**********/
function couteau_suisse_insert_head_css($flux_ = '', $prive = false){
function couteau_suisse_insert_head_css($flux_ = '', $prive = false) {
static $done = false;
if($done) return $flux_;
if ($done)
return $flux_;
$done = true;
global $cs_metas_pipelines;
$flux = '';
if(isset($cs_metas_pipelines['insert_head_css'])) eval($cs_metas_pipelines['insert_head_css']);
if (isset($cs_metas_pipelines['insert_head_css']))
eval($cs_metas_pipelines['insert_head_css']);
cs_compile_header($flux, 'css');
return $flux_ . $flux;
}
function couteau_suisse_insert_head($flux_){
function couteau_suisse_insert_head($flux_) {
global $cs_metas_pipelines;
$flux = '';
if(isset($cs_metas_pipelines['insert_head'])) eval($cs_metas_pipelines['insert_head']);
if (isset($cs_metas_pipelines['insert_head']))
eval($cs_metas_pipelines['insert_head']);
cs_compile_header($flux, 'js');
return $flux_
. couteau_suisse_insert_head_css() // en cas d'absence de balise #INSERT_HEAD_CSS
return $flux_ . couteau_suisse_insert_head_css() // en cas d'absence de balise #INSERT_HEAD_CSS
. $flux;
}
function couteau_suisse_affichage_final($flux){
function couteau_suisse_affichage_final($flux) {
eval_metas_pipelines($flux, 'affichage_final');
return cs_nettoie($flux);
}
function couteau_suisse_recuperer_fond($flux){
$fond = &$flux['args']['fond']; $texte = &$flux['data']['texte'];
function couteau_suisse_recuperer_fond($flux) {
$fond = &$flux['args']['fond'];
$texte = &$flux['data']['texte'];
eval_metas_pipelines($flux, 'recuperer_fond');
$texte = cs_nettoie($texte);
return $flux;
@ -103,29 +111,29 @@ function couteau_suisse_recuperer_fond($flux){
* TYPO *
********/
function couteau_suisse_nettoyer_raccourcis_typo($flux){
function couteau_suisse_nettoyer_raccourcis_typo($flux) {
return eval_metas_pipelines($flux, 'nettoyer_raccourcis_typo');
}
function couteau_suisse_pre_propre($flux){
function couteau_suisse_pre_propre($flux) {
return eval_metas_pipelines($flux, 'pre_propre');
}
function couteau_suisse_pre_typo($flux){
function couteau_suisse_pre_typo($flux) {
return eval_metas_pipelines($flux, 'pre_typo');
}
function couteau_suisse_post_propre($flux){
function couteau_suisse_post_propre($flux) {
eval_metas_pipelines($flux, 'post_propre');
// tracage des echappements SPIP (<html/><code/><cadre/> etc.) pour les traitements (s'il y en a) venant apres propre()
// Note : SPIP echappe egalement les modeles
if($GLOBALS['cs_post_propre']) {
if(strpos($flux, '<span class="base64"')!==false)
$flux = preg_replace(',<span class="base64"[^>]+></span>,', _CS_HTMLA.'$0'._CS_HTMLB, $flux);
if(strpos($flux, '<div class="base64"')!==false)
$flux = preg_replace(',<div class="base64"[^>]+></div>,', _CS_HTMLA.'$0'._CS_HTMLB, $flux);
if ($GLOBALS['cs_post_propre']) {
if (strpos($flux, '<span class="base64"') !== false)
$flux = preg_replace(',<span class="base64"[^>]+></span>,', _CS_HTMLA . '$0' . _CS_HTMLB, $flux);
if (strpos($flux, '<div class="base64"') !== false)
$flux = preg_replace(',<div class="base64"[^>]+></div>,', _CS_HTMLA . '$0' . _CS_HTMLB, $flux);
}
return $flux;
}
function couteau_suisse_post_typo($flux){
function couteau_suisse_post_typo($flux) {
return eval_metas_pipelines($flux, 'post_typo');
}
@ -133,10 +141,10 @@ function couteau_suisse_post_typo($flux){
* BASE *
*******/
function couteau_suisse_pre_edition($flux){
function couteau_suisse_pre_edition($flux) {
return eval_metas_pipelines($flux, 'pre_edition');
}
function couteau_suisse_post_edition($flux){
function couteau_suisse_post_edition($flux) {
return eval_metas_pipelines($flux, 'post_edition');
}
@ -144,32 +152,33 @@ function couteau_suisse_post_edition($flux){
* DIVERS *
*********/
function couteau_suisse_formulaire_verifier($flux){
function couteau_suisse_formulaire_verifier($flux) {
return eval_metas_pipelines($flux, 'formulaire_verifier');
}
function couteau_suisse_taches_generales_cron($flux){
function couteau_suisse_taches_generales_cron($flux) {
return eval_metas_pipelines($flux, 'taches_generales_cron');
}
// pipeline SPIP<2.1
function couteau_suisse_creer_chaine_url($flux){
function couteau_suisse_creer_chaine_url($flux) {
return eval_metas_pipelines($flux, 'creer_chaine_url');
}
// pipelines SPIP>=2.0
function couteau_suisse_declarer_tables_interfaces($flux){
if(function_exists('cs_table_des_traitements')) cs_table_des_traitements($flux['table_des_traitements']);
function couteau_suisse_declarer_tables_interfaces($flux) {
if (function_exists('cs_table_des_traitements'))
cs_table_des_traitements($flux['table_des_traitements']);
return eval_metas_pipelines($flux, 'declarer_tables_interfaces');
}
// pipelines SPIP>=2.1
function couteau_suisse_arbo_creer_chaine_url($flux){
function couteau_suisse_arbo_creer_chaine_url($flux) {
return eval_metas_pipelines($flux, 'arbo_creer_chaine_url');
}
function couteau_suisse_propres_creer_chaine_url($flux){
function couteau_suisse_propres_creer_chaine_url($flux) {
return eval_metas_pipelines($flux, 'propres_creer_chaine_url');
}
// pipelines SPIP>=3.0
function couteau_suisse_ajouter_menus($flux){
function couteau_suisse_ajouter_menus($flux) {
return eval_metas_pipelines($flux, 'ajouter_menus');
}
@ -177,12 +186,18 @@ function couteau_suisse_ajouter_menus($flux){
// le contenu du sous-menu est gere par les lames elles-memes
function couteau_suisse_bt_toolbox($params) {
global $cs_metas_pipelines;
if(!isset($cs_metas_pipelines['bt_toolbox'])) return $params;
if (!isset($cs_metas_pipelines['bt_toolbox']))
return $params;
$flux = '';
eval($cs_metas_pipelines['bt_toolbox']);
$tableau_formulaire = '
<table class="spip_barre" style="width: auto; padding: 1px!important; border-top: 0px;" summary="">'
. str_replace(array('@@champ@@','@@span@@'), array($params['champ'], 'span style="vertical-align:75%;"'), $flux) . '
<table class="spip_barre" style="width: auto; padding: 1px!important; border-top: 0px;" summary="">' . str_replace(array(
'@@champ@@',
'@@span@@'
), array(
$params['champ'],
'span style="vertical-align:75%;"'
), $flux) . '
</table>';
$params['flux'] .= produceWharf('couteau_suisse', '', $tableau_formulaire);
return $params;
@ -190,29 +205,30 @@ function couteau_suisse_bt_toolbox($params) {
// bouton principal du Couteau Suisse
function couteau_suisse_bt_gadgets($params) {
global $cs_metas_pipelines;
if(!isset($cs_metas_pipelines['bt_toolbox'])) return $params;
$params['flux'] .= bouton_barre_racc("swap_couche('".$GLOBALS['numero_block']['couteau_suisse']."','');", cs_icone(24), _T('couteauprive:raccourcis_barre'), $params['help']);
if (!isset($cs_metas_pipelines['bt_toolbox']))
return $params;
$params['flux'] .= bouton_barre_racc("swap_couche('" . $GLOBALS['numero_block']['couteau_suisse'] . "','');", cs_icone(24), _T('couteauprive:raccourcis_barre'), $params['help']);
return $params;
}
function couteau_suisse_porte_plume_barre_pre_charger($flux){
function couteau_suisse_porte_plume_barre_pre_charger($flux) {
eval_metas_pipelines($flux, 'porte_plume_barre_pre_charger');
$barres = pipeline('porte_plume_cs_pre_charger', array());
$r = array(
$r = array(
"id" => 'couteau_suisse_drop',
"name" => _T('couteau:pp_couteau_suisse_drop'),
"className" => 'couteau_suisse_drop',
"replaceWith" => '',
"display" => true,
"display" => true
);
foreach($barres as $barre=>$menu) {
foreach ($barres as $barre => $menu) {
$r["dropMenu"] = $menu;
$flux[$barre]->ajouterApres('grpCaracteres', $r);
}
return $flux;
}
function couteau_suisse_porte_plume_lien_classe_vers_icone($flux){
function couteau_suisse_porte_plume_lien_classe_vers_icone($flux) {
global $cs_metas_pipelines;
if (isset($cs_metas_pipelines['porte_plume_lien_classe_vers_icone'])) {
$flux['couteau_suisse_drop'] = 'couteau-19.png';
@ -224,13 +240,13 @@ function couteau_suisse_porte_plume_lien_classe_vers_icone($flux){
}
// pipeline maison : bouton sous un drop Couteau Suisse
function couteau_suisse_porte_plume_cs_pre_charger($flux){
function couteau_suisse_porte_plume_cs_pre_charger($flux) {
return eval_metas_pipelines($flux, 'porte_plume_cs_pre_charger');
}
// compatibilite avec le plugin Facteur
function couteau_suisse_facteur_pre_envoi($flux){
function couteau_suisse_facteur_pre_envoi($flux) {
return eval_metas_pipelines($flux, 'facteur_pre_envoi');
}
@ -238,67 +254,74 @@ function couteau_suisse_facteur_pre_envoi($flux){
// flux['outil'] est l'id de l'outil, $flux['actif'] est l'etat de l'outil, flux['texte'] est le texte de description
function couteau_suisse_pre_description_outil($flux) {
global $cs_metas_pipelines;
$id = &$flux['outil']; $texte = &$flux['texte'];
if(isset($cs_metas_pipelines['pre_description_outil']))
$id = &$flux['outil'];
$texte = &$flux['texte'];
if (isset($cs_metas_pipelines['pre_description_outil']))
eval($cs_metas_pipelines['pre_description_outil']);
return $flux;
}
// A l'issue du telechargement d'un fichier distant
function couteau_suisse_fichier_distant($flux) {
global $cs_metas_pipelines;
if(isset($cs_metas_pipelines['fichier_distant']))
if (isset($cs_metas_pipelines['fichier_distant']))
eval($cs_metas_pipelines['fichier_distant']);
return $flux;
}
// callback pour la fonction cs_compile_pipe()
function cs_compile_header_callback($matches) {
if(defined('_LOG_CS')) cs_log(" -- compilation d'un header. Code CSS : ".couper($matches[1], 150));
if (defined('_LOG_CS'))
cs_log(" -- compilation d'un header. Code CSS : " . couper($matches[1], 150));
return cs_recuperer_code($matches[1]);
}
// recherche et compilation par SPIP du contenu d'un fichier .html : <cs_html>contenu</cs_html>
// $type = 'css' ou 'js'
function cs_compile_header(&$flux, $type_, $suffixe='', $rem=true) {
//if(defined('_LOG_CS')) cs_log(" -- recherche de compilations necessaires du header.");
function cs_compile_header(&$flux, $type_, $suffixe = '', $rem = true) {
//if(defined('_LOG_CS')) cs_log(" -- recherche de compilations necessaires du header.");
global $cs_metas_pipelines;
if(isset($cs_metas_pipelines[$type = 'header_'.$type_.$suffixe])) {
if (isset($cs_metas_pipelines[$type = 'header_' . $type_ . $suffixe])) {
$header = &$cs_metas_pipelines[$type];
if(strpos($header, '<cs_html>')!==false) {
if (strpos($header, '<cs_html>') !== false) {
$header = preg_replace_callback(',<cs_html>(.*)</cs_html>,Ums', 'cs_compile_header_callback', $header);
// sauvegarde en metas
ecrire_meta('tweaks_pipelines', serialize($cs_metas_pipelines));
ecrire_metas();
ecrire_fichier(_DIR_CS_TMP.$type.'.html', "<!-- Fichier de controle $type_ pour le plugin 'Couteau Suisse' -->\n\n$header");
ecrire_fichier(_DIR_CS_TMP . $type . '.html', "<!-- Fichier de controle $type_ pour le plugin 'Couteau Suisse' -->\n\n$header");
}
$flux .= $header;
}
if($rem)
$flux = strlen(trim($flux))?"\n<!-- Debut CS -->\n$flux\n<!-- Fin CS -->\n\n":"\n<!-- CS vide -->\n\n";
if ($rem)
$flux = strlen(trim($flux)) ? "\n<!-- Debut CS -->\n$flux\n<!-- Fin CS -->\n\n" : "\n<!-- CS vide -->\n\n";
}
// construction d'un hit
// (recherche et compilation par SPIP du contenu d'un fichier .html : <cs_html>contenu</cs_html>)
// $type = 'css' ou 'js'
function cs_header_hit(&$flux, $type, $suffixe='') {
$f = "header$suffixe.$type";
$nom = sous_repertoire(_DIR_VAR,'couteau-suisse') . $f;
function cs_header_hit(&$flux, $type, $suffixe = '') {
$f = "header$suffixe.$type";
$nom = sous_repertoire(_DIR_VAR, 'couteau-suisse') . $f;
$tmp = _DIR_CS_TMP . $f;
if(!file_exists($tmp) || !file_exists($nom) || (defined('_VAR_MODE') && _VAR_MODE=='recalcul') || _request('var_mode')=='recalcul') {
if (lire_fichier(_DIR_CS_TMP."header.$type.html", $t) && strlen($t)) {
if(strpos($t, '<cs_html>')!==false)
if (!file_exists($tmp) || !file_exists($nom) || (defined('_VAR_MODE') && _VAR_MODE == 'recalcul') || _request('var_mode') == 'recalcul') {
if (lire_fichier(_DIR_CS_TMP . "header.$type.html", $t) && strlen($t)) {
if (strpos($t, '<cs_html>') !== false)
$t = preg_replace_callback(',<cs_html>(.*)</cs_html>,Ums', 'cs_compile_header_callback', $t);
ecrire_fichier($nom, $t, true);
ecrire_fichier($tmp, $t, true);
} else {
if(defined('_LOG_CS')) cs_log(" -- fichier $fo illisible. hit non construit");
if (defined('_LOG_CS'))
cs_log(" -- fichier $fo illisible. hit non construit");
return;
}
}
switch($type) {
case 'js': $flux .= '<script src="'.$nom.'" type="text/javascript"></script>'; break;
case 'css': include_spip('inc/filtres');
$flux .= '<link rel="stylesheet" href="'.direction_css($nom).'" type="text/css" media="all" />'; break;
switch ($type) {
case 'js':
$flux .= '<script src="' . $nom . '" type="text/javascript"></script>';
break;
case 'css':
include_spip('inc/filtres');
$flux .= '<link rel="stylesheet" href="' . direction_css($nom) . '" type="text/css" media="all" />';
break;
}
}
@ -306,15 +329,17 @@ function cs_header_hit(&$flux, $type, $suffixe='') {
* recupere le resultat du calcul d'une compilation de code de squelette (marcimat)
* $coucou = $this->recuperer_code('[(#AUTORISER{ok}|oui)coucou]');
*/
function cs_recuperer_code(&$code) {//, $contexte=array(), $options = array(), $connect=''){
function cs_recuperer_code(&$code) { //, $contexte=array(), $options = array(), $connect=''){
$fond = _DIR_CS_TMP . md5($code);
$base = $fond . '.html';
if(!file_exists($base) || (defined('_VAR_MODE') && _VAR_MODE=='recalcul') || _request('var_mode')=='recalcul')
if (!file_exists($base) || (defined('_VAR_MODE') && _VAR_MODE == 'recalcul') || _request('var_mode') == 'recalcul')
ecrire_fichier($base, $code);
include_spip('public/assembler');
$fond = str_replace('../', '', $fond);
// return recuperer_fond($fond, array('fond'=>$fond));
$f = inclure_page($fond, array('fond'=>$fond));
// return recuperer_fond($fond, array('fond'=>$fond));
$f = inclure_page($fond, array(
'fond' => $fond
));
return $f['texte'];
}

402
couteau_suisse_administrations.php

@ -1,184 +1,220 @@
<?php
// pour tester la MAJ !
# $GLOBALS['meta']['couteau_suisse_base_version']='1.8';
if(!defined('_SPIP20100')) {
// Versions SPIP anterieures a 2.1
function couteau_suisse_install($action){
static $ok = 0;
if(defined('_LOG_CS')) cs_log("couteau_suisse_install($action)");
include_spip('inc/meta');
include_spip('inc/plugin');
if(isset($GLOBALS['meta']['plugin'])) {
$t = unserialize($GLOBALS['meta']['plugin']);
$t = $t['COUTEAU_SUISSE']['dir'];
}
$t = plugin_get_infos(strlen($t)?$t:'couteau_suisse');
switch ($action){
case 'test':
// affichage d'un lien ici, puisque le pipeline 'affiche_gauche' n'est pas pris en compte dans 'admin_plugin'...
if(!$ok && _request('exec') == 'admin_plugin') {
if(!defined('_SPIP19300')) echo '<br />';
include_spip('inc/presentation');
echo debut_cadre_enfonce('', true),
icone_horizontale(_T('couteau:titre'), generer_url_ecrire('admin_couteau_suisse'), cs_icone(24), '', false),
fin_cadre_enfonce(true);
$ok++;
}
return isset($GLOBALS['meta']['couteau_suisse_base_version'])
AND ($GLOBALS['meta']['couteau_suisse_base_version']>=$t['version_base'])
AND isset($GLOBALS['meta']['tweaks_actifs']);
break;
case 'install':
couteau_suisse_upgrade('couteau_suisse_base_version',$t['version_base']);
break;
case 'uninstall':
couteau_suisse_vider_tables('couteau_suisse_base_version');
break;
}
}
}
// desinstallation des donnees du plugin
function couteau_suisse_vider_tables($nom_meta_base_version) {
effacer_meta($nom_meta_base_version);
// effacement de toutes les metas du Couteau Suisse
foreach(array_keys($GLOBALS['meta']) as $meta) {
if(strpos($meta, 'tweaks_') === 0) effacer_meta($meta);
if(strpos($meta, 'cs_') === 0) effacer_meta($meta);
}
ecrire_metas(); # Pour SPIP 1.92
// effacement des repertoires temporaires
include_spip('inc/getdocument');
foreach(array(_DIR_CS_TMP, _DIR_VAR.'couteau-suisse') as $dir)
if(@file_exists($dir)) effacer_repertoire_temporaire($dir);
// fichier RSS temporaire
include_spip('cout_define');
@unlink(_CS_TMP_RSS);
// retrait de l'inclusion eventuelle dans config/mes_options.php
include_spip('cout_utils');
cs_verif_FILE_OPTIONS(false, true);
}
// installation des tables du plugin et mises a jour
function couteau_suisse_upgrade($nom_meta_base_version, $version_cible){
if(defined('_LOG_CS')) cs_log("cout_upgrade : $nom_meta_base_version => $version_cible");
$current_version = '0.0';
if( isset($GLOBALS['meta'][$nom_meta_base_version])
&& !version_compare($current_version = $GLOBALS['meta'][$nom_meta_base_version], $version_cible) )
return;
if($current_version=='0.0') {
include_spip('base/create');
creer_base();
}
if(cs_le_test($current_version, $tmp, '1.0')) {
cs_suppr_metas_var('set_options');
cs_suppr_metas_var('radio_set_options3');
cs_suppr_metas_var('radio_set_options', 'radio_set_options4');
cs_suppr_metas_var('radio_type_urls', 'radio_type_urls3');
cs_suppr_metas_var('radio_type_urls2', 'radio_type_urls3');
cs_suppr_metas_var('radio_filtrer_javascript', 'radio_filtrer_javascript3');
cs_suppr_metas_var('radio_filtrer_javascript2', 'radio_filtrer_javascript3');
cs_suppr_metas_var('radio_suivi_forums', 'radio_suivi_forums3');
cs_suppr_metas_var('desactive_cache');
cs_suppr_metas_var('radio_desactive_cache', 'radio_desactive_cache3');
cs_suppr_metas_var('target_blank');
cs_suppr_metas_var('url_glossaire_externe', 'url_glossaire_externe2');
cs_suppr_metas_var('');
if(defined('_SPIP19300')) {
if(@$metas_vars['radio_desactive_cache3']==1) $metas_vars['radio_desactive_cache4']=-1;
cs_suppr_metas_var('radio_desactive_cache3');
}
foreach(array('cs_decoupe', 'cs_decoration', 'cs_decoration_racc', 'cs_smileys', 'cs_smileys_racc',
'cs_chatons', 'cs_chatons_racc', 'cs_jcorner', 'cs_couleurs', 'cs_couleurs_racc',
'cs_filets_sep', 'cs_filets_sep_racc', 'cs_insertions') as $meta)
effacer_meta($meta);
ecrire_meta($nom_meta_base_version, $current_version=$tmp);
}
if(cs_le_test($current_version, $tmp, '1.5')) {
// nouveau champ 'ordre'
include_spip('outils/boites_privees');
tri_auteurs_verifie_table(true);
ecrire_meta($nom_meta_base_version, $current_version=$tmp);
}
if(cs_le_test($current_version, $tmp, '1.7')) {
effacer_meta('tweaks_contribs');
// MAJ forcee de tous les fichiers distants
cs_maj_forcee(array('ecran_securite', 'previsualisation'));
ecrire_meta($nom_meta_base_version, $current_version=$tmp);
}
if(cs_le_test($current_version, $tmp, '1.10')) {
// MAJ pour rajeunissement
cs_maj_forcee(array('maj_auto', 'masquer', 'jcorner'));
ecrire_meta($nom_meta_base_version, $current_version=$tmp);
}
if(cs_le_test($current_version, $tmp, '1.11')) {
// anciens metas inusites
foreach(array('tweaks_smileys', 'tweaks_chatons', 'cs_spam_mots') as $meta)
effacer_meta($meta);
ecrire_meta($nom_meta_base_version, $current_version=$tmp);
}
ecrire_metas(); # Pour SPIP 1.92
}
function cs_le_test($current_version, &$tmp, $new) {
if($test = version_compare($current_version, $tmp=$new, '<')) {
echo '<h4>',_T('couteau:titre'),' - Upgrade ',$tmp,'</h4>';
$GLOBALS['cs_base_update'] .= $tmp.' > ';
}
return $test;
}
function cs_maj_forcee($liste) {
$outils = isset($GLOBALS['meta']['tweaks_actifs'])?unserialize($GLOBALS['meta']['tweaks_actifs']):array();
foreach($liste as $l) $outils[$l]['maj_distant'] = 1;
ecrire_meta('tweaks_actifs', serialize($outils));
}
function cs_suppr_metas_var($meta, $new = false) {
global $metas_vars;
if(!isset($metas_vars[$meta])) return;
if($new) {
if(preg_match(',([0-9A-Za-z_-]*)\(('.'[0-9A-Za-z_-]*=[A-Za-z_:-]+\|[0-9A-Za-z_:=>|-]+'.')\),', $metas_vars[$meta], $reg))
$metas_vars[$new] = $reg[1];
else $metas_vars[$new] = $metas_vars[$meta];
}
unset($metas_vars[$meta]);
}
/*******************/
/* PACKS DE CONFIG */
/*******************/
function cout_install_pack($pack, $redirige=false) {
global $metas_vars, $metas_outils;
$pack = &$GLOBALS['cs_installer'][$pack];
if(is_string($pack) && function_exists($pack)) $pack = $pack();
effacer_meta('tweaks_actifs');
$metas_vars = $metas_outils = array();
foreach(preg_split('%\s*[,|]\s*%', $pack['outils']) as $o) $metas_outils[trim($o)]['actif'] = 1;
if(is_array($pack['variables'])) foreach($pack['variables'] as $i=>$v) $metas_vars[$i] = $v;
ecrire_meta('tweaks_actifs', serialize($metas_outils));
ecrire_meta('tweaks_variables', serialize($metas_vars));
// tout recompiler
if($redirige) cout_exec_redirige('cmd=pack#cs_infos');
}
// redirige vers la page exec en cours en vue une reinitialisation du Couteau Suisse
// si $arg==false alors la redirection ne se fera pas (procedure d'installation par exemple)
function cout_exec_redirige($arg='', $recompiler=true) {
if($recompiler) {
ecrire_metas();
cs_initialisation(true);
include_spip('inc/invalideur');
suivre_invalideur('1'); # tout effacer
purger_repertoire(_DIR_SKELS);
purger_repertoire(_DIR_CACHE);
}
if($arg!==false) {
include_spip('inc/headers');
redirige_par_entete(generer_url_ecrire(_request('exec'), $arg, true));
}
}
<?php
// pour tester la MAJ !
# $GLOBALS['meta']['couteau_suisse_base_version']='1.8';
if (!defined('_SPIP20100')) {
// Versions SPIP anterieures a 2.1
function couteau_suisse_install($action) {
static $ok = 0;
if (defined('_LOG_CS'))
cs_log("couteau_suisse_install($action)");
include_spip('inc/meta');
include_spip('inc/plugin');
if (isset($GLOBALS['meta']['plugin'])) {
$t = unserialize($GLOBALS['meta']['plugin']);
$t = $t['COUTEAU_SUISSE']['dir'];
}
$t = plugin_get_infos(strlen($t) ? $t : 'couteau_suisse');
switch ($action) {
case 'test':
// affichage d'un lien ici, puisque le pipeline 'affiche_gauche' n'est pas pris en compte dans 'admin_plugin'...
if (!$ok && _request('exec') == 'admin_plugin') {
if (!defined('_SPIP19300'))
echo '<br />';
include_spip('inc/presentation');
echo debut_cadre_enfonce('', true), icone_horizontale(_T('couteau:titre'), generer_url_ecrire('admin_couteau_suisse'), cs_icone(24), '', false), fin_cadre_enfonce(true);
$ok++;
}
return isset($GLOBALS['meta']['couteau_suisse_base_version']) AND ($GLOBALS['meta']['couteau_suisse_base_version'] >= $t['version_base']) AND isset($GLOBALS['meta']['tweaks_actifs']);
break;
case 'install':
couteau_suisse_upgrade('couteau_suisse_base_version', $t['version_base']);
break;
case 'uninstall':
couteau_suisse_vider_tables('couteau_suisse_base_version');
break;
}
}
}
// desinstallation des donnees du plugin
function couteau_suisse_vider_tables($nom_meta_base_version) {
effacer_meta($nom_meta_base_version);
// effacement de toutes les metas du Couteau Suisse
foreach (array_keys($GLOBALS['meta']) as $meta) {
if (strpos($meta, 'tweaks_') === 0)
effacer_meta($meta);
if (strpos($meta, 'cs_') === 0)
effacer_meta($meta);
}
ecrire_metas(); # Pour SPIP 1.92
// effacement des repertoires temporaires
include_spip('inc/getdocument');
foreach (array(
_DIR_CS_TMP,
_DIR_VAR . 'couteau-suisse'
) as $dir)
if (@file_exists($dir))
effacer_repertoire_temporaire($dir);
// fichier RSS temporaire
include_spip('cout_define');
@unlink(_CS_TMP_RSS);
// retrait de l'inclusion eventuelle dans config/mes_options.php
include_spip('cout_utils');
cs_verif_FILE_OPTIONS(false, true);
}
// installation des tables du plugin et mises a jour
function couteau_suisse_upgrade($nom_meta_base_version, $version_cible) {
if (defined('_LOG_CS'))
cs_log("cout_upgrade : $nom_meta_base_version => $version_cible");
$current_version = '0.0';
if (isset($GLOBALS['meta'][$nom_meta_base_version]) && !version_compare($current_version = $GLOBALS['meta'][$nom_meta_base_version], $version_cible))
return;
if ($current_version == '0.0') {
include_spip('base/create');
creer_base();
}
if (cs_le_test($current_version, $tmp, '1.0')) {
cs_suppr_metas_var('set_options');
cs_suppr_metas_var('radio_set_options3');
cs_suppr_metas_var('radio_set_options', 'radio_set_options4');
cs_suppr_metas_var('radio_type_urls', 'radio_type_urls3');
cs_suppr_metas_var('radio_type_urls2', 'radio_type_urls3');
cs_suppr_metas_var('radio_filtrer_javascript', 'radio_filtrer_javascript3');
cs_suppr_metas_var('radio_filtrer_javascript2', 'radio_filtrer_javascript3');
cs_suppr_metas_var('radio_suivi_forums', 'radio_suivi_forums3');
cs_suppr_metas_var('desactive_cache');
cs_suppr_metas_var('radio_desactive_cache', 'radio_desactive_cache3');
cs_suppr_metas_var('target_blank');
cs_suppr_metas_var('url_glossaire_externe', 'url_glossaire_externe2');
cs_suppr_metas_var('');
if (defined('_SPIP19300')) {
if (@$metas_vars['radio_desactive_cache3'] == 1)
$metas_vars['radio_desactive_cache4'] = -1;
cs_suppr_metas_var('radio_desactive_cache3');
}
foreach (array(
'cs_decoupe',
'cs_decoration',
'cs_decoration_racc',
'cs_smileys',
'cs_smileys_racc',
'cs_chatons',
'cs_chatons_racc',
'cs_jcorner',
'cs_couleurs',
'cs_couleurs_racc',
'cs_filets_sep',
'cs_filets_sep_racc',
'cs_insertions'
) as $meta)
effacer_meta($meta);
ecrire_meta($nom_meta_base_version, $current_version = $tmp);
}
if (cs_le_test($current_version, $tmp, '1.5')) {
// nouveau champ 'ordre'
include_spip('outils/boites_privees');
tri_auteurs_verifie_table(true);
ecrire_meta($nom_meta_base_version, $current_version = $tmp);
}
if (cs_le_test($current_version, $tmp, '1.7')) {
effacer_meta('tweaks_contribs');
// MAJ forcee de tous les fichiers distants
cs_maj_forcee(array(
'ecran_securite',
'previsualisation'
));
ecrire_meta($nom_meta_base_version, $current_version = $tmp);
}
if (cs_le_test($current_version, $tmp, '1.10')) {
// MAJ pour rajeunissement
cs_maj_forcee(array(
'maj_auto',
'masquer',
'jcorner'
));
ecrire_meta($nom_meta_base_version, $current_version = $tmp);
}
if (cs_le_test($current_version, $tmp, '1.11')) {
// anciens metas inusites
foreach (array(
'tweaks_smileys',
'tweaks_chatons',
'cs_spam_mots'
) as $meta)
effacer_meta($meta);
ecrire_meta($nom_meta_base_version, $current_version = $tmp);
}
ecrire_metas(); # Pour SPIP 1.92
}
function cs_le_test($current_version, &$tmp, $new) {
if ($test = version_compare($current_version, $tmp = $new, '<')) {
echo '<h4>', _T('couteau:titre'), ' - Upgrade ', $tmp, '</h4>';
$GLOBALS['cs_base_update'] .= $tmp . ' > ';
}
return $test;
}
function cs_maj_forcee($liste) {
$outils = isset($GLOBALS['meta']['tweaks_actifs']) ? unserialize($GLOBALS['meta']['tweaks_actifs']) : array();
foreach ($liste as $l)
$outils[$l]['maj_distant'] = 1;
ecrire_meta('tweaks_actifs', serialize($outils));
}
function cs_suppr_metas_var($meta, $new = false) {
global $metas_vars;
if (!isset($metas_vars[$meta]))
return;
if ($new) {
if (preg_match(',([0-9A-Za-z_-]*)\((' . '[0-9A-Za-z_-]*=[A-Za-z_:-]+\|[0-9A-Za-z_:=>|-]+' . ')\),', $metas_vars[$meta], $reg))
$metas_vars[$new] = $reg[1];
else
$metas_vars[$new] = $metas_vars[$meta];
}
unset($metas_vars[$meta]);
}
/*******************/
/* PACKS DE CONFIG */
/*******************/
function cout_install_pack($pack, $redirige = false) {
global $metas_vars, $metas_outils;
$pack = &$GLOBALS['cs_installer'][$pack];
if (is_string($pack) && function_exists($pack))
$pack = $pack();
effacer_meta('tweaks_actifs');
$metas_vars = $metas_outils = array();
foreach (preg_split('%\s*[,|]\s*%', $pack['outils']) as $o)
$metas_outils[trim($o)]['actif'] = 1;
if (is_array($pack['variables']))
foreach ($pack['variables'] as $i => $v)
$metas_vars[$i] = $v;
ecrire_meta('tweaks_actifs', serialize($metas_outils));
ecrire_meta('tweaks_variables', serialize($metas_vars));
// tout recompiler
if ($redirige)
cout_exec_redirige('cmd=pack#cs_infos');
}
// redirige vers la page exec en cours en vue une reinitialisation du Couteau Suisse
// si $arg==false alors la redirection ne se fera pas (procedure d'installation par exemple)
function cout_exec_redirige($arg = '', $recompiler = true) {
if ($recompiler) {
ecrire_metas();
cs_initialisation(true);
include_spip('inc/invalideur');
suivre_invalideur('1'); # tout effacer
purger_repertoire(_DIR_SKELS);
purger_repertoire(_DIR_CACHE);
}
if ($arg !== false) {
include_spip('inc/headers');
redirige_par_entete(generer_url_ecrire(_request('exec'), $arg, true));
}
}
?>

40
couteau_suisse_fonctions.php

@ -1,25 +1,29 @@
<?php
// Ce fichier est charge a chaque recalcul
// Attention, ici il se peut que le plugin ne soit pas initialise (cas des .js/.css par exemple)
if (!defined("_ECRIRE_INC_VERSION")) return;
if (!defined("_ECRIRE_INC_VERSION"))
return;
// pour voir les erreurs ?
if (defined('_CS_REPORT')) error_reporting(E_ALL ^ E_NOTICE);
elseif (defined('_CS_REPORTALL')) error_reporting(E_ALL);
if (defined('_CS_REPORT'))
error_reporting(E_ALL ^ E_NOTICE);
elseif (defined('_CS_REPORTALL'))
error_reporting(E_ALL);
$GLOBALS['cs_fonctions_essai'] = 1;
//if(defined('_LOG_CS')) cs_log("INIT : couteau_suisse_fonctions ($GLOBALS[cs_spip_options]/$GLOBALS[cs_options]/$GLOBALS[cs_fonctions]/$GLOBALS[cs_init])");
//if (defined('_LOG_CS')) cs_log("INIT : couteau_suisse_fonctions ($GLOBALS[cs_spip_options]/$GLOBALS[cs_options]/$GLOBALS[cs_fonctions]/$GLOBALS[cs_init])");
cs_charge_fonctions();
function cs_charge_fonctions() {
// initialisation si couteau_suisse_options est OK (fin de compilation par exemple)
if(!isset($GLOBALS['cs_init']) || !$GLOBALS['cs_init']) {
if(isset($GLOBALS['cs_options']) && $GLOBALS['cs_options']) {
if(!isset($GLOBALS['cs_fonctions']) || !$GLOBALS['cs_fonctions']) {
if (!isset($GLOBALS['cs_init']) || !$GLOBALS['cs_init']) {
if (isset($GLOBALS['cs_options']) && $GLOBALS['cs_options']) {
if (!isset($GLOBALS['cs_fonctions']) || !$GLOBALS['cs_fonctions']) {
// inclusion des fonctions pre-compilees
if(defined('_LOG_CS')) cs_log("INCL : "._DIR_CS_TMP.'mes_fonctions.php');
@include(_DIR_CS_TMP.'mes_fonctions.php');
//if(defined('_LOG_CS')) cs_log("FIN INCL : "._DIR_CS_TMP.'mes_fonctions.php');
if (defined('_LOG_CS'))
cs_log("INCL : " . _DIR_CS_TMP . 'mes_fonctions.php');
@include(_DIR_CS_TMP . 'mes_fonctions.php');
//if (defined('_LOG_CS')) cs_log("FIN INCL : "._DIR_CS_TMP.'mes_fonctions.php');
} // else cs_log(' FIN : couteau_suisse_fonctions deja inclus');
} else {
$cs_log = function_exists('cs_log') ? 'cs_log' : 'spip_log';
@ -33,23 +37,25 @@ function cs_charge_fonctions() {
}
// raccourci pour le JavaScript
function cs_javascript($chaine) { return unicode_to_javascript(addslashes(html2unicode($chaine))); }
function cs_javascript($chaine) {
return unicode_to_javascript(addslashes(html2unicode($chaine)));
}
// Fonction propre() sans echapper_html_suspect() (SPIP >= 3.1)
function cs_propre_sain($texte) {
if(!$texte or !defined('_SPIP30100')
or strpos($texte, '<') === false or strpos($texte, '=') === false) {
if (!$texte || !defined('_SPIP30100') || strpos($texte, '<') === false || strpos($texte, '=') === false)
return propre($texte);
}
$texte = propre(str_replace('=', '@CSEGAL@', $texte));
return str_replace('@CSEGAL@', '=', $texte);
}
// Fonction _T() sans echapper_html_suspect() (SPIP >= 3.1)
function _T_sain($texte, $args = array(), $options = array()) {
if(defined('_SPIP30100')) $options['sanitize'] = FALSE;
if(defined('_SPIP20100')) return _T($texte, $args, $options);
if (defined('_SPIP30100'))
$options['sanitize'] = false;
if (defined('_SPIP20100'))
return _T