You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
359 lines
15 KiB
359 lines
15 KiB
<?php
|
|
#-----------------------------------------------------#
|
|
# Plugin : Couteau Suisse - Licence : GPL #
|
|
# Auteur : Patrice Vanneufville, 2006 #
|
|
# Contact : patrice¡.!vanneufville¡@!laposte¡.!net #
|
|
# Infos : https://contrib.spip.net/?article2166 #
|
|
#-----------------------------------------------------#
|
|
# Fichier contenant les fonctions utilisees pendant #
|
|
# l'execution du plugin. #
|
|
# Seulement s'il y a lieu, on va inclure ici #
|
|
# cout_utils.php et compiler les outils. #
|
|
#-----------------------------------------------------#
|
|
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 '';
|
|
}
|
|
// Compatibilite : stripos() n'existe pas en php4 (SPIP < 3)
|
|
if (!function_exists('stripos')) {
|
|
function stripos($botte, $aiguille) {
|
|
if (preg_match('@^(.*)' . preg_quote($aiguille, '@') . '@isU', $botte, $regs))
|
|
return strlen($regs[1]);
|
|
return false;
|
|
}
|
|
}
|
|
|
|
// Echapper les elements perilleux en les passant en base64
|
|
// 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') {
|
|
// Convertir en base64
|
|
$base64 = base64_encode($rempl);
|
|
// guillemets simples dans la balise pour simplifier l'outil 'guillemets'
|
|
return "<$mode class='base64$source' title='$base64'></$mode>";
|
|
}
|
|
|
|
function cs_preg_quote(&$item) {
|
|
$item = 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) {
|
|
global $cs_metas_pipelines, $metas_outils;
|
|
static $deja_passe_ici = 0;
|
|
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]");
|
|
}
|
|
}
|
|
$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) ? implode(', ', 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');
|
|
}
|
|
$liste2 = implode(', ', $liste);
|
|
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"));
|
|
// Les pipelines sont en meta, tout va bien on peut partir d'ici.
|
|
if (!$forcer)
|
|
return;
|
|
}
|
|
// ici on commence l'initialisation de tous les outils
|
|
$GLOBALS['cs_init'] = 1;
|
|
global $outils, $metas_vars, $metas_outils;
|
|
include_spip('inc/meta');
|
|
include_spip('cout_utils');
|
|
// 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]))
|
|
unset($metas_outils[$nom]);
|
|
ecrire_meta('tweaks_actifs', serialize($metas_outils));
|
|
ecrire_metas(); # Pour SPIP 1.92
|
|
// stocker les types de variables declarees
|
|
global $cs_variables;
|
|
$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');
|
|
// completer les variables manquantes et incorporer l'activite lue dans les metas
|
|
if ($log)
|
|
cs_log("$rand -- foreach(\$outils) : cs_initialisation_d_un_outil()");
|
|
|
|
// initialiser chaque outil
|
|
include_spip('inc/cs_outils');
|
|
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.");
|
|
// 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));
|
|
// 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'] && isset($metas_vars['spip_options_on']) && $metas_vars['spip_options_on'], true);
|
|
// sauver la configuration
|
|
cs_sauve_configuration();
|
|
if ($log)
|
|
cs_log("$rand -- ecriture metas");
|
|
// en metas : outils actifs
|
|
ecrire_meta('tweaks_actifs', serialize($metas_outils));
|
|
// en metas : variables d'outils
|
|
ecrire_meta('tweaks_variables', serialize($metas_vars));
|
|
// en metas : code inline pour les pipelines, mes_options et mes_fonctions;
|
|
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']) {
|
|
cs_action_fichiers_distants($outils[$nom], true, true);
|
|
if (!isset($outils[$nom]['erreurs']['fichiers_distants'])) {
|
|
$metas_outils[$nom]['maj_distant'] = 0;
|
|
$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));
|
|
ecrire_metas(); # Pour SPIP 1.92
|
|
$GLOBALS['cs_init'] = 0;
|
|
if ($log)
|
|
cs_log("{$rand}cs_initialisation($forcer) : Sortie");
|
|
}
|
|
|
|
/*
|
|
function qui determine si $texte est de type Block (true) ou Inline (false)
|
|
_BALISES_BLOCS est defini dans texte.php :
|
|
define('_BALISES_BLOCS',
|
|
'div|pre|ul|ol|li|blockquote|h[1-6r]|'
|
|
.'t(able|[rdh]|body|foot|extarea)|'
|
|
.'form|object|center|marquee|address|'
|
|
.'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);
|
|
}
|
|
|
|
// fonction callback pour cs_echappe_balises
|
|
function cs_echappe_html_callback($matches) {
|
|
return _CS_HTMLA . cs_code_echappement($matches[1], 'CS');
|
|
}
|
|
|
|
// evite les transformations typo dans les balises $balises
|
|
// par exemple pour <html>, <cadre>, <code>, <frame>, <script>, <acronym> et <cite>, $balises = 'html|code|cadre|frame|script|acronym|cite'
|
|
// $fonction est la fonction prevue pour transformer $texte
|
|
// si $fonction = false, alors le texte est retourne simplement protege
|
|
// $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)) {
|
|
// 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']);
|
|
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);
|
|
}
|
|
// protection du texte
|
|
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;
|
|
// transformation par $fonction
|
|
$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');
|
|
return $texte;
|
|
}
|
|
|
|
// retourne un chemin canonique a partir d'un chemin contenant des ../
|
|
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);
|
|
$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 = '') {
|
|
static $root, $lenroot;
|
|
//echo " ($file => ";
|
|
$file = cs_canonicalize($file);
|
|
//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);
|
|
// complet sur la racine du site
|
|
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);
|
|
return $file;
|
|
}
|
|
|
|
// manipule le fichier config/mes_options.php
|
|
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))) {
|
|
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;
|
|
}
|
|
// creation
|
|
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'));
|
|
}
|
|
|
|
// liste des barres typo disponibles
|
|
function cs_pp_liste_barres($outil = false) {
|
|
global $metas_vars;
|
|
// pour barre_outils_liste() qu'on trouve maintenant dans l'extension porte_plume
|
|
if (function_exists('include_fichiers_fonctions')) // SPIP >= 3.3
|
|
include_fichiers_fonctions();
|
|
elseif (defined('_SPIP30000')) // inclure les fonctions, SPIP >= 3.0
|
|
include_spip('public/parametrer');
|
|
else
|
|
include_spip('inc/barre_outils');
|
|
if (!function_exists('barre_outils_liste') || !($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];
|
|
}
|
|
|
|
// renvoie les donnees precompilees d'un outil
|
|
function cs_lire_data_outil($outil, $casier_ = false) {
|
|
static $datas = array();
|
|
$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'))
|
|
include_once($f);
|
|
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];
|
|
return NULL;
|
|
}
|
|
|
|
function rep_icones_barre(&$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);
|
|
}
|
|
|
|
// renvoie _T('couteauprive:'.$texte) puis detruit la chaine du module concerne
|
|
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]);
|
|
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]);
|
|
return $res;
|
|
}
|
|
}
|
|
|
|
?>
|