" .$titre ."

X-Git-Url: http://git.cyclocoop.org/?p=velocampus%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fecrire%2Fexec%2Faide_index.php;fp=www%2Fecrire%2Fexec%2Faide_index.php;h=1e7b5d04f42e2a91636b9717ba5f77bf33e6aead;hp=0000000000000000000000000000000000000000;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c diff --git a/www/ecrire/exec/aide_index.php b/www/ecrire/exec/aide_index.php new file mode 100644 index 0000000..1e7b5d0 --- /dev/null +++ b/www/ecrire/exec/aide_index.php @@ -0,0 +1,415 @@ +([^/]+?)(?:/(.+?))?,ism'); + +// Les appels a soi-meme (notamment les images) +// doivent etre en relatif pour pouvoir creer un cache local + +function generer_url_aide($args) +{ + return generer_url_ecrire('aide_index', $args, false, true); +} + +function help_fichier_contenu ($lang_aide, $path, $help_server) { + $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"; + $page = help_replace_img(recuperer_page($url),$k); + // les liens internes ne doivent pas etre deguises en externes + $url = parse_url($url); + $re = '@(]*\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 = help_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 + if (preg_match_all(_SECTIONS_AIDE, $corps, $m, PREG_PATTERN_ORDER)) { + if ($m) {$vus = array_merge($vus, $m[2]);} + $contenu[$k] .= $corps; + $corps = ''; + break; + } else spip_log("aide $server $section incorrecte"); + } + } + // 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 = help_section($sujet, $page); + $contenu[$sujet] = $tout . "\n" . $corps; + } + } + } + + // Renvoyer les liens vraiment externes dans une autre fenetre + $contenu = preg_replace('@]*)>@', + '', + join('',$contenu)); + + + if (strlen($contenu) <= 75) return array(false, false); + + // Correction typo dans la langue demandee + changer_typo($lang_aide); + return '' . justifier("

") . ''; +} + +// http://doc.spip.org/@help_lastmodified +function help_lastmodified($lastmodified) +{ + $gmoddate = gmdate("D, d M Y H:i:s", $lastmodified); + header("Last-Modified: ".$gmoddate." GMT"); + if (isset($_SERVER['HTTP_IF_MODIFIED_SINCE']) + # MSoft IIS is dumb + AND !preg_match(',IIS/,', $_SERVER['SERVER_SOFTWARE'])) { + + $ims = preg_replace('/;.*/', '', + $_SERVER['HTTP_IF_MODIFIED_SINCE']); + $ims = trim(str_replace('GMT', '', $ims)); + if ($ims == $gmoddate) { + http_status(304); + return true; + } + } + return false; +} + +// 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 help_replace_img($contenu, $server=0) +{ + $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 . ':' . str_replace('/', '-', $r[3]); + $h = generer_url_aide("img=" . $i); + $html .= substr($contenu, 0, $p) . $r[1] . $h; + $contenu = substr($contenu, $p + strlen($r[0])); + } + $html .= $contenu; + + // traiter les vieilles doc + return preg_replace(_REPLACE_IMG_PACK,"\\1"._DIR_IMG_PACK, $html); +} + +// un bout de squelette qu'il serait bon d'evacuer un jour. + +define('_HELP_PANNEAU', " SPIP

SPIP

+ Système de publication pour l'Internet +

"); + +// Autre squelette qui ne s'avoue pas comme tel + +// http://doc.spip.org/@help_body +function help_body($aide) { + + if (!$aide) { + $c = _T('info_copyright_doc', + array('spipnet' => $GLOBALS['home_server'] + . '/' . $GLOBALS['spip_lang'] + . '_')); + return "

" . + _HELP_PANNEAU . + preg_replace(",'; + } elseif ($aide == 'spip') { + return " + +

SPIP

