]*\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());
}
/**
* 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', "@(]* +)?\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 = "@(]* +)?\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 = "@\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 '';
}