www/plugins/auto/couteau_suisse/couteau_suisse/inc/cs_outils.php

   1 <?php
   2 #-----------------------------------------------------#
   3 #  Plugin  : Couteau Suisse - Licence : GPL           #
   4 #  Auteur  : Patrice Vanneufville, 2007               #
   5 #  Contact : patrice¡.!vanneufville¡@!laposte¡.!net   #
   6 #  Infos : http://www.spip-contrib.net/?article2166   #
   7 #-----------------------------------------------------#
   8 #  Fichier contenant les fonctions concernant la      #
   9 #  description des outils.                            #
  10 #-----------------------------------------------------#
  11
  12 if(!defined("_ECRIRE_INC_VERSION")) return;
  13
  14 include_spip('inc/autoriser');
  15 // Constantes distantes
  16 include_spip('cout_define');
  17
  18 // initialiser les plugins, les pipelines, etc.
  19 function cs_init_plugins() {
  20         @unlink(_DIR_TMP."couteau-suisse.plat");
  21         include_spip('inc/plugin');
  22         defined('_SPIP20100')?actualise_plugins_actifs():verif_plugin();
  23         if(defined('_LOG_CS')) cs_log(" -- actualise_plugins_actifs() effectue");
  24 }
  25
  26 // initialise un outil, ses variables, et en renvoie la description compilee
  27 function cs_initialisation_d_un_outil($outil_, $description_outil, $modif) {
  28         global $outils, $metas_outils;
  29         $outil = &$outils[$outil_];
  30         if(!isset($outil['init_ok'])) {
  31                 $outil['init_ok'] = 1;
  32                 if(!isset($outil['categorie'])) $outil['categorie'] = 'divers';
  33                 if(!isset($outil['nom'])) $outil['nom'] = couteauprive_T($outil['id'].':nom');
  34                 if(strpos($outil['nom'], '<:')!==false)
  35                         $outil['nom'] = preg_replace(',<:([:a-z0-9_-]+):>,ie', '_T("$1")', $outil['nom']);
  36                 // $outil['surcharge'] n'est pas encore renseigne si la fonction d'installation est surchargee
  37                 if(isset($outil['surcharge']) || (function_exists($outil_.'_installe') && $outil['surcharge']=1))
  38                         $outil['nom'] = $outil['nom'].' *';
  39                 if(isset($outil['perso'])) $outil['nom'] = '<i>'.$outil['nom'].'</i>';
  40                 if(isset($outil['code:jq'])) $outil['jquery']='oui';
  41                 $outil['actif'] = isset($metas_outils[$outil['id']])?@$metas_outils[$outil['id']]['actif']:0;
  42                 if(isset($outil['contrib']) && $outil['contrib'])
  43                         $metas_outils[$outil['id']]['contrib'] = $outil['contrib'];
  44                 // si SPIP est trop ancien ou trop recent...
  45                 if(cs_version_erreur($outil)) { $metas_outils[$outil['id']]['actif'] = $outil['actif'] = 0; }
  46                 // au cas ou des variables sont presentes dans le code
  47                 $outil['variables'] = array(); $outil['nb_variables'] = 0;
  48                 // ces 2 lignes peuvent initialiser des variables dans $metas_vars ou $metas_vars_code
  49                 if(isset($outil['code:spip_options'])) $outil['code:spip_options'] = cs_parse_code_php($outil['code:spip_options']);
  50                 if(isset($outil['code:options'])) $outil['code:options'] = cs_parse_code_php($outil['code:options']);
  51                 if(isset($outil['code:fonctions'])) $outil['code:fonctions'] = cs_parse_code_php($outil['code:fonctions']);
  52         }
  53         // cette ligne peut utiliser des variables dans $metas_vars ou $metas_vars_code
  54         return $description_outil($outil_, 'admin_couteau_suisse', $modif);
  55 }
  56
  57 // renvoie la configuration du pack actuel
  58 function cs_description_pack() {
  59         if(!isset($GLOBALS['cs_pack_actuel'])) return '';
  60         return debut_cadre_relief('', true)
  61                 . "<h3 class='titrem'><img src='"._DIR_IMG_PACK."puce-verte.gif' width='9' height='9' alt='-' />&nbsp;" . _T('couteauprive:pack_titre') . '</h3>'
  62                 . ((strlen($temp = cs_action_rapide('pack')))?"<div class='cs_action_rapide' id='cs_action_rapide'>$temp</div>":'')
  63                 . propre(_T('couteauprive:pack_descrip', array('pack'=> _T('couteauprive:pack_actuel', array('date'=>cs_date()))))
  64                 . "\n\n" . _T('couteauprive:contrib', array('url'=>'[->'._URL_CONTRIB.'2552]')))
  65                 . '<br/><textarea rows=40 cols=500 style="width:100%; font-size:90%;">'.htmlentities($GLOBALS[cs_pack_actuel], ENT_QUOTES, $GLOBALS['meta']['charset']).'</textarea>'
  66                 . fin_cadre_relief(true);
  67 }
  68
  69 // renvoie (pour la nouvelle interface) la description d'un outil
  70 function description_outil2($outil_id) {
  71         if(!strlen($outil_id)) return _T('couteauprive:outils_cliquez');
  72         global $outils, $metas_vars, $metas_outils;
  73         include_spip('cout_utils');
  74         // remplir $outils (et aussi $cs_variables qu'on n'utilise pas ici);
  75         include_spip('config_outils');
  76 cs_log(" -- description_outil2($outil_id) - Appel de config_outils.php : nb_outils = ".count($outils));
  77
  78 cs_log(" -- appel de charger_fonction('description_outil', 'inc') et de description_outil($outil_id) :");
  79         $description_outil = charger_fonction('description_outil', 'inc');
  80         $descrip = cs_initialisation_d_un_outil($outil_id, $description_outil, true);
  81
  82         include_spip('inc/presentation');
  83         include_spip('inc/texte');
  84         include_spip('public/parametrer'); // fonctions pour les pipelines
  85
  86         $s = '<div class="cs-cadre">';
  87
  88         $outil = $outils[$outil_id]; unset($outils);
  89         $actif = $outil['actif'];
  90         $puce = $actif?'puce-verte.gif':'puce-rouge.gif';
  91         $titre_etat = _T('couteauprive:outil_'.($actif?'actif':'inactif'));
  92         $nb_var = intval($outil['nb_variables']);
  93
  94         // cette valeur par defaut n'est pas definie sous SPIP 1.92
  95         // constante abandonnee sous SPIP 3.0
  96         if(!defined('_SPIP30000')) @define('_ID_WEBMESTRES', 1);
  97         if(!strlen($outil['id']) || !autoriser('configurer', 'outil', 0, NULL, $outil))
  98                 return $s . _T('info_acces_interdit') . '</div>';
  99
 100         $s .= "<h3 class='titrem'><img src='"._DIR_IMG_PACK."$puce' width='9' height='9' alt=\"$titre_etat\" title=\"$titre_etat\" />&nbsp;" . $outil['nom'] . '</h3>';
 101         $s .= '<div class="cs_menu_outil">';
 102         if($nb_var)
 103                 $s .= '<a href="'.generer_url_ecrire(_request('source'),'cmd=reset&outil='.$outil_id).'" title="' . _T('couteauprive:par_defaut') . '">' . _T('couteauprive:par_defaut') . '</a>&nbsp;|&nbsp;';
 104         if(!$actif)
 105                 $s .= '<a href="'.generer_url_ecrire(_request('source'),'cmd=hide&outil='.$outil_id).'" title="' . _T('couteauprive:outil_cacher') . '">' . _T('couteauprive:outil_cacher') . '</a>&nbsp;|&nbsp;';
 106         $act = $actif?'des':'';
 107         $s .= '<a href="'.generer_url_ecrire(_request('source'),'cmd=switch&outil='.$outil_id).'" title="'._T("couteauprive:outil_{$act}activer_le").'">'._T("couteauprive:outil_{$act}activer")."</a></div>";
 108         if(strlen($temp = cs_action_fichiers_distants($outil) . cs_action_rapide($outil_id, $actif)))
 109                 $s .= "<div class='cs_action_rapide' id='cs_action_rapide'>$temp</div>";
 110         $s .= cs_nettoie(propre($descrip));
 111         $serial = serialize(array_keys($outil));
 112         $p = '';
 113         if($b=cs_balises_traitees($outil_id, '*, #'))
 114                 $p .=  '<p>' . _T('couteauprive:detail_balise_etoilee', array('bal' => $b.'*')) . '</p>';
 115         if($actif && isset($outil['code:spip_options']) && strlen($outil['code:spip_options']) && ($outil_id<>'cs_comportement'))
 116                 $p .= '<p>' . _T('couteauprive:detail_spip_options'.(defined('_CS_SPIP_OPTIONS_OK')?'_ok':''), array('lien'=>description_outil_liens_callback(array(1=>'cs_comportement')))) . '</p>';
 117         if(isset($outil['jquery']) && $outil['jquery']=='oui')
 118                 $p .= '<p>' . _T('couteauprive:detail_jquery2') . '</p>';
 119         if(isset($outil['auteur']) && strlen($outil['auteur']))
 120                 $p .= '<p>' . _T('auteur') .' '. ($outil['auteur']) . '</p>';
 121         if(isset($outil['contrib']) && strlen($outil['contrib']))
 122                 $p .= '<p>' . _T('couteauprive:contrib', array('url'=>'[->'._URL_CONTRIB.$outil['contrib'].']')) . '</p>';
 123
 124         return $s . propre($p) . detail_outil($outil_id) . '</div>';
 125 }
 126
 127 // met a jour les outils caches/interdits et renvoie deux listes d'outils actifs et inactifs
 128 function liste_outils() {
 129         global $outils;
 130         $id = $nb_actifs = 0;
 131         $categ = array();
 132         $metas_caches = isset($GLOBALS['meta']['tweaks_caches'])?unserialize($GLOBALS['meta']['tweaks_caches']):array();
 133         foreach($outils as $outil) {
 134                 // liste des categories
 135                 if(!isset($categ[$cat=&$outil['categorie']])) {
 136                         $tmp = _T('couteauprive:categ:'.$cat);
 137                         if($tmp{1}=='.') $tmp='0'.$tmp; // classement sur deux chiffres
 138                         $categ[$cat] = strncmp($tmp, 'categ', 5)==0?$cat:$tmp;
 139                 }
 140                 // ressensement des autorisations
 141                 if(!autoriser('configurer', 'outil', 0, NULL, $outil))
 142                         $outils[$outil['id']]['interdit'] = $metas_caches[$outil['id']]['cache'] = 1;
 143         }
 144         // une constante : facon rapide d'interdire des lames a la manipulation
 145         if(defined('_CS_OUTILS_CACHES'))
 146                 foreach (explode(':',_CS_OUTILS_CACHES) as $o) $outils[$o]['interdit'] = $metas_caches[$o]['cache'] = 1;
 147         asort($categ);
 148         $results_actifs = $results_inactifs = '';
 149         foreach($categ as $i=>$c) {
 150                 $s_actifs = $s_inactifs = array();
 151                 foreach($outils as $outil) if($outil['categorie']==$i) {
 152                         $test = $outil['actif']?'s_actifs':'s_inactifs';
 153                         $hide = !$outil['actif'] && isset($metas_caches[$outil['id']]['cache']);
 154                         if(!$hide)
 155                                 ${$test}[] .= $outil['nom'] . '|' . $outil['index'] . '|' . $outil['id'];
 156                 }
 157                 $nb_actifs += count($s_actifs);
 158                 foreach(array('s_actifs', 's_inactifs') as $temp) {
 159                         sort(${$temp});
 160                         $reset=_request('cmd')=='resetjs'?"\ncs_EffaceCookie('sous_liste_$id');":'';
 161                         $titre = "<span class='light cs_hidden'> (".count(${$temp}).")</span>";
 162                         preg_match(',[0-9. ]*(.*)$,', $c, $reg);
 163                         $titre = "<div class='titrem categorie'>$reg[1]$titre</div>";
 164                         $href = generer_url_ecrire(_request('exec'),"cmd=descrip&outil=");
 165                         foreach(${$temp} as $j=>$v)
 166                                 ${$temp}[$j] = preg_replace(',^(.*)\|(.*)\|(.*)$,', '<a class="cs_href" id="$3" href="'.$href.'$3">$1</a>', $v);
 167                         ${$temp} = join("<br/>\n", ${$temp});
 168                         if(strlen(${$temp})) ${'result'.$temp} .= $titre
 169                                 . "<div id='sous_liste_$id' class='sous_liste'>" . ${$temp} . '</div>';
 170                         $id++;
 171                 }
 172         }
 173
 174         $fieldset = '<fieldset style="width:92%; margin:0; padding:0.6em;" class="cadre-trait-couleur liste_outils"><legend style="font-weight:bold; color:';
 175         return array($nb_actifs, '<div id="cs_outils" class="cs_outils">'
 176         . '<div class="cs_liste cs_inactifs">' . $fieldset . 'red;">' . _T('couteauprive:outils_inactifs') . '</legend>'
 177         . $results_inactifs . '</fieldset></div>'
 178         . '<form id="csform" name="csform" method="post" action="'.generer_url_ecrire(_request('exec'),"cmd=switch").'">'
 179         . '<input type="hidden" value="test" name="cs_selection" id="cs_selection" />'
 180         . '<div class="cs_toggle"><div style="display:none;">'
 181         . '<a id="cs_toggle_a" title="'._T('couteauprive:outils_permuter_gras1').'" href="'.generer_url_ecrire(_request('exec'),"cmd=switch").'">'
 182         . '<img alt="<->" src="'.find_in_path('img/permute.gif').'"/></a>'
 183         . '<p id="cs_toggle_p">(0)</p>'
 184         . '<a id="cs_reset_a" title="'._T('couteauprive:outils_resetselection').'" href="#">'
 185         . '&nbsp;<img alt="X" class="class_png" src="'.find_in_path('img/nosel.gif').'"/>&nbsp;</a>'
 186         .       '</div></div></form>'
 187         . '<div class="cs_liste cs_actifs">' . $fieldset . '#22BB22;">' . _T('couteauprive:outils_actifs') . '</legend>'
 188         . $results_actifs . '</fieldset>'
 189         . '<div style="text-align: right;"><a id="cs_tous_a" title="'._T('couteauprive:outils_selectionactifs').'" href="#">'._T('couteauprive:outils_selectiontous').'</a></div>'
 190         . '</div></div>');
 191 }
 192
 193 // renvoie les details techniques d'un outil
 194 function detail_outil($outil_id) {
 195         global $outils;
 196         $outil = &$outils[$outil_id];
 197         $div = '<div class="cs_details_outil">';
 198         if(cs_version_erreur($outil)) return $div . _T('couteauprive:erreur:version') . '</div>';
 199         $details = $a = array();
 200         foreach(array('spip_options', 'options', 'fonctions', 'js', 'jq', 'css') as $in)
 201                 if(isset($outil['code:'.$in])) $a[] = _T('couteauprive:code_'.$in);
 202         if(count($a)) $details[] = _T('couteauprive:detail_inline') . ' ' . join(', ', $a);
 203         $a = array();
 204         foreach(array('.php', '_options.php', '_fonctions.php', '.js', '.js.html', '.css', '.css.html') as $ext)
 205                 if(find_in_path('outils/'.($temp=$outil_id.$ext))) $a[] = $temp;
 206         if(count($a)) $details[] = _T('couteauprive:detail_fichiers') . ' ' . join(', ', $a);
 207         if($b=cs_balises_traitees($outil_id)) $details[] = _T('couteauprive:detail_traitements') . $b;
 208         $serkeys = serialize(array_keys($outil));
 209         if(preg_match_all(',(pipeline|pipelinecode):([a-z_]+),', $serkeys, $regs, PREG_PATTERN_ORDER))
 210                 $details[] = _T('couteauprive:detail_pipelines') . ' ' . join(', ', array_unique($regs[2]));
 211         if($outil['nb_disabled']) $details[] = _T('couteauprive:detail_disabled') . ' ' . $outil['nb_disabled'];
 212         if(isset($outil['fichiers_distants'])) {
 213                 $a = array();
 214                 foreach($outil['fichiers_distants'] as $i) $a[] = basename($outil[$i]);
 215                 $details[] = _T('couteauprive:detail_fichiers_distant') . ' ' . join(', ', $a);
 216         }
 217         if($outil['surcharge']) $details[] = '* ' . _T('couteauprive:detail_surcharge') . ' ' . _T('item_oui');
 218         if(count($details)) return $div . join('<br />', $details) . '</div>';
 219         return '';
 220 }
 221
 222 function cs_balises_traitees($outil_id, $join=', #') {
 223         global $outils;
 224         if(preg_match_all(',traitement:([A-Z_]+),', serialize(array_keys($outils[$outil_id])), $regs, PREG_PATTERN_ORDER))
 225                 return  ' #' . join($join, array_unique($regs[1]));
 226         return '';
 227 }
 228
 229 // renvoie les boutons eventuels d'action rapide
 230 function cs_action_rapide($outil_id, $actif=true) {
 231         include_spip('inc/texte');
 232         $f = "{$outil_id}_action_rapide";
 233         include_spip("outils/$f");
 234         if(!function_exists($f)) return '';
 235         if(strlen($f = trim($f()))) {
 236                 // si inactif...
 237                 if(!$actif) {
 238                         if(preg_match_all(',<legend[^>]*>(.*?):?\s*</legend>,', $f, $regs)
 239                                 || preg_match_all(',<p[^>]*>(.*?):?\s*</p>,', $f, $regs))
 240                                 // on ne conserve que les <legend> ou <p>
 241                                 $f = '<ul><li>' . join("</li><li>", $regs[1]) . '</li></ul>';
 242                 }
 243                 $info = '<strong>' . definir_puce() . '&nbsp;' . _T('couteauprive:action_rapide'.($actif?'':'_non')) . "</strong>";
 244                 return "<div>$info</div><div>$f</div>";
 245         }
 246         return '';
 247 }
 248
 249 // gere les fichiers distants d'un outil
 250 function cs_action_fichiers_distants(&$outil, $forcer=false, $tester=false) {
 251         if(!isset($outil['fichiers_distants'])) return '';
 252         $lib = sous_repertoire(_DIR_PLUGIN_COUTEAU_SUISSE, 'lib');
 253         $actif = $outil['actif'];
 254         $a = array();
 255         foreach($outil['fichiers_distants'] as $i) {
 256                 $erreur = false;
 257                 $res_pipe = '';
 258                 $dir = sous_repertoire($lib, $outil['id']);
 259                 // retrait des arguments
 260                 preg_match('/[^?]*/', basename($outil[$i]), $reg);
 261                 $f = 'distant_' . $reg[0];
 262                 // 1er appel : envoi du nom du fichier
 263                 $file = pipeline('fichier_distant', array('outil'=>$outil['id'], 'actif'=>$actif, 'fichier_local'=>$dir.$f));
 264                 $file = $file['fichier_local'];
 265                 $f = basename($file);
 266                 $size = ($forcer || @(!file_exists($file)) ? 0 : filesize($file));
 267                 if($size) $statut = _T('couteauprive:distant_present', array('date'=>cs_date_long(date('Y-m-d H:i:s', filemtime($file)))));
 268                 elseif($actif || $forcer) {
 269                         include_spip('inc/distant');
 270                         if($distant = recuperer_page($outil[$i])) {
 271                                 // 2e appel : envoi du texte
 272                                 $distant = pipeline('fichier_distant', array('outil'=>$outil['id'], 'fichier_local'=>$file,
 273                                                 'fichier_distant'=>$outil[$i], 'message'=>'', 'texte'=>$distant, 'actif'=>$actif));
 274                                 $file = $distant['fichier_local'];
 275                                 $message = $distant['message'] . "\n_ " . _T('couteauprive:copie_vers', array('dir'=>dirname($distant['fichier_local']).'/'));
 276                                 $distant = $distant['texte'];
 277                                 if(preg_match(',\.php\d?$,', $file)) {
 278                                         $test = preg_replace(',^.*?\<\?php|\?\>.*?$,', '', $distant);
 279                                         if(!@eval("return true; $test")) $distant = false;
 280                                         else $distant = ecrire_fichier($file, '<'."?php\n\n".trim($test)."\n\n?".'>');
 281                                 } else
 282                                         $distant = ecrire_fichier($file, $distant);
 283                         }
 284                         if($distant) $statut = '<span style="color:green">'._T('couteauprive:distant_charge').'</span>';
 285                         else $erreur = $statut = '<span style="color:red">'._T('couteauprive:distant_echoue').'</span>';
 286                 } else $erreur = $statut = _T('couteauprive:distant_inactif');
 287                 $a[] = "[{$f}->{$outil[$i]}]\n_ ".$statut.$message;
 288         }
 289         if($tester) return $a;
 290         $a = '<ul style="margin:0.6em 0 0.6em 4em;"><li>' . join("</li><li style='margin-top:0.4em;'>", $a) . '</li></ul>';
 291         $b = ($actif || !$erreur)?'rss_actualiser':($erreur?'distant_charger':false);
 292         $b = $b?"\n<p class='cs_sobre'><input class='cs_sobre' type='submit' value=\" ["
 293                         . attribut_html(_T('couteauprive:'.$b)).']" /></p>':'';
 294         return ajax_action_auteur('action_rapide', 'fichiers_distants', 'admin_couteau_suisse', "arg=$outil[id]|fichiers_distants&cmd=descrip#cs_action_rapide",
 295                         '<p>' . _T('couteauprive:distant_aide') . '</p>'
 296                         . '<p style="margin-top:1em"><strong>' . definir_puce() . '&nbsp;' . _T('couteauprive:detail_fichiers_distant') . '</strong></p>'
 297                         . '<div>' . propre($a) . '</div>' . $b);
 298
 299 }
 300
 301 ?>