"; + } return ''; +} + + +// 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 help_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]; + return ''; +} + + + +// Affichage du menu de gauche avec analyse de la section demandee +// afin d'ouvrir le sous-menu correspondant a l'affichage a droite +// http://doc.spip.org/@help_menu_rubrique +function help_menu_rubrique($aide, $contenu) +{ + global $spip_lang; + + $afficher = false; + $ligne = $numrub = 0; + $texte = $res = ''; + preg_match_all(_SECTIONS_AIDE, $contenu, $sections, PREG_SET_ORDER); + foreach ($sections as $section) { + list(,$prof, $sujet, $bloc) = $section; + if ($prof == '1') { + if ($afficher && $texte) + $res .= block_parfois_visible("block$numrub", "

", "\n$texte",'', $ouvrir); + $afficher = $bloc ? ($bloc == 'redac') : true; + $texte = ''; + if ($afficher) { + $numrub++; + $ouvrir = 0; + $titre = $sujet; + } + } else { + ++$ligne; + $id = "ligne$ligne"; + + if ($aide == $sujet) { + $ouvrir = 1; + $class = "article-actif"; + $texte .= http_script("curr_article = '$id';"); + } else $class = "article-inactif"; + + $h = generer_url_aide("aide=$sujet&frame=body&var_lang=$spip_lang"); + $texte .= "" + . $bloc + . "
\n"; + } + } + if ($afficher && $texte) + $res .= block_parfois_visible("block$numrub", "

$titre

", "\n$texte",'', $ouvrir); + return $res; +} + +function help_frame_menu($titre, $contenu, $lang) +{ + global $spip_lang_rtl; + + return "\n" .$titre ."\n" . + '\n" . + http_script('', 'jquery.js') . + "\n" . + $GLOBALS['browser_layer'] . + http_script('var curr_article; +function activer_article(id) { + if (curr_article) + jQuery("#"+curr_article).removeClass("article-actif").addClass("article-inactif"); + if (id) { + jQuery("#"+id).removeClass("article-inactif").addClass("article-actif"); + curr_article = id; + } +} +') . ' + +' . + $contenu . + ''; +} + +function help_frame_body($titre, $aide, $html, $lang_aide='') +{ + global $spip_lang_rtl; + $dir = $spip_lang_rtl ? " dir='rtl'" : ''; + + return "\n$titre\n". + '\n". + "\n". + '". + help_body($aide) . + ($aide ? $html : ''). + ''; +} + +function help_frame_frame($titre, $aide, $lang) +{ + global $spip_lang_rtl; + $menu = "\n"; + $body = "\n"; + + $seq = $spip_lang_rtl ? "$body$menu" : "$menu$body"; + $dim = $spip_lang_rtl ? '*,160' : '160,*'; + return "\n$titre\n\n$seq"; +} + +// http://doc.spip.org/@help_img_cache +function help_img_cache($img, $ext) +{ + header("Content-Type: image/$ext"); + header("Expires: ".gmdate("D, d M Y H:i:s", time()+24*3600) .' GMT'); + readfile($img); +} + +// Regexp reperant le travail fait par help_replace_img +define('_HELP_PLACE_IMG',',^(\d+:)?(([^-.]*)-([^-.]*)-([^\.]*\.(gif|jpg|png)))$,'); + +// Distinguer la demande d'une image et la demande d'un texte. +// Si c'est une URL d'image deguisee, on la cherche dans le cache ou on l'y met. +// Voir les differentes localisations possibles dans help_replace_img +// +// http://doc.spip.org/@exec_aide_index_dist +function exec_aide_index_dist() +{ + global $help_server; + if (!is_array($help_server)) $help_server = array($help_server); + if (!preg_match(_HELP_PLACE_IMG, _request('img'), $r)) { + aide_index_frame(_request('var_lang_r'), + _request('lang_r'), + _request('frame'), + strtr(_request('aide'),'<>"\'', '____'), + $help_server); + } else { + list (,$server, $cache, $rep, $lang, $file, $ext) = $r; + if ($rep=="IMG" AND $lang=="cache" + AND @file_exists($img = _DIR_VAR.'cache-TeX/'.preg_replace(',^TeX-,', '', $file))) { + help_img_cache($img, $ext); + } else if (@file_exists($img = _DIR_AIDE . $cache)) { + help_img_cache($img, $ext); + } else if (@file_exists($img = _DIR_RACINE . 'AIDE/aide-'.$cache)) { + help_img_cache($img, $ext); + } else { + $server = intval(substr($server, 0, -1)); + if ($server = $help_server[$server]) { + include_spip('inc/distant'); + sous_repertoire(_DIR_AIDE,'','',true); + $img = "$server/$rep/$lang/$file"; + $contenu = recuperer_page($img); + if ($contenu) { + ecrire_fichier (_DIR_AIDE . $cache, $contenu); + // Bug de certains OS: + // le contenu est incompris au premier envoi + // Donc ne pas mettre d'Expire + header("Content-Type: image/$ext"); + echo $contenu; + } else redirige_par_entete($img); + } else redirige_par_entete(generer_url_public('404')); + } + } +} + +// Determiner la langue L, et en deduire le Path du fichier d'aide. +// Sur le site www.spip.net/, ca donne l'URL www.spip.net/L-aide.html +// reecrit par le htacces suivant: +// http://zone.spip.org/trac/spip-zone/browser/_galaxie_/www.spip.net/squelettes/htaccess.txt + +function aide_index_frame($var_lang_r, $lang_r, $frame, $aide, $help_server) +{ + global $spip_lang; + + if ($var_lang_r) + changer_langue($lang = $var_lang_r); + if ($lang_r) + # pour le cas ou on a fait appel au menu de changement de langue + # (aide absente dans la langue x) + changer_langue($lang = $lang_r); + else $lang = $spip_lang; + + // L'aide correspondant a la langue demandee est dans un cache + // reposant sur la date du fichier indiquant la version de SPIP + // (approximatif, mais c'est deja qqch) + + $path = $spip_lang . "-aide.html"; + $md5 = md5(serialize($help_server)); + $fichier = _DIR_AIDE . substr($md5,0,16) . "-" . $path; + $lastm = is_readable($fichier) ? filemtime($fichier) : 0; + $lastversion = @filemtime(_DIR_RESTREINT . 'inc_version.php'); + if (!($lastm AND ($lastm >= $lastversion))) { + $contenu = help_fichier_contenu($spip_lang, $path, $help_server); + // mettre en cache (tant pis si echec) + sous_repertoire(_DIR_AIDE,'','',true); + if ($contenu) ecrire_fichier ($fichier, $contenu); + $lastm = time(); + } + $titre = _T('info_aide_en_ligne'); + if (!$frame) { + echo _DOCTYPE_AIDE, html_lang_attributes(); + echo help_frame_frame($titre, $aide, $lang); + echo "\n"; + } else { + header("Content-Type: text/html; charset=utf-8"); + if (!isset($contenu)) { + lire_fichier($fichier, $contenu); + } + if (!$contenu) { + include_spip('inc/minipres'); + echo minipres(_T('forum_titre_erreur'), + "

" . + $help_server[0] . + " $aide : ". + _T('aide_non_disponible'). + "

". + menu_langues('var_lang_ecrire'). + "

"); + // Envoie le not-modified-since si possible, sinon envoie tout + } elseif (!help_lastmodified($lastm)) { + echo _DOCTYPE_AIDE, html_lang_attributes(); + if ($frame === 'menu') { + $contenu = help_menu_rubrique($aide, $contenu); + echo help_frame_menu($titre, $contenu, $lang); + } else { + if ($aide) { + $contenu = help_section($aide, $contenu); + if (!$contenu) spip_log("aide inconnue $aide dans " . substr($contenu, 0, 150)); + } + echo help_frame_body($titre, $aide, $contenu, $lang); + } + echo "\n"; + } + } +} + +?>