source: spip-zone/_plugins_/couteau_suisse/cout_lancement.php @ 61478

Last change on this file since 61478 was 61478, checked in by patfr@…, 7 years ago

Fichiers distants : prise en compte du préfixe
Installation et MAJ du Couteau Suisse : plus bavarde sous SPIP3 et possibilités de mises à jour forcée des fichiers distants d'un outil
Mises à jour automatiques : liste des plugins vérouillés (ex-extensions)
+ en attendant d'utiliser SVP, retour de la méthode SPIP2 de mise à jour

File size: 12.5 KB
Line 
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#-----------------------------------------------------#
13if (!defined("_ECRIRE_INC_VERSION")) return;
14
15cs_log("inclusion des fonctions de cout_lancement.php pour initialisation");
16
17// compatibilite avec les plugins de version anterieure a 1.7.0.0
18function tweak_choix($s) { if ($p = strpos($s, '(')) return substr($s, 0, $p); return ''; }
19// Compatibilite : stripos() n'existe pas en php4
20if (!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
32function 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
39function 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
45function 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++;
57if($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']);
61if($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);
67if($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);
72if($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(); # Pour SPIP 1.92
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
96if($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();
104if($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();
112if($log) cs_log("$rand -- ecriture metas");
113        // en metas : outils actifs
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        // maj forcee des fichiers distants ?
120        $test = 0;
121        foreach($metas_outils as $nom=>$o) 
122                if(isset($o['actif']) && $o['actif'] && isset($o['maj_distant']) && $o['maj_distant']) {
123                        cs_action_fichiers_distants($outils[$nom], true, true);
124                        $metas_outils[$nom]['maj_distant'] = 0;
125                        $test = 1;
126                }
127        if($test) ecrire_meta('tweaks_actifs', serialize($metas_outils));
128        ecrire_metas(); # Pour SPIP 1.92
129        $GLOBALS['cs_init'] = 0;
130if($log) cs_log("{$rand}cs_initialisation($forcer) : Sortie");
131}
132
133/*
134function qui determine si $texte est de type Block (true) ou Inline (false)
135_BALISES_BLOCS est defini dans texte.php :
136define('_BALISES_BLOCS',
137        'div|pre|ul|ol|li|blockquote|h[1-6r]|'
138        .'t(able|[rdh]|body|foot|extarea)|'
139        .'form|object|center|marquee|address|'
140        .'d[ltd]|script|noscript|map|button|fieldset');
141*/
142function cs_block($texte) {
143        return preg_match(',(\n\n|\r\n\r\n|\r\r),', $texte)
144                || preg_match(',</?(p|'._BALISES_BLOCS.')[>[:space:]],iS', $texte);
145}
146
147// fonction callback pour cs_echappe_balises
148function cs_echappe_html_callback($matches) {
149 return _CS_HTMLA.cs_code_echappement($matches[1], 'CS');
150}
151
152// evite les transformations typo dans les balises $balises
153// par exemple pour <html>, <cadre>, <code>, <frame>, <script>, <acronym> et <cite>, $balises = 'html|code|cadre|frame|script|acronym|cite'
154// $fonction est la fonction prevue pour transformer $texte
155// si $fonction = false, alors le texte est retourne simplement protege
156// $texte est le texte d'origine
157// si $balises = '' alors la protection par defaut est : html|code|cadre|frame|script
158// si $balises = false alors le texte est utilise tel quel
159function cs_echappe_balises($balises, $fonction, $texte, $arg=NULL){
160        if(!strlen($texte)) return '';
161        if (($fonction!==false) && !function_exists($fonction)) {
162                // chargement des fonctions
163                include_spip('couteau_suisse_fonctions');
164                if (!function_exists($fonction)) {
165                        spip_log("Erreur - cs_echappe_balises() : $fonction() non definie dans : ".$_SERVER['REQUEST_URI']);
166                        return $texte;
167                }
168        }
169        // trace d'anciennes balises <html></html> ou autre echappement SPIP ?
170        if(strpos($texte, _CS_HTMLA)!==false) {
171                $texte = preg_replace(',<p[^>]*>(\s*'._CS_HTMLX.')</p>,', '$1', $texte);
172                $texte = preg_replace_callback(','._CS_HTMLA.'(.*?)(?='._CS_HTMLB.'),s', 'cs_echappe_html_callback', $texte);
173        }
174        // protection du texte
175        if($balises!==false) {
176                if(!strlen($balises)) $balises = 'html|code|cadre|frame|script';
177                $balises = ',<('.$balises.')(\s[^>]*)?>(.*)</\1>,UimsS';
178                include_spip('inc/texte');
179                $texte = echappe_html($texte, 'CS', true, $balises);
180        }
181        // retour du texte simplement protege
182        if ($fonction===false) return $texte;
183        // transformation par $fonction
184        $texte = $arg==NULL?$fonction($texte):$fonction($texte, $arg);
185        // deprotection en abime, notamment des modeles...
186        if(strpos($texte, 'base64CS')!==false) $texte = echappe_retour($texte, 'CS');
187        if(strpos($texte, 'base64CS')!==false) return echappe_retour($texte, 'CS');
188        return $texte;
189}
190
191// retourne un chemin canonique a partir d'un chemin contenant des ../
192function cs_canonicalize($address) {
193        $address = str_replace('\\', '/', str_replace('//', '/', $address));
194        $address = explode('/', $address);
195        $keys = array_keys($address, '..');
196        foreach($keys as $keypos => $key) array_splice($address, $key - ($keypos * 2 + 1), 2);
197        $address = implode('/', $address);
198        return preg_replace(',([^.])\./,', '\1', $address);
199}
200
201// manipule le fichier config/mes_options.php
202function cs_ecrire_config($regexpr, $replace, $ajout_sinon='') {
203        $fo = cs_spip_file_options(1);
204        $t='';
205        if ($fo && strlen($regexpr) && strlen($replace)) {
206                if (lire_fichier($fo, $t) && strlen($t)) {
207                        $t = preg_replace($regexpr, $replace, $t, 1);
208                        if(ecrire_fichier($fo, $t)) return;
209                        else if(defined('_LOG_CS')) cs_log("ERREUR : l'ecriture du fichier $fo a echoue !");
210                } else if(defined('_LOG_CS')) cs_log(" -- fichier $fo illisible. Inclusion non permise");
211                if(strlen($t)) return;
212        }
213        // creation
214        if(!strlen($ajout_sinon)) return;
215        $fo = cs_spip_file_options(2);
216        $ok = ecrire_fichier($fo, '<?'."php\n".$ajout_sinon."\n?".'>');
217if(defined('_LOG_CS')) cs_log(" -- fichier $fo absent ".($ok?'mais cree avec l\'inclusion':' et impossible a creer'));
218}
219
220// liste des barres typo disponibles
221function cs_pp_liste_barres($outil=false) {
222        global $metas_vars;
223        // pour barre_outils_liste() qu'on trouve maintenant dans l'extension porte_plume
224        if(defined('_SPIP30000')) include_spip('public/parametrer');
225                else include_spip('inc/barre_outils');
226        if (!$sets = barre_outils_liste()) return array();
227        if($outil) foreach($sets as $f=>$b) {
228                $v = 'pp_'.$b.'_'.$outil;
229                // par defaut le bouton est present dans toutes les barres
230                if(isset($metas_vars[$v]) && !$metas_vars[$v]) unset($sets[$f]);
231        }
232        return $sets;
233}
234
235// renvoie la meta d'un outil (fonction obsolete)
236function cs_lire_meta_outil($outil, $meta='', $unserialize=true) {
237        if(!$meta) $meta = 'cs_'.$outil;
238        if (!isset($GLOBALS['meta'][$meta])) { $f = $outil.'_installe'; $f(); }
239        return $unserialize?unserialize($GLOBALS['meta'][$meta]):$GLOBALS['meta'][$meta];
240}
241
242// renvoie les donnees precompilees d'un outil
243function cs_lire_data_outil($outil, $casier_=false) {
244        static $datas = array();
245        $casier = ($casier_ && $casier_!==$outil)?$outil.'_'.$casier_:$outil;
246        if(isset($datas[$casier])) 
247                return $datas[$casier];
248        // recherche dans le fichier cache
249        if(!(isset($GLOBALS['cs_outils']) && $GLOBALS['cs_outils']) && @is_readable($f = _DIR_CS_TMP.'mes_outils.php'))
250                include_once($f);
251        if(function_exists($f = 'cs_data_'.$casier)) 
252                return $datas[$casier] = $f();
253        // installation de l'outil
254        include_spip('outils/'.$outil);
255        if( (function_exists($f = $outil.'_installe') || function_exists($f = $f.'_dist'))
256                && ($tmp=$f())
257                && (isset($tmp[$ok=$casier]) || (!$casier_ && (isset($tmp[$ok=0]) || isset($tmp[$ok=$outil])))))
258                        return $datas[$ok] = $tmp[$ok];
259        return NULL;
260}
261
262function rep_icones_barre(&$icones_barre) {
263        if(defined('_SPIP20100')) include_spip('images_fonctions');
264        if(!isset($icones_barre))
265                $icones_barre = sous_repertoire(sous_repertoire(_DIR_VAR, 'couteau-suisse'), 'icones_barre');
266}
267
268// au stade mes_options, cette constante n'est pas encore definie...
269function define_IMG_GD_MAX_PIXELS() {
270        if(!defined('_IMG_GD_MAX_PIXELS'))
271                define('_IMG_GD_MAX_PIXELS', (isset($GLOBALS['meta']['max_taille_vignettes'])&&$GLOBALS['meta']['max_taille_vignettes']<5500000)?$GLOBALS['meta']['max_taille_vignettes']:0);
272}
273
274// renvoie _T('couteauprive:'.$texte) puis detruit la chaine du module concerne
275function couteauprive_T($texte, $args=array()) {
276        $res = _T('couteauprive:'.$texte, $args);
277        if(defined('_SPIP19300') && isset($GLOBALS[$tmp='i18n_couteauprive_'.$GLOBALS['spip_lang']][$texte]))
278                        unset($GLOBALS[$tmp][$texte]);
279        return $res;
280}
281
282?>
Note: See TracBrowser for help on using the repository browser.