source: spip-zone/_plugins_/couteau_suisse/exec/admin_couteau_suisse.php @ 65347

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

MAJ auto : mode réparation compatible SPIP3
Une demande de mise à jour d'un plugin n'ayant pas de nouvelle version disponible (nouvelle release ou non) provoque le remplacement de ses fichiers.
+ Rajeunissement des librairies de SPIP2 ('icon' devenue 'logo', et mode return dans redirection brutale apres decompression d'archive)

File size: 14.2 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#-----------------------------------------------------#
8if(!defined("_ECRIRE_INC_VERSION")) return;
9
10include_spip('inc/autoriser');
11include_spip('inc/texte');
12include_spip('inc/layer');
13include_spip('inc/presentation');
14include_spip('couteau_suisse_administrations');
15
16// mise a jour des donnees si envoi via formulaire
17function enregistre_modif_outils(&$cmd, &$outil){
18cs_log("INIT : enregistre_modif_outils()");
19        global $outils, $metas_outils;
20        // recuperer les outils dans $_POST ou $_GET
21        $toggle = array();
22        if(strlen($outil)) $toggle[] = $outil;
23                elseif(isset($_POST['cs_selection'])) $toggle = explode(',', $_POST['cs_selection']);
24                else return;
25        $outil = ($cmd!='hide' && count($toggle)==1)?$toggle[0]:'';
26        $i = $cmd=='hide'?'cache':'actif';
27        ${$i} = isset($GLOBALS['meta']["tweaks_{$i}s"])?unserialize($GLOBALS['meta']["tweaks_{$i}s"]):array();
28        foreach($toggle as $o) if(autoriser('configurer', 'outil', 0, NULL, $outils[$o])) {
29                if(isset(${$i}[$o][$i]))
30                        unset(${$i}[$o][$i]); 
31                else ${$i}[$o][$i] = 1;
32        }
33        if(defined('_SPIP19300')) $connect_id_auteur = $GLOBALS['auteur_session']['id_auteur'];
34                else global $connect_id_auteur;
35        spip_log("Changement de statut ($i) des outils par l'auteur id=$connect_id_auteur : ".implode(', ',array_keys(${$i})));
36        ecrire_meta("tweaks_{$i}s", serialize(${$i}));
37        if($cmd=='switch') $metas_outils = ${$i};
38
39        include_spip('inc/plugin');
40        defined('_SPIP20100')?actualise_plugins_actifs():verif_plugin();
41
42cs_log(" FIN : enregistre_modif_outils()");
43}
44
45function exec_admin_couteau_suisse() {
46cs_log("INIT : exec_admin_couteau_suisse()");
47        global $spip_lang_right;
48        global $outils, $afficher_outil, $metas_vars, $metas_outils;
49
50        // cette valeur par defaut n'est pas definie sous SPIP 1.92
51        // constante abandonnee sous SPIP 3.0
52        if(!defined('_SPIP30000')) @define('_ID_WEBMESTRES', 1);
53        cs_minipres();
54        $cmd = _request('cmd');
55        $exec = _request('exec');
56        $outil = _request('outil');
57
58        include_spip('inc/cs_outils');
59        cs_init_plugins();
60
61        // id de l'auteur en session
62        if(defined('_SPIP19300')) $connect_id_auteur = $GLOBALS['auteur_session']['id_auteur'];
63                else global $connect_id_auteur;
64
65        // reset general
66        if($cmd=='resetall'){
67                spip_log("Reset General du Couteau Suisse par l'auteur id=$connect_id_auteur");
68                foreach(array_keys($GLOBALS['meta']) as $meta) {
69                        if(strpos($meta, 'tweaks_') === 0) effacer_meta($meta);
70                        if(strpos($meta, 'cs_') === 0) effacer_meta($meta);
71                }
72                $metas_vars = $metas_outils = array();
73                // ici, pas d'initialisation...
74                include_spip('cout_lancement');
75                cout_exec_redirige('cmd=resetjs');
76        }
77        // installation personnalisee
78        $pack = _request('pack');
79        if(strlen($pack) && isset($GLOBALS['cs_installer'][$pack])) {
80                if($cmd=='install'){
81                        spip_log("Installation personnalisee de '$pack' par l'auteur id=$connect_id_auteur");
82                        // installer le pack et rediriger
83                        cout_install_pack($pack, true);
84                } elseif($cmd=='delete'){
85                        spip_log("Suppression de '$pack' par l'auteur id=$connect_id_auteur");
86                        $p = preg_quote($pack,'/');
87                        $r = "[$]GLOBALS\['cs_installer'\]\['$p'\]\s*=";
88                        cs_ecrire_config(
89                                array("/$r/", "/# [^\\n\\r]+[\\n\\r]+if\(0\) {$r}.*?# $p #[\\n\\r]+/s"),
90                                array('if(0) \\0', ''));
91                        // simplement prendre en compte la supression
92                        cout_exec_redirige('cmd=pack#cs_infos', false);
93                }
94        }
95        // reset des variables d'un outil
96        if($cmd=='reset' && strlen($outil)){
97                spip_log("Reset des variables de '$_GET[outil]' par l'auteur id=$connect_id_auteur");
98                global $outils;
99                include_spip('cout_utils');
100                include_spip('config_outils');
101                if(autoriser('configurer', 'outil', 0, NULL, $outils[$outil])) {
102                        include_spip('inc/cs_outils');
103                        cs_initialisation_d_un_outil($outil, charger_fonction('description_outil', 'inc'), true);
104                        foreach ($outils[$outil]['variables'] as $a)
105                                if(autoriser('configurer', 'variable', 0, NULL, array('nom'=>$a, 'outil'=>$outils[$outil])))
106                                        unset($metas_vars[$a]);
107                                else spip_log("Reset interdit de la variable %$a% !!");
108                        ecrire_meta('tweaks_variables', serialize($metas_vars));
109                }
110                // tout recompiler
111                cout_exec_redirige("cmd=descrip&outil={$_GET[outil]}#cs_infos");
112        }
113        // reset de l'affichage
114        if($cmd=='showall'){
115                spip_log("Reset de tous les affichages du Couteau Suisse par l'auteur id=$connect_id_auteur");
116                effacer_meta('tweaks_caches');
117                cout_exec_redirige();
118        }
119
120        // afficher la description d'un outil ?
121        $afficher_outil = ($cmd=='descrip' OR $cmd=='switch')?$outil:'';
122
123        // initialisation generale forcee : recuperation de $outils;
124        cs_initialisation(true, $cmd!='noinclude');
125        cs_installe_outils();
126
127        // mise a jour des donnees si envoi via formulaire
128        // sinon fait une passe de verif sur les outils
129        if($cmd=='switch' OR $cmd=='hide'){
130                enregistre_modif_outils($cmd, $outil);
131                cout_exec_redirige(strlen($outil)?"cmd=descrip&outil=$outil#cs_infos":'');
132        }
133
134        $t = charger_fonction('commencer_page', 'inc');
135        echo $t(couteauprive_T('titre'), 'configuration', 'couteau_suisse');
136
137        // versions du Couteau Suisse et de la barre typo
138        include_spip('inc/plugin');
139        if(isset($GLOBALS['meta']['plugin'])) {
140                $t = unserialize($GLOBALS['meta']['plugin']);
141                $dir = $t['COUTEAU_SUISSE']['dir'];
142                $dir_type = $t['COUTEAU_SUISSE']['dir_type'];
143                // obsolete pour SPIP>=3.0 :
144                $bt_dir = $t['BARRETYPOENRICHIE']['dir'];
145                $bt_version = $t['BARRETYPOENRICHIE']['version'];
146        }
147        if(!strlen($dir)) $dir = 'couteau_suisse';
148        if(!strlen($bt_dir)) $bt_dir = 'barre_typo_v2';
149        $get_infos = defined('_SPIP20100')?charger_fonction('get_infos','plugins'):'plugin_get_infos';
150        $t = isset($dir_type)?$get_infos($dir, false, constant($dir_type)):$get_infos($dir);
151        $cs_version_base = $t['version_base']; $cs_version = $t['version'];
152        if(!function_exists('installe_un_plugin')) {
153                // ici SPIP >= 3.0
154                // TODO: redondances probables a revoir
155                // mises a jour eventuelles de la base
156                $installer_plugins = charger_fonction('installer', 'plugins');
157                $infos = $installer_plugins('couteau_suisse', 'install');
158                if(!$infos) {
159                        // probablement SVP
160                        list(,$v)=explode('auto/', _DIR_PLUGIN_COUTEAU_SUISSE);
161                        $infos = $installer_plugins('auto/'.$v, 'install');
162                }
163                if($infos && $infos['install_test'])
164                         echo $infos['install_test'][1], '<p style="color:red;">', 
165                                _T($infos['install_test'][0]?'plugin_info_install_ok':'avis_operation_echec'), '</p>';
166                unset($infos);
167                parse_str(parametres_css_prive(), $paramcss);
168        } else {
169                // compatibilite SPIP < 3.0
170                // mises a jour eventuelles de la base
171                $paramcss = array();
172                installe_un_plugin($dir, $t, $dir_type);
173        }
174        if(isset($GLOBALS['cs_base_update'])) 
175                echo '<p><a href="',parametre_url(self(),'var_mode','recalcul'),'"><span style="color:red;">', couteauprive_T('rafraichir'),'</span></a></p>';
176        if(!strlen($bt_version)) { $bt_version = $get_infos($bt_dir); $bt_version = $bt_version['version']; }
177       
178        // precaution (inutile ?) sur mes_fonctions.php
179        include_spip('public/parametrer');
180
181        $cs_revision = ((lire_fichier(_DIR_PLUGIN_COUTEAU_SUISSE.'svn.revision',$t)) && (preg_match(',<revision>(\d+)</revision>,',$t, $r)))
182                ?'<br/>'.couteauprive_T('version_revision', array('revision'=>$r[1])):"";
183        include_spip('public/assembler');
184        echo recuperer_fond('exec/admin_couteau_suisse_head', array_merge(
185         $paramcss,
186         array(
187                'force' => in_array(_request('var_mode'), array('calcul', 'recalcul'))?'oui':null,
188                'cs_version' => $cs_version,
189                'exec' => _request('exec'),
190        )));
191        if(!defined('_SPIP30000')) echo "<br /><br /><br />";
192        gros_titre(couteauprive_T('titre'), '', false);
193
194        // Onglet pour SPIP<3.0
195        if(!defined('_SPIP30000')) echo barre_onglets("configuration", 'couteau_suisse');
196
197        echo quelques_verifications($bt_version);
198
199        // chargement des outils
200        include_spip('inc/cs_outils'); 
201        list($outils_affiches_actifs, $liste_outils) = liste_outils();
202
203        // cadre de gauche
204        echo debut_gauche('', true);
205        $t = '';
206        if(isset($GLOBALS['cs_installer'])) foreach(array_keys($GLOBALS['cs_installer']) as $pack)
207                $t .= '<br/>&bull;&nbsp;' . couteauprive_T('pack_du', array('pack'=>"{[{$pack}|".couteauprive_T('pack_installe').'->' . generer_url_ecrire($exec,'cmd=install&pack='.urlencode($pack)) . ']}'));
208        $tr = defined('_SPIP30000')?_T('info_traductions'):ucfirst(_T('afficher_trad'));
209        $t = '<div>' . couteauprive_T('help2', array(
210                        'version' => $cs_version.$cs_revision.'<br/>'.
211                                (defined('_CS_PAS_DE_DISTANT')?'('.couteauprive_T('version_distante_off').')':'<span class="cs_version">'.couteauprive_T('version_distante').'</span>')
212                                ))
213                . chargement_automatique($dir)
214                . '</div><div>&bull;&nbsp;[' . couteauprive_T('pack_titre') . '|' . couteauprive_T('pack_alt') . '->' . generer_url_ecrire($exec,'cmd=pack#cs_infos')
215                . ']<br/>&bull;&nbsp;[' . $tr . '|' . $tr . '->' . generer_url_ecrire($exec,'cmd=trad#cs_infos')
216                . "]</div><div>"
217                . couteauprive_T('help3', array(
218                        'reset' => generer_url_ecrire($exec,'cmd=resetall'),
219                        'hide' => generer_url_ecrire($exec,'cmd=showall'),
220                        'contribs' => "\n_ &bull; " . cs_liste_contribs(25, "\n_ &bull; "),
221                        'install' => $t))
222                . '</div>';
223        if(function_exists('redirige_action_post')) $t = redirige_action_post('charger_plugin', '', 'admin_couteau_suisse', '', propre($t)); // SPIP >= 2.0
224        $t = '<div class="cs_aide">'.propre('<div>'.couteauprive_T('help').'</div>').$t.'</div>';
225        echo debut_boite_info(true), $t, fin_boite_info(true);
226//      if(strlen($t = cs_aide_raccourcis()))
227//              echo debut_boite_info(true), $t, fin_boite_info(true);
228        $t = cs_aide_pipelines($outils_affiches_actifs);
229        if(strlen($t))
230                echo debut_boite_info(true), $t, fin_boite_info(true);
231        echo pipeline('affiche_gauche',array('args'=>array('exec'=>$exec),'data'=>''));
232
233        // cadre de droite
234        echo creer_colonne_droite('', true);
235        echo pipeline('affiche_droite',array('args'=>array('exec'=>$exec),'data'=>'')),
236                debut_droite('', true),
237                ($outil<>'maj_auto' && include_spip('outils/maj_auto_action_rapide'))?maj_auto_svp_presenter_messages():'',
238                debut_cadre_trait_couleur(find_in_path('img/couteau-24.gif'),true,'','&nbsp;'.couteauprive_T('outils_liste')),
239                '<div class="titrem cs_intros">', couper($t = couteauprive_T('outil_intro'), 50),
240                '</div><div id="cs_infos_1" class="sous_liste cs_intros_inner">', $t, '</div>';
241        if(strlen($t = cs_aide_raccourcis()))
242                echo '<div class="titrem cs_intros">', couper($t, 50),
243                '</div><div id="cs_infos_2" class="sous_liste cs_intros_inner">', $t, '</div>';
244        echo "\n<table border='0' cellspacing='0' cellpadding='5' style='width:100%;'><tr><td class='sansserif'>";
245
246        $_GET['source'] = $exec;
247        echo '<div class="conteneur">', $liste_outils,
248                '</div><br class="conteneur" /><div class="cs_patience"><br />'.http_img_pack('searching.gif','*','').' ...</div>';
249        flush();
250        echo '<div class="conteneur"><div id="cs_infos" class="cs_infos">',
251                function_exists($f='cs_description_'.$cmd) || ($cmd=='descrip' && function_exists($f='cs_description_'.$outil))
252                        ?$f():description_outil2($afficher_outil),
253                '</div><script type="text/javascript"><!--
254var cs_descripted = "', $afficher_outil, '";
255document.write("<style type=\'text/css\'>#csjs{display:none;}<\/style>");
256//--></script><div id="csjs" style="color:red;"><br/>', couteauprive_T('erreur:js'),'</div>
257<noscript><style type="text/css">#csjs{display:none;}</style><div style="color:red;"><br/>', couteauprive_T('erreur:nojs'),
258$_GET['modif']=='oui'?'<br/>'.couteauprive_T('vars_modifiees').'.':'','</div></noscript>',
259                '</div></td></tr></table>',
260                '<style type="text/css">.cs_patience{display:none;}</style>',
261                fin_cadre_trait_couleur(true),
262
263                pipeline('affiche_milieu',array('args'=>array('exec'=>$exec),'data'=>'')),
264                fin_gauche(), fin_page();
265cs_log(" FIN : exec_admin_couteau_suisse()");
266}
267
268// messages d'avertissments eventuels
269function quelques_verifications($bt_version) {
270        // test sur jQuery
271        $res = "<script type=\"text/javascript\"><!--
272if(!window.jQuery) document.write('".str_replace('/','\/',addslashes(propre('<p>'.couteauprive_T('erreur:jquery').'</p>')))."');
273//--></script>";
274        // verification d'une base venant de SPIP 1.8
275        $tmp = spip_query('DESCRIBE spip_meta valeur');
276        $tmp = function_exists('spip_fetch_array')?spip_fetch_array($tmp):sql_fetch($tmp);
277        if(strlen($tmp['Type']) && $tmp['Type']!='text')
278                $res .= "<p style=\"color:red;\">Attention : votre base semble ancienne et le Couteau Suisse ne va pas bien fonctionner.</p><p>La table 'spip_meta' a pour type de valeur '$tmp[Type]' au lieu de 'text'.</p>";
279        if(!defined('_SPIP30000')) {
280                // verification de la barre typo V2 (SPIP<3.0)
281                $mini = '2.5.3';
282                if(strlen($bt_version) and (version_compare($bt_version,$mini,'<'))) 
283                        $res .= "<p>".couteauprive_T('erreur:bt', array('version'=>$bt_version, 'mini'=>$mini))."</p>";
284        }
285        return "<div style='font-size:85%'>$res</div>";
286}
287
288// clic pour la mise a jour du Couteau Suisse
289function chargement_automatique($dir) {
290        $zip = 'http://files.spip.org/spip-zone/couteau_suisse.zip';
291        $auto = strpos(_DIR_PLUGIN_COUTEAU_SUISSE,'plugins/auto/')!==false;
292        if($auto && defined('_SPIP30000')) {
293                //  passage par SVP ?
294                include_spip('outils/maj_auto_action_rapide');
295                maj_auto_svp_query($dir, $infos);
296                if($infos['id_paquet']) $zip = $infos['id_paquet'].':'.$infos['id_depot'].':'.$dir.':'.$zip;
297        }
298        // si le plugin est installe par procedure automatique, on permet la mise a jour directe (SPIP >= 2.0)
299        $arg_chargeur = $GLOBALS['spip_version_base']>=15828?'url_zip_plugin2':'url_zip_plugin'; // eq. SPIP >= 2.1.2
300        $res = $auto?
301                "<input type='hidden' name='$arg_chargeur' value='$zip' />"
302                . "<br/><div class='cs_sobre'><input type='submit' value='&bull; " . attribut_html(couteauprive_T('version_update')) . "' class='cs_sobre' title='"
303                . attribut_html(couteauprive_T('version_update_title')) . "' /></div>"
304                :"";
305        // un lien si le plugin plugin "Telechargeur" est present (SPIP < 2.0)
306        if(!strlen($res) && defined('_DIR_PLUGIN_CHARGEUR'))
307                $res = "<br/>&bull; <a title='" . attribut_html(couteauprive_T('version_update_chargeur_title')) 
308                . "' href='../spip.php?action=charger&plugin=couteau_suisse&url_retour=".urlencode(generer_url_ecrire('admin_couteau_suisse'))."'>".couteauprive_T('version_update_chargeur').'</a>';
309        return $res;
310}
311
312// callback pour les contribs
313function cs_couper_25($matches) { return couper(couteauprive_T($matches[1]), 25); }
314
315?>
Note: See TracBrowser for help on using the repository browser.