www/plugins/auto/couteau_suisse/couteau_suisse/cout_lancement.php

   1 <?php
   2 #-----------------------------------------------------#
   3 #  Plugin  : Couteau Suisse - Licence : GPL           #
   4 #  Auteur  : Patrice Vanneufville, 2006               #
   5 #  Contact : patrice¡.!vanneufville¡@!laposte¡.!net   #
   6 #  Infos : http://www.spip-contrib.net/?article2166   #
   7 #-----------------------------------------------------#
   8 #  Fichier contenant les fonctions utilisees pendant  #
   9 #  l'execution du plugin.                             #
  10 #  Seulement s'il y a lieu, on va inclure ici         #
  11 #  cout_utils.php et compiler les outils.             #
  12 #-----------------------------------------------------#
  13 if (!defined("_ECRIRE_INC_VERSION")) return;
  14
  15 cs_log("inclusion des fonctions de cout_lancement.php pour initialisation");
  16
  17 // compatibilite avec les plugins de version anterieure a 1.7.0.0
  18 function tweak_choix($s) { if ($p = strpos($s, '(')) return substr($s, 0, $p); return ''; }
  19 // Compatibilite : stripos() n'existe pas en php4
  20 if (!function_exists('stripos')) {
  21         function stripos($botte, $aiguille) {
  22                 if (preg_match('@^(.*)' . preg_quote($aiguille, '@') . '@isU', $botte, $regs))
  23                         return strlen($regs[1]);
  24                 return false;
  25         }
  26 }
  27
  28 // Echapper les elements perilleux en les passant en base64
  29 // Creer un bloc base64 correspondant a $rempl ; au besoin en marquant
  30 // une $source differente ; optimisation du code spip !
  31 // echappe_retour() permet de revenir en arriere
  32 function cs_code_echappement($rempl, $source='', $mode='span') {
  33         // Convertir en base64
  34         $base64 = base64_encode($rempl);
  35         // guillemets simples dans la balise pour simplifier l'outil 'guillemets'
  36         return "<$mode class='base64$source' title='$base64'></$mode>";
  37 }
  38
  39 function cs_preg_quote(&$item) {
  40         $item = preg_quote($item, ',');
  41 }
  42
  43 // lit ecrit les metas et initialise $cs_metas_pipelines
  44 // cette fonction est appellee par couteau_suisse_options a chaque hit de la page
  45 function cs_initialisation($forcer=false, $init_includes=true) {
  46         global $cs_metas_pipelines, $metas_outils;
  47         static $deja_passe_ici = 0;
  48         if($log=defined('_LOG_CS'))     {
  49                 $rand = sprintf('[#%04x] ', rand());
  50                 if(!$deja_passe_ici) {
  51                         $mysql = function_exists('mysql_get_client_info')?' - MYSQL v'.mysql_get_client_info():'';
  52                         cs_log("#### 1er PASSAGE $rand################################# - \$forcer = ".intval($forcer)
  53                         . "\n{$rand}PHP v".phpversion()."$mysql - base SPIP v$GLOBALS[spip_version_base] - code SPIP v$GLOBALS[spip_version_code]");
  54                 }
  55         }
  56         $deja_passe_ici++;
  57 if($log) cs_log("{$rand}cs_initialisation($forcer) : Passage #$deja_passe_ici");
  58         // si les metas ne sont pas lus, on les lit
  59         if (isset($GLOBALS['meta']['tweaks_pipelines'])) {
  60                 $cs_metas_pipelines = unserialize($GLOBALS['meta']['tweaks_pipelines']);
  61 if($log) cs_log("$rand -- cs_metas_pipelines = ".(is_array($cs_metas_pipelines)?join(', ',array_keys($cs_metas_pipelines)):''));
  62
  63                 // liste des actifs & definition des constantes attestant qu'un outil est bien actif : define('_CS_monoutil', 'oui');
  64                 $liste = array();
  65                 foreach($metas_outils as $nom=>$o) if(isset($o['actif']) && $o['actif']) { $liste[]=$nom; @define('_CS_'.$nom, 'oui'); }
  66                 $liste2 = join(', ', $liste);
  67 if($log) cs_log("$rand -- ".count($liste).' outil(s) actif(s)'.(strlen($liste2)?" = ".$liste2:''));
  68                 // Vanter notre art de la compilation...
  69                 // La globale $spip_header_silencieux permet de rendre le header absent pour raisons de securite
  70                 if (!headers_sent() && (!isset($GLOBALS['spip_header_silencieux']) OR !$GLOBALS['spip_header_silencieux']))
  71                                 @header('X-Outils-CS: '.$liste2);
  72 if($log) cs_log($rand.($forcer?"\$forcer = true":"cs_initialisation($forcer) : Sortie car les metas sont presents"));
  73                 // Les pipelines sont en meta, tout va bien on peut partir d'ici.
  74                 if (!$forcer) return;
  75         }
  76         // ici on commence l'initialisation de tous les outils
  77         $GLOBALS['cs_init'] = 1;
  78         global $outils, $metas_vars, $metas_outils;
  79         include_spip('inc/meta');
  80         include_spip('cout_utils');
  81         // remplir $outils (et aussi $cs_variables qu'on n'utilise pas ici);
  82         include_spip('config_outils');
  83         // verifier que tous les outils actives sont bien presents
  84         foreach($metas_outils as $nom=>$o)
  85                 if(isset($o['actif']) && $o['actif'] && !isset($outils[$nom]))
  86                         unset($metas_outils[$nom]);
  87         ecrire_meta('tweaks_actifs', serialize($metas_outils));
  88         ecrire_metas();
  89         // stocker les types de variables declarees
  90         global $cs_variables;
  91         $metas_vars['_chaines'] = $cs_variables['_chaines'];
  92         $metas_vars['_nombres'] = $cs_variables['_nombres'];
  93         // au cas ou un outil manipule des variables
  94         $description_outil = charger_fonction('description_outil', 'inc');
  95         // completer les variables manquantes et incorporer l'activite lue dans les metas
  96 if($log) cs_log("$rand -- foreach(\$outils) : cs_initialisation_d_un_outil()");
  97
  98         // initialiser chaque outil
  99         include_spip('inc/cs_outils');
 100         foreach($outils as $outil)
 101                 cs_initialisation_d_un_outil($id = $outil['id'], $description_outil, false);
 102         // installer $cs_metas_pipelines
 103         $cs_metas_pipelines = array();
 104 if($log) cs_log("$rand -- cs_initialise_includes()... couteau_suisse_fonctions.php sera peut-etre inclus.");
 105         // creer les includes (config/mes_options, mes_options et mes_fonctions) et le fichier de controle pipelines.php
 106         if($init_includes) cs_initialise_includes(count($metas_outils));
 107         // verifier le fichier d'options _FILE_OPTIONS (ecrire/mes_options.php ou config/mes_options.php)
 108         // De'sactive' par de'faut. Activer l'outil "Comportements du Couteau Suisse" pour ge'rer cette option.
 109         cs_verif_FILE_OPTIONS($metas_outils['cs_comportement']['actif'] && $metas_vars['spip_options_on'], true);
 110         // sauver la configuration
 111         cs_sauve_configuration();
 112         // en metas : outils actifs
 113 if($log) cs_log("$rand -- ecriture metas");
 114         ecrire_meta('tweaks_actifs', serialize($metas_outils));
 115         // en metas : variables d'outils
 116         ecrire_meta('tweaks_variables', serialize($metas_vars));
 117         // en metas : code inline pour les pipelines, mes_options et mes_fonctions;
 118         ecrire_meta('tweaks_pipelines', serialize($cs_metas_pipelines));
 119         ecrire_metas();
 120         $GLOBALS['cs_init'] = 0;
 121 if($log) cs_log("{$rand}cs_initialisation($forcer) : Sortie");
 122 }
 123
 124 /*
 125 function qui determine si $texte est de type Block (true) ou Inline (false)
 126 _BALISES_BLOCS est defini dans texte.php :
 127 define('_BALISES_BLOCS',
 128         'div|pre|ul|ol|li|blockquote|h[1-6r]|'
 129         .'t(able|[rdh]|body|foot|extarea)|'
 130         .'form|object|center|marquee|address|'
 131         .'d[ltd]|script|noscript|map|button|fieldset');
 132 */
 133 function cs_block($texte) {
 134         return preg_match(',(\n\n|\r\n\r\n|\r\r),', $texte)
 135                 || preg_match(',</?(p|'._BALISES_BLOCS.')[>[:space:]],iS', $texte);
 136 }
 137
 138 // fonction callback pour cs_echappe_balises
 139 function cs_echappe_html_callback($matches) {
 140  return _CS_HTMLA.cs_code_echappement($matches[1], 'CS');
 141 }
 142
 143 // evite les transformations typo dans les balises $balises
 144 // par exemple pour <html>, <cadre>, <code>, <frame>, <script>, <acronym> et <cite>, $balises = 'html|code|cadre|frame|script|acronym|cite'
 145 // $fonction est la fonction prevue pour transformer $texte
 146 // si $fonction = false, alors le texte est retourne simplement protege
 147 // $texte est le texte d'origine
 148 // si $balises = '' alors la protection par defaut est : html|code|cadre|frame|script
 149 // si $balises = false alors le texte est utilise tel quel
 150 function cs_echappe_balises($balises, $fonction, $texte, $arg=NULL){
 151         if(!strlen($texte)) return '';
 152         if (($fonction!==false) && !function_exists($fonction)) {
 153                 // chargement des fonctions
 154                 include_spip('couteau_suisse_fonctions');
 155                 if (!function_exists($fonction)) {
 156                         spip_log("Erreur - cs_echappe_balises() : $fonction() non definie dans : ".$_SERVER['REQUEST_URI']);
 157                         return $texte;
 158                 }
 159         }
 160         // trace d'anciennes balises <html></html> ou autre echappement SPIP ?
 161         if(strpos($texte, _CS_HTMLA)!==false) {
 162                 $texte = preg_replace(',<p[^>]*>(\s*'._CS_HTMLX.')</p>,', '$1', $texte);
 163                 $texte = preg_replace_callback(','._CS_HTMLA.'(.*?)(?='._CS_HTMLB.'),s', 'cs_echappe_html_callback', $texte);
 164         }
 165         // protection du texte
 166         if($balises!==false) {
 167                 if(!strlen($balises)) $balises = 'html|code|cadre|frame|script';
 168                 $balises = ',<('.$balises.')(\s[^>]*)?>(.*)</\1>,UimsS';
 169                 include_spip('inc/texte');
 170                 $texte = echappe_html($texte, 'CS', true, $balises);
 171         }
 172         // retour du texte simplement protege
 173         if ($fonction===false) return $texte;
 174         // transformation par $fonction
 175         $texte = $arg==NULL?$fonction($texte):$fonction($texte, $arg);
 176         // deprotection en abime, notamment des modeles...
 177         if(strpos($texte, 'base64CS')!==false) $texte = echappe_retour($texte, 'CS');
 178         if(strpos($texte, 'base64CS')!==false) return echappe_retour($texte, 'CS');
 179         return $texte;
 180 }
 181
 182 // retourne un chemin canonique a partir d'un chemin contenant des ../
 183 function cs_canonicalize($address) {
 184         $address = str_replace('\\', '/', str_replace('//', '/', $address));
 185         $address = explode('/', $address);
 186         $keys = array_keys($address, '..');
 187         foreach($keys as $keypos => $key) array_splice($address, $key - ($keypos * 2 + 1), 2);
 188         $address = implode('/', $address);
 189         return preg_replace(',([^.])\./,', '\1', $address);
 190 }
 191
 192 // manipule le fichier config/mes_options.php
 193 function cs_ecrire_config($regexpr, $replace, $ajout_sinon='') {
 194         $fo = cs_spip_file_options(1);
 195         $t='';
 196         if ($fo && strlen($regexpr) && strlen($replace)) {
 197                 if (lire_fichier($fo, $t) && strlen($t)) {
 198                         $t = preg_replace($regexpr, $replace, $t, 1);
 199                         if(ecrire_fichier($fo, $t)) return;
 200                         else if(defined('_LOG_CS')) cs_log("ERREUR : l'ecriture du fichier $fo a echoue !");
 201                 } else if(defined('_LOG_CS')) cs_log(" -- fichier $fo illisible. Inclusion non permise");
 202                 if(strlen($t)) return;
 203         }
 204         // creation
 205         if(!strlen($ajout_sinon)) return;
 206         $fo = cs_spip_file_options(2);
 207         $ok = ecrire_fichier($fo, '<?'."php\n".$ajout_sinon."\n?".'>');
 208 if(defined('_LOG_CS')) cs_log(" -- fichier $fo absent ".($ok?'mais cree avec l\'inclusion':' et impossible a creer'));
 209 }
 210
 211 // liste des barres typo disponibles
 212 function cs_pp_liste_barres($outil=false) {
 213         global $metas_vars;
 214         // pour barre_outils_liste() qu'on trouve maintenant dans l'extension porte_plume
 215         if(defined('_SPIP30000')) include_spip('public/parametrer');
 216                 else include_spip('inc/barre_outils');
 217         if (!$sets = barre_outils_liste()) return array();
 218         if($outil) foreach($sets as $f=>$b) {
 219                 $v = 'pp_'.$b.'_'.$outil;
 220                 // par defaut le bouton est present dans toutes les barres
 221                 if(isset($metas_vars[$v]) && !$metas_vars[$v]) unset($sets[$f]);
 222         }
 223         return $sets;
 224 }
 225
 226 // renvoie la meta d'un outil (fonction obsolete)
 227 function cs_lire_meta_outil($outil, $meta='', $unserialize=true) {
 228         if(!$meta) $meta = 'cs_'.$outil;
 229         if (!isset($GLOBALS['meta'][$meta])) { $f = $outil.'_installe'; $f(); }
 230         return $unserialize?unserialize($GLOBALS['meta'][$meta]):$GLOBALS['meta'][$meta];
 231 }
 232
 233 // renvoie les donnees precompilees d'un outil
 234 function cs_lire_data_outil($outil, $casier_=false) {
 235         static $datas = array();
 236         $casier = ($casier_ && $casier_!==$outil)?$outil.'_'.$casier_:$outil;
 237         if(isset($datas[$casier]))
 238                 return $datas[$casier];
 239         // recherche dans le fichier cache
 240         if(!$GLOBALS['cs_outils'] && @is_readable($f = _DIR_CS_TMP.'mes_outils.php'))
 241                 include_once($f);
 242         if(function_exists($f = 'cs_data_'.$casier))
 243                 return $datas[$casier] = $f();
 244         // installation de l'outil
 245         include_spip('outils/'.$outil);
 246         if( (function_exists($f = $outil.'_installe') || function_exists($f = $f.'_dist'))
 247                 && ($tmp=$f())
 248                 && (isset($tmp[$ok=$casier]) || (!$casier_ && (isset($tmp[$ok=0]) || isset($tmp[$ok=$outil])))))
 249                         return $datas[$ok] = $tmp[$ok];
 250         return NULL;
 251 }
 252
 253 function rep_icones_barre(&$icones_barre) {
 254         if(defined('_SPIP20100')) include_spip('images_fonctions');
 255         if(!isset($icones_barre))
 256                 $icones_barre = sous_repertoire(sous_repertoire(_DIR_VAR, 'couteau-suisse'), 'icones_barre');
 257 }
 258
 259 // au stade mes_options, cette constante n'est pas encore definie...
 260 function define_IMG_GD_MAX_PIXELS() {
 261         if(!defined('_IMG_GD_MAX_PIXELS'))
 262                 define('_IMG_GD_MAX_PIXELS', (isset($GLOBALS['meta']['max_taille_vignettes'])&&$GLOBALS['meta']['max_taille_vignettes']<5500000)?$GLOBALS['meta']['max_taille_vignettes']:0);
 263 }
 264
 265 // renvoie _T('couteauprive:'.$texte) puis detruit la chaine du module concerne
 266 function couteauprive_T($texte, $args=array()) {
 267         $res = _T('couteauprive:'.$texte, $args);
 268         if(defined('_SPIP19300') && isset($GLOBALS[$tmp='i18n_couteauprive_'.$GLOBALS['spip_lang']][$texte]))
 269                         unset($GLOBALS[$tmp][$texte]);
 270         return $res;
 271 }
 272
 273 ?>