+<?php
+
+/***************************************************************************\
+ * SPIP, Systeme de publication pour l'internet *
+ * *
+ * Copyright (c) 2001-2016 *
+ * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
+ * *
+ * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
+ * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
+\***************************************************************************/
+
+/**
+ * Gestion de l'aide en ligne de SPIP
+ *
+ * L'aide en ligne de SPIP est disponible sous forme d'articles de www.spip.net
+ * qui ont des repères nommés arttitre, artdesc etc.
+ *
+ * La fonction `inc_aider_dist` reçoit soit ces repères,
+ * soit le nom du champ de saisie, le nom du squelette le contenant et enfin
+ * l'environnement d'exécution du squelette (inutilisé pour le moment).
+ *
+ * Le tableau global `aider_index` donne ces repères.
+ *
+ * @package SPIP\Core\Aider
+ */
+
+if (!defined('_ECRIRE_INC_VERSION')) {
+ return;
+}
+
+include_spip('inc/filtres');
+
+$GLOBALS['aider_index'] = array(
+ 'editer_article.html' => array(
+ 'surtitre' => 'arttitre',
+ 'titre' => 'arttitre',
+ 'soustitre' => 'arttitre',
+ 'id_parent' => 'artrub',
+ 'descriptif' => 'artdesc',
+ 'virtuel' => 'artvirt',
+ 'chapo' => 'arttitre',
+ 'text_area' => 'arttexte'
+ ),
+
+ 'editer_breve.html' => array(
+ 'id_parent' => 'brevesrub',
+ 'lien_titre' => 'breveslien',
+ 'statut' => 'brevesstatut'
+ ),
+
+ 'editer_groupe_mot.html' => array(
+ 'titre' => 'motsgroupes'
+ ),
+
+ 'editer_mot.html' => array(
+ 'titre' => 'mots',
+ 'id_groupe' => 'motsgroupes'
+ ),
+
+ 'editer_rubrique.html' => array(
+ 'titre' => 'arttitre',
+ 'id_parent' => 'rubrub',
+ 'text_area' => 'raccourcis'
+ )
+
+);
+
+
+/**
+ * Générer un lien d'aide (icône + lien)
+ *
+ * @uses aider_icone()
+ *
+ * @param string $aide
+ * clé d'identification de l'aide souhaitée
+ * @param string $skel
+ * Nom du squelette qui appelle ce bouton d'aide
+ * @param array $env
+ * Environnement du squelette
+ * @param bool $aide_spip_directe
+ * false : Le lien généré est relatif à notre site (par défaut)
+ * true : Le lien est réalisé sur spip.net/aide/ directement...
+ * @return string
+ **/
+function inc_aide_dist($aide = '', $skel = '', $env = array(), $aide_spip_directe = false) {
+
+ if (($skel = basename($skel))
+ and isset($GLOBALS['aider_index'][$skel])
+ and isset($GLOBALS['aider_index'][$skel][$aide])
+ ) {
+ $aide = $GLOBALS['aider_index'][$skel][$aide];
+ }
+
+ if ($aide_spip_directe) {
+ // on suppose que spip.net est le premier present
+ // dans la liste des serveurs. C'est forcement le cas
+ // a l'installation tout du moins
+ $help_server = $GLOBALS['help_server'];
+ $url = array_shift($help_server) . '/';
+ $url = parametre_url($url, 'exec', 'aide');
+ $url = parametre_url($url, 'aide', $aide);
+ $url = parametre_url($url, 'var_lang', $GLOBALS['spip_lang']);
+ } else {
+ $args = "aide=$aide&var_lang=" . $GLOBALS['spip_lang'];
+ $url = generer_url_ecrire('aide', $args);
+ }
+
+ return aider_icone($url);
+}
+
+/**
+ * Créer l'icône d'aide
+ *
+ * @global string $spip_lang
+ * @global string $spip_lang_rtl
+ *
+ * @param string $url
+ * URL vers l'aide
+ * @param string $clic
+ * Contenu de la balise de lien.
+ * @return string
+ * Icone d'aide
+ */
+function aider_icone($url, $clic = '') {
+
+ include_spip('inc/lang');
+ if (!$clic) {
+ $t = _T('titre_image_aide');
+ $clic = http_img_pack(
+ 'aide' . aide_lang_dir($GLOBALS['spip_lang'], $GLOBALS['spip_lang_rtl']) . '-16.png',
+ _T('info_image_aide'),
+ " title=\"$t\" class='aide'"
+ );
+ }
+
+ return "\n <a class='aide popin'\nhref='"
+ . $url
+ . "' target='_blank'>"
+ . $clic
+ . '</a>';
+}
+
+/** Les sections d'un fichier aide sont reperées ainsi. */
+define('_SECTIONS_AIDE', ',<h([12])(?:\s+class="spip")?' . '>([^/]+?)(?:/(.+?))?</h\1>,ism');
+/**
+ * Création des fichiers de l'aide de SPIP
+ *
+ * @uses _DIR_AIDE
+ * @uses _SECTIONS_AIDE
+ *
+ * @uses copie_locale()
+ * @uses aide_fixe_img()
+ * @uses aide_section()
+ *
+ * @param string $path
+ * @param array $help_server
+ * @return array
+ */
+function aide_fichier($path, $help_server) {
+
+ $md5 = md5(serialize($help_server));
+ $fichier_aide = _DIR_AIDE . substr($md5, 0, 16) . '-' . $path;
+ $lastm = @filemtime($fichier_aide);
+ $lastversion = @filemtime(_DIR_RESTREINT . 'inc_version.php');
+ $here = @(is_readable($fichier_aide) and ($lastm >= $lastversion));
+ $contenu = '';
+
+ if ($here) {
+ lire_fichier($fichier_aide, $contenu);
+
+ return array($contenu, $lastm);
+ }
+
+ // mettre en cache (tant pis si echec)
+ sous_repertoire(_DIR_AIDE, '', '', true);
+ $contenu = array();
+ include_spip('inc/distant');
+ foreach ($help_server as $k => $server) {
+ // Remplacer les liens aux images par leur gestionnaire de cache
+ $url = "$server/$path";
+ $local = _DIR_AIDE . substr(md5($url), 0, 8) . '-' . preg_replace(',[^\w.]+,i', '_', $url);
+ $local = _DIR_RACINE . copie_locale($url, 'modif', $local);
+
+ lire_fichier($local, $page);
+ $page = aide_fixe_img($page, $server);
+ // les liens internes ne doivent pas etre deguises en externes
+ $url = parse_url($url);
+ $re = '@(<a\b[^>]*\s+href=["\'])' .
+ '(?:' . $url['scheme'] . '://' . $url['host'] . ')?' .
+ $url['path'] . '([^"\']*)@ims';
+ $page = preg_replace($re, '\\1\\2', $page);
+
+ preg_match_all(_SECTIONS_AIDE, $page, $sections, PREG_SET_ORDER);
+ // Fusionner les aides ayant meme nom de section
+ $vus = array();
+ foreach ($sections as $section) {
+ list($tout, $prof, $sujet, ) = $section;
+ if (in_array($sujet, $vus)) {
+ continue;
+ }
+ $corps = aide_section($sujet, $page, $prof);
+ foreach ($contenu as $k => $s) {
+ if ($sujet == $k) {
+ // Section deja vue qu'il faut completer
+ // Si le complement a des sous-sections,
+ // ne pas en tenir compte quand on les rencontrera
+ // lors des prochains passages dans la boucle
+ preg_match_all(_SECTIONS_AIDE, $corps, $s, PREG_PATTERN_ORDER);
+ if ($s) {
+ $vus = array_merge($vus, $s[2]);
+ }
+ $contenu[$k] .= $corps;
+ $corps = '';
+ break;
+ }
+ }
+ // Si totalement nouveau, inserer le titre
+ // mais pas le corps s'il contient des sous-sections:
+ // elles vont venir dans les passages suivants
+ if ($corps) {
+ $corps = aide_section($sujet, $page);
+ $contenu[$sujet] = $tout . "\n" . $corps;
+ }
+ }
+ }
+
+ $contenu = '<div>' . join('', $contenu) . '</div>';
+
+ // Renvoyer les liens vraiment externes dans une autre fenetre
+ $contenu = preg_replace(
+ '@<a href="(http://[^"]+)"([^>]*)>@',
+ '<a href="\\1"\\2 target="_blank">',
+ $contenu
+ );
+
+ // Correction typo dans la langue demandee
+ #changer_typo($lang_aide);
+ $contenu = '<body>' . $contenu . '</body>';
+
+ if (strlen($contenu) <= 100) {
+ return array(false, false);
+ }
+ ecrire_fichier($fichier_aide, $contenu);
+
+ return array($contenu, time());
+}
+
+/**
+ * Générer l'url des images de l'aide
+ *
+ * @param string|array $args
+ * Arguments à transmettre à l'URL :
+ * - string : tel que `arg1=yy&arg2=zz`
+ * - array : tel que `array( arg1 => yy, arg2 => zz )`
+ * @return string
+ * URL
+ */
+function generer_url_aide_img($args) {
+ return generer_url_action('aide_img', $args, false, true);
+}
+
+
+/** Les aides non mises à jour ont un vieux Path à remplacer
+ *
+ * @note (mais ce serait bien de le faire en SQL une bonne fois)
+ */
+define('_REPLACE_IMG_PACK', "@(<img([^<>]* +)?\s*src=['\"])img_pack\/@ims");
+
+/**
+ * Remplacer les URL des images par l'URL du gestionnaire de cache local
+ *
+ * @uses _REPLACE_IMG_PACK
+ * @uses _DIR_IMG_PACK
+ *
+ * @param string $contenu
+ * @param string $server
+ * @return string
+ */
+function aide_fixe_img($contenu, $server) {
+ $html = '';
+ $re = "@(<img([^<>]* +)?\s*src=['\"])((AIDE|IMG|local)/([-_a-zA-Z0-9]*/?)([^'\"<>]*))@imsS";
+ while (preg_match($re, $contenu, $r)) {
+ $p = strpos($contenu, $r[0]);
+ $i = $server . '/' . $r[3];
+ $html .= substr($contenu, 0, $p) . $r[1] . $i;
+ $contenu = substr($contenu, $p + strlen($r[0]));
+ }
+ $html .= $contenu;
+
+ // traiter les vieilles doc
+ return preg_replace(_REPLACE_IMG_PACK, "\\1" . _DIR_IMG_PACK, $html);
+}
+
+
+/**
+ * Extraire une section d'aide
+ *
+ * Extraire la seule section demandée, qui commence par son nom entourée d'une
+ * balise h2 et se termine par la prochaine balise h2 ou h1 ou le /body final.
+ *
+ * @param string $aide
+ * Titre de la section d'aide
+ * @param string $contenu
+ * @param int $prof
+ * Dans quel hn doit-on mettre le titre de section
+ * @return string
+ */
+function aide_section($aide, $contenu, $prof = 2) {
+ $maxprof = ($prof >= 2) ? '12' : '1';
+ $r = "@<h$prof" . '(?: class="spip")?' . '>\s*' . $aide
+ . "\s*(?:/.+?)?</h$prof>(.*?)<(?:(?:h[$maxprof])|/body)@ism";
+
+ if (preg_match($r, $contenu, $m)) {
+ return $m[1];
+ }
+
+# spip_log("aide inconnue $r dans " . substr($contenu, 0, 150));
+ return '';
+}