<?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.   *
\***************************************************************************/

if (!defined('_ECRIRE_INC_VERSION')) return;

include_spip('inc/lang');
include_spip('public/quete'); // pour quete_chapo et ses dependances

// NB: mes_fonctions peut initialiser $dossier_squelettes (old-style)
// donc il faut l'inclure "en globals"
if ($f = find_in_path('mes_fonctions.php')) {
    global $dossier_squelettes;
    include_once(_ROOT_CWD . $f);
}

if (@is_readable(_CACHE_PLUGINS_FCT)) {
    // chargement optimise precompile
    include_once(_CACHE_PLUGINS_FCT);
}

# Determine le squelette associe a une requete 
# et l'applique sur le contexte, le nom du cache et le serveur
# en ayant evacue au prealable le cas de la redirection
# Retourne un tableau ainsi construit
# 'texte' => la page calculee
# 'process_ins' => 'html' ou 'php' si presence d'un '< ?php'
# 'invalideurs' => les invalideurs de ce cache
# 'entetes' => headers http
# 'duree' => duree de vie du cache
# 'signal' => contexte (les id_* globales)

# En cas d'erreur process_ins est absent et texte est un tableau de 2 chaines

// http://doc.spip.org/@public_parametrer_dist
function public_parametrer_dist($fond, $contexte='', $cache='', $connect='')  {
    $page = tester_redirection($fond, $contexte, $connect);
    if ($page) return $page;

    if (isset($contexte['lang']))
        $lang = $contexte['lang'];
    elseif (!isset($lang))
        $lang = $GLOBALS['meta']['langue_site'];

    $select = ((!isset($GLOBALS['forcer_lang']) OR !$GLOBALS['forcer_lang']) AND $lang <> $GLOBALS['spip_lang']);
    if ($select) $select = lang_select($lang);

    $debug = (isset($GLOBALS['var_mode']) && ($GLOBALS['var_mode'] == 'debug'));

    $styliser = charger_fonction('styliser', 'public');
    list($skel,$mime_type, $gram, $sourcefile) =
        $styliser($fond, $contexte, $GLOBALS['spip_lang'], $connect, _EXTENSION_SQUELETTES);

    if ($skel) {

        // sauver le nom de l'eventuel squelette en cours d'execution
        // (recursion possible a cause des modeles)
        if ($debug) {
            $courant = @$GLOBALS['debug_objets']['courant'];
            $GLOBALS['debug_objets']['contexte'][$sourcefile] = $contexte;
        }

        // charger le squelette en specifiant les langages cibles et source
        // au cas il faudrait le compiler (source posterieure au resultat)

        $composer = charger_fonction('composer', 'public');
        $code = $composer($skel, $mime_type, $gram, $sourcefile, $connect);
    } else $code = '';

    if (!$code) { // squelette inconnu (==='') ou faux (===false)
        $page = $code;
    } else {
    // Preparer l'appel de la fonction principale du squelette 

        list($fonc) = $code;
        spip_timer($a = 'calcul page '.rand(0,1000));

        // On cree un marqueur de notes unique lie a cette composition
        // et on enregistre l'etat courant des globales de notes...
        $notes = charger_fonction('notes', 'inc');
        $notes('','empiler');

        // Rajouter d'office ces deux parametres
        // (mais vaudrait mieux que le compilateur sache le simuler
        // car ca interdit l'usage de criteres conditionnels dessus).
        if (!isset($contexte['datex'])) { //PVA
            //$contexte['date'] = date("Y-m-d H:i:s");
            //$contexte['date_default'] = true;
        } else $contexte['date'] = normaliser_date($contexte['date'], true);

        if (!isset($contexte['date_redac'])) { //pva
           // $contexte['date_redac'] = date("Y-m-d H:i:s");
           // $contexte['date_redac_default'] = true;
        } else $contexte['date_redac'] = normaliser_date($contexte['date_redac'], true);

    // Passer le nom du cache pour produire sa destruction automatique
        $page = $fonc(array('cache' => $cache), array($contexte));

    // Restituer les globales de notes telles qu'elles etaient avant l'appel
    // Si l'inclus n'a pas affiche ses notes, tant pis (elles *doivent*
    // etre dans son resultat, autrement elles ne seraient pas prises en
    // compte a chaque calcul d'un texte contenant un modele, mais seulement
    // quand le modele serait calcule, et on aurait des resultats incoherents)
        $notes('','depiler');

        // reinjecter en dynamique la pile des notes
        // si il y a des inclure dynamiques
        // si la pile n'est pas vide
        // la generalisation de cette injection permettrait de corriger le point juste au dessus
        // en faisant remonter les notes a l'incluant (A tester et valider avant application)
        $page['notes'] = $notes('','sauver_etat');

        // spip_log: un joli contexte
        $infos = array();
        foreach (array_filter($contexte) as $var => $val) {
            if (is_array($val)) $val = serialize($val);
            if (strlen("$val") > 30)
                $val = substr("$val", 0,27).'..';
            if (strstr($val,' '))
                $val = "'$val'";
            $infos[] = $var.'='.$val;
        }
        $profile = spip_timer($a);
        spip_log("calcul ($profile) [$skel] "
            . join(', ', $infos)
            .' ('.strlen($page['texte']).' octets)');

        if ($debug) {
        // si c'est ce que demande le debusqueur, lui passer la main
            $t = strlen($page['texte']) ? $page['texte'] : " ";
            $GLOBALS['debug_objets']['resultat'][$fonc . 'tout'] = $t;
            $GLOBALS['debug_objets']['courant'] = $courant;
            $GLOBALS['debug_objets']['profile'][$sourcefile] = $profile;
            if ($GLOBALS['debug_objets']['sourcefile']
            AND (_request('var_mode_objet') == $fonc)
            AND (_request('var_mode_affiche') == 'resultat')) {
                erreur_squelette();
            }
        }
        // Si #CACHE{} n'etait pas la, le mettre a $delais
        if (!isset($page['entetes']['X-Spip-Cache']))
            $page['entetes']['X-Spip-Cache'] = isset($GLOBALS['delais'])?$GLOBALS['delais']:36000;

        $page['contexte'] = $contexte;
        // faire remonter le fichier source
        //if ($GLOBALS['var_inclure'])

        static $var_inclure = false;
        if ($GLOBALS['var_inclure']){
            $page['sourcefile'] = $sourcefile;
            $page['texte'] =
                "<div class='inclure_blocs'><h6>".$page['sourcefile']."</h6>".$page['texte']."</div>"
                . ($var_inclure?"":"<script type='text/javascript'>jQuery(function(){jQuery('.inclure_blocs > h6:first-child').hover(function(){jQuery(this).parent().addClass('hover')},function(){jQuery(this).parent().removeClass('hover')})});</script>");
            $var_inclure = true;
        }

        // Si un modele contenait #SESSION, on note l'info dans $page
        if (isset($GLOBALS['cache_utilise_session'])) {
            $page['invalideurs']['session'] = $GLOBALS['cache_utilise_session'];
            unset($GLOBALS['cache_utilise_session']);
        }
    }

    if ($select) lang_select();

    return $page;
}


/**
 * si le champ chapo commence par '=' c'est une redirection.
 * avec un eventuel raccourci Spip
 * si le raccourci a un titre il sera pris comme corps du 302
 *
 * http://doc.spip.org/@tester_redirection
 *
 * @param string $fond
 * @param array $contexte
 * @param string $connect
 * @return array|bool
 */
function tester_redirection($fond, $contexte, $connect)
{
    if ($fond == 'article'
    AND $id_article = intval($contexte['id_article'])) {
        $m = quete_chapo($id_article, $connect);
        if ($m[0]=='=') {
            include_spip('inc/texte');
            // les navigateurs pataugent si l'URL est vide
            if ($url = chapo_redirige(substr($m,1), true)){
                // passer en url absolue car cette redirection pourra
                // etre utilisee dans un contexte d'url qui change
                // y compris url arbo
                if (!preg_match(',^\w+:,', $url)) {
                    include_spip('inc/filtres_mini');
                    $url = url_absolue($url);
                }
                $url = str_replace('&amp;', '&', $url);
                return array('texte' => "<"
                . "?php header('Location: "
                . texte_script($url)
                . "'); echo '"
                .  addslashes($url)
                . "'.\"\n\"?" . ">",
                    'process_ins' => 'php');
            }
        }
    }
    return false;
}

?>