]*\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 = '' . join('',$contenu) . '
';
+
+ // Renvoyer les liens vraiment externes dans une autre fenetre
+ $contenu = preg_replace('@]*)>@',
+ '',
+ $contenu);
+
+ // Correction typo dans la langue demandee
+ #changer_typo($lang_aide);
+ $contenu = '' . $contenu . '';
+
+ if (strlen($contenu) <= 100) return array(false, false);
+ ecrire_fichier ($fichier_aide, $contenu);
+ return array($contenu, time());
+}
+
+function generer_url_aide_img($args){
+ return generer_url_action('aide_img', $args, false, true);
+}
+
+
+// Les aides non mises a jour ont un vieux Path a remplacer
+// (mais ce serait bien de le faire en SQL une bonne fois)
+define('_REPLACE_IMG_PACK', "@(]* +)?\s*src=['\"])img_pack\/@ims");
+
+// Remplacer les URL des images par l'URL du gestionnaire de cache local
+function aide_fixe_img($contenu, $server){
+ $html = "";
+ $re = "@(]* +)?\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 la seule section demandee,
+// qui commence par son nom entouree d'une balise h2
+// et se termine par la prochaine balise h2 ou h1 ou le /body final.
+
+function aide_section($aide, $contenu, $prof=2){
+ $maxprof = ($prof >=2) ? "12" : "1";
+ $r = "@\s*' . $aide
+ ."\s*(?:/.+?)?(.*?)<(?:(?:h[$maxprof])|/body)@ism";
+
+ if (preg_match($r, $contenu, $m))
+ return $m[1];
+# spip_log("aide inconnue $r dans " . substr($contenu, 0, 150));
+ return '';
+}
+
+
+?>