www/ecrire/inc/aider.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2016                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   9  *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
  10  *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
  11 \***************************************************************************/
  12
  13 if (!defined('_ECRIRE_INC_VERSION')) return;
  14
  15 include_spip('inc/filtres');
  16
  17 // L'aide en ligne de SPIP est disponible sous forme d'articles de www.spip.net
  18 // qui ont des reperes nommes arrtitre, artdesc etc.
  19 // La fonction inc_aider(_dist) recoit soit ces reperes,
  20 // soit le nom du champ de saisie, le nom du squelette le contenant et enfin
  21 // l'environnement d'execution du squelette (inutilise pour le moment).
  22 // Le tableau ci-dessous donne le repere correspondant a ces informations.
  23
  24 $GLOBALS['aider_index'] = array(
  25         'editer_article.html' => array (
  26                 'surtitre' => 'arttitre',
  27                 'titre' => 'arttitre',
  28                 'soustitre' => 'arttitre',
  29                 'id_parent' => 'artrub',
  30                 'descriptif' => 'artdesc',
  31                 'virtuel' => 'artvirt',
  32                 'chapo' => 'arttitre',
  33                 'text_area' => 'arttexte'),
  34
  35         'editer_breve.html' => array(
  36                 'id_parent' => 'brevesrub',
  37                 'lien_titre' => 'breveslien',
  38                 'statut' => 'brevesstatut'),
  39
  40         'editer_groupe_mot.html' => array(
  41                 'titre' => 'motsgroupes'),
  42
  43         'editer_mot.html' => array(
  44                 'titre' => 'mots',
  45                 'id_groupe' => 'motsgroupes'),
  46
  47         'editer_rubrique.html' => array(
  48                 'titre' => 'arttitre',
  49                 'id_parent' => 'rubrub',
  50                 'text_area' => 'raccourcis')
  51
  52                                 );
  53
  54
  55
  56 /**
  57  * Generer un lien d'aide (icone + lien)
  58  *
  59  * @param string $aide
  60  *              cle d'identification de l'aide souhaitee
  61  * @param strink $skel
  62  *              Nom du squelette qui appelle ce bouton d'aide
  63  * @param array $env
  64  *              Environnement du squelette
  65  * @param bool $aide_spip_directe
  66  *              false : Le lien genere est relatif a notre site (par defaut)
  67  *              true : Le lien est realise sur spip.net/aide/ directement ...
  68  * @return
  69 **/
  70 function inc_aider_dist($aide='', $skel='', $env=array(), $aide_spip_directe = false) {
  71         global $spip_lang, $aider_index;
  72
  73         if (($skel = basename($skel))
  74         AND isset($aider_index[$skel])
  75         AND isset($aider_index[$skel][$aide]))
  76                 $aide = $aider_index[$skel][$aide];
  77
  78         if ($aide_spip_directe) {
  79                 // on suppose que spip.net est le premier present
  80                 // dans la liste des serveurs. C'est forcement le cas
  81                 // a l'installation tout du moins
  82                 $help_server = $GLOBALS['help_server'];
  83                 $url = array_shift($help_server) . '/';
  84                 $url = parametre_url($url, 'exec', 'aide');
  85                 $url = parametre_url($url, 'aide', $aide);
  86                 $url = parametre_url($url, 'var_lang', $spip_lang);
  87         } else {
  88                 $args = "aide=$aide&var_lang=$spip_lang";
  89                 $url = generer_url_ecrire("aide", $args);
  90         }
  91
  92         return aider_icone($url);
  93 }
  94
  95 function aider_icone($url, $clic= '')
  96 {
  97         global $spip_lang, $spip_lang_rtl;
  98
  99         if (!$clic) {
 100                 $t = _T('titre_image_aide');
 101                 $clic = http_img_pack("aide".aide_lang_dir($spip_lang,$spip_lang_rtl)."-16.png",
 102                         _T('info_image_aide'),
 103                         " title=\"$t\" class='aide'");
 104         }
 105         return "\n&nbsp;&nbsp;<a class='aide popin'\nhref='"
 106         .  $url
 107         . "' target='_blank'>"
 108         . $clic
 109         . "</a>";
 110 }
 111
 112 // en hebreu le ? ne doit pas etre inverse
 113 // http://doc.spip.org/@aide_lang_dir
 114 function aide_lang_dir($spip_lang,$spip_lang_rtl) {
 115         return ($spip_lang<>'he') ? $spip_lang_rtl : '';
 116 }
 117
 118 // Les sections d'un fichier aide sont reperees ainsi:
 119 define('_SECTIONS_AIDE', ',<h([12])(?:\s+class="spip")?'. '>([^/]+?)(?:/(.+?))?</h\1>,ism');
 120
 121 function aide_fichier($path, $help_server) {
 122
 123         $md5 = md5(serialize($help_server));
 124         $fichier_aide = _DIR_AIDE . substr($md5,0,16) . "-" . $path;
 125         $lastm = @filemtime($fichier_aide);
 126         $lastversion = @filemtime(_DIR_RESTREINT . 'inc_version.php');
 127         $here = @(is_readable($fichier_aide) AND ($lastm >= $lastversion));
 128         $contenu = '';
 129
 130         if ($here) {
 131                 lire_fichier($fichier_aide, $contenu);
 132                 return array($contenu, $lastm);
 133         }
 134
 135         // mettre en cache (tant pis si echec)
 136         sous_repertoire(_DIR_AIDE,'','',true);
 137         $contenu = array();
 138         include_spip('inc/distant');
 139         foreach ($help_server as $k => $server) {
 140                 // Remplacer les liens aux images par leur gestionnaire de cache
 141                 $url = "$server/$path";
 142                 $local = _DIR_AIDE.substr(md5($url),0,8)."-".preg_replace(",[^\w.]+,i","_",$url);
 143                 $local = _DIR_RACINE . copie_locale($url, 'modif', $local);
 144
 145                 lire_fichier($local,$page);
 146                 $page = aide_fixe_img($page,$server);
 147                 // les liens internes ne doivent pas etre deguises en externes
 148                 $url = parse_url($url);
 149                 $re = '@(<a\b[^>]*\s+href=["\'])' .
 150                   '(?:' . $url['scheme'] . '://' . $url['host'] . ')?' .
 151                   $url['path'] . '([^"\']*)@ims';
 152                 $page = preg_replace($re,'\\1\\2', $page);
 153
 154                 preg_match_all(_SECTIONS_AIDE, $page, $sections, PREG_SET_ORDER);
 155                 // Fusionner les aides ayant meme nom de section
 156                 $vus = array();
 157                 foreach ($sections as $section) {
 158                         list($tout,$prof, $sujet,) = $section;
 159                         if (in_array($sujet, $vus)) continue;
 160                         $corps = aide_section($sujet, $page, $prof);
 161                         foreach ($contenu as $k => $s) {
 162                           if ($sujet == $k) {
 163                             // Section deja vue qu'il faut completer
 164                             // Si le complement a des sous-sections,
 165                             // ne pas en tenir compte quand on les rencontrera
 166                             // lors des prochains passages dans la boucle
 167                             preg_match_all(_SECTIONS_AIDE, $corps, $s, PREG_PATTERN_ORDER);
 168                             if ($s) {$vus = array_merge($vus, $s[2]);}
 169                             $contenu[$k] .= $corps;
 170                             $corps = '';
 171                             break;
 172                           }
 173                         }
 174                         // Si totalement nouveau, inserer le titre
 175                         // mais pas le corps s'il contient des sous-sections:
 176                         // elles vont venir dans les passages suivants
 177                         if ($corps) {
 178                           $corps = aide_section($sujet, $page);
 179                           $contenu[$sujet] = $tout . "\n" . $corps;
 180                         }
 181                 }
 182         }
 183
 184         $contenu = '<div>' . join('',$contenu) . '</div>';
 185
 186         // Renvoyer les liens vraiment externes dans une autre fenetre
 187         $contenu = preg_replace('@<a href="(http://[^"]+)"([^>]*)>@',
 188                                 '<a href="\\1"\\2 target="_blank">',
 189                                 $contenu);
 190
 191         // Correction typo dans la langue demandee
 192         #changer_typo($lang_aide);
 193         $contenu = '<body>' . $contenu . '</body>';
 194
 195         if (strlen($contenu) <= 100) return array(false, false);
 196         ecrire_fichier ($fichier_aide, $contenu);
 197         return array($contenu, time());
 198 }
 199
 200 function generer_url_aide_img($args){
 201         return generer_url_action('aide_img', $args, false, true);
 202 }
 203
 204
 205 // Les aides non mises a jour ont un vieux Path a remplacer
 206 // (mais ce serait bien de le faire en SQL une bonne fois)
 207 define('_REPLACE_IMG_PACK', "@(<img([^<>]* +)?\s*src=['\"])img_pack\/@ims");
 208
 209 // Remplacer les URL des images par l'URL du gestionnaire de cache local
 210 function aide_fixe_img($contenu, $server){
 211         $html = "";
 212         $re = "@(<img([^<>]* +)?\s*src=['\"])((AIDE|IMG|local)/([-_a-zA-Z0-9]*/?)([^'\"<>]*))@imsS";
 213         while (preg_match($re, $contenu, $r)) {
 214                 $p = strpos($contenu, $r[0]);
 215                 $i = $server . '/' . $r[3];
 216                 $html .= substr($contenu, 0, $p) .  $r[1] . $i;
 217                 $contenu = substr($contenu, $p + strlen($r[0]));
 218         }
 219         $html .= $contenu;
 220
 221         // traiter les vieilles doc
 222         return  preg_replace(_REPLACE_IMG_PACK,"\\1"._DIR_IMG_PACK, $html);
 223 }
 224
 225
 226 // Extraire la seule section demandee,
 227 // qui commence par son nom entouree d'une balise h2
 228 // et se termine par la prochaine balise h2 ou h1 ou le /body final.
 229
 230 function aide_section($aide, $contenu, $prof=2){
 231         $maxprof = ($prof >=2) ? "12" : "1";
 232         $r = "@<h$prof" . '(?: class="spip")?' . '>\s*' . $aide
 233           ."\s*(?:/.+?)?</h$prof>(.*?)<(?:(?:h[$maxprof])|/body)@ism";
 234
 235         if (preg_match($r, $contenu, $m))
 236           return $m[1];
 237 #       spip_log("aide inconnue $r dans " . substr($contenu, 0, 150));
 238         return '';
 239 }
 240
 241
 242 ?>