<?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;

// Ce fichier doit imperativement definir la fonction ci-dessous:

/**
 * Determiner le squelette qui sera utilise pour rendre la page ou le bloc
 * a partir de $fond et du $contetxe
 * 
 * Actuellement tous les squelettes se terminent par .html
 * pour des raisons historiques, ce qui est trompeur
 *
 * @param string $fond
 * @param array $contexte
 * @param string $lang
 * @param string $connect
 * @param string $ext
 * @return array
 *
 * http://doc.spip.org/@public_styliser_dist
 */
function public_styliser_dist($fond, $contexte, $lang='', $connect='') {
	static $styliser_par_z;

	// s'assurer que le fond est licite
	// car il peut etre construit a partir d'une variable d'environnement
	if (strpos($fond,"../")!==false OR strncmp($fond,'/',1)==0)
		$fond = "404";
  
	// Choisir entre $fond-dist.html, $fond=7.html, etc?
	$id_rubrique = 0;
	// Chercher le fond qui va servir de squelette
	if ($r = quete_rubrique_fond($contexte))
		list($id_rubrique, $lang) = $r;

	// trouver un squelette du nom demande
	// ne rien dire si on ne trouve pas, 
	// c'est l'appelant qui sait comment gerer la situation
	// ou les plugins qui feront mieux dans le pipeline
	$squelette = trouver_fond($fond,"",true);
	$ext = $squelette['extension'];

	$flux = array(
		'args' => array(
			'id_rubrique' => $id_rubrique,
			'ext' => $ext,
			'fond' => $fond,
			'lang' => $lang,
			'contexte' => $contexte, // le style d'un objet peut dependre de lui meme
			'connect' => $connect
		),
		'data' => $squelette['fond'],
	);

	if (test_espace_prive() OR defined('_ZPIP')) {
		if (!$styliser_par_z)
			$styliser_par_z = charger_fonction('styliser_par_z','public');
		$flux = $styliser_par_z($flux);
	}

	$flux = styliser_par_objets($flux);

	// pipeline styliser
	$squelette = pipeline('styliser', $flux);

	return array($squelette, $ext, $ext, "$squelette.$ext");
}

function styliser_par_objets($flux){
	if (test_espace_prive()
		AND !$squelette = $flux['data']
	  AND strncmp($flux['args']['fond'],'prive/objets/',13)==0
	  AND $echafauder = charger_fonction('echafauder','prive',true)) {
		if (strncmp($flux['args']['fond'],'prive/objets/liste/',19)==0){
			$table = table_objet(substr($flux['args']['fond'],19));
			$table_sql = table_objet_sql($table);
			$objets = lister_tables_objets_sql();
			if (isset($objets[$table_sql]))
				$flux['data'] = $echafauder($table,$table,$table_sql,"prive/objets/liste/objets",$flux['args']['ext']);
		}
		if (strncmp($flux['args']['fond'],'prive/objets/contenu/',21)==0){
			$type = substr($flux['args']['fond'],21);
			$table = table_objet($type);
			$table_sql = table_objet_sql($table);
			$objets = lister_tables_objets_sql();
			if (isset($objets[$table_sql]))
				$flux['data'] = $echafauder($type,$table,$table_sql,"prive/objets/contenu/objet",$flux['args']['ext']);
		}
	}
	return $flux;
}

/**
 * Calcul de la rubrique associee a la requete
 * (selection de squelette specifique par id_rubrique & lang)
 *
 * attention, on repete cela a chaque inclusion,
 * on optimise donc pour ne faire la recherche qu'une fois
 * par contexte semblable du point de vue des id_xx
 *
 * http://doc.spip.org/@quete_rubrique_fond
 *
 * @staticvar array $liste_objets
 * @param array $contexte
 * @return array
 */
function quete_rubrique_fond($contexte) {
	static $liste_objets = null;
	static $quete = array();
	if (is_null($liste_objets)) {
		$liste_objets = array();
		include_spip('inc/urls');
		include_spip('public/quete');
		$l = urls_liste_objets(false);
		// placer la rubrique en tete des objets
		$l = array_diff($l,array('rubrique'));
		array_unshift($l, 'rubrique');
		foreach($l as $objet){
			$id = id_table_objet($objet);
			if (!isset($liste_objets[$id]))
				$liste_objets[$id] = objet_type($objet,false);
		}
	}
	$c = array_intersect_key($contexte,$liste_objets);
	if (!count($c)) return false;

	$c = array_map('intval',$c);
	$s = serialize($c);
	if (isset($quete[$s]))
		return $quete[$s];

	if (isset($c['id_rubrique']) AND $r = $c['id_rubrique']){
		unset($c['id_rubrique']);
		$c = array('id_rubrique'=>$r) + $c;
	}

	foreach($c as $_id=>$id) {
		if ($id
		  AND $row = quete_parent_lang(table_objet_sql($liste_objets[$_id]),$id)) {
			$lang = isset($row['lang']) ? $row['lang'] : '';
			if ($_id=='id_rubrique' OR (isset($row['id_rubrique']) AND $id=$row['id_rubrique']))
				return $quete[$s] = array ($id, $lang);
		}
	}
	return $quete[$s] = false;
}
?>