Subversion Repositories Sites.tela-botanica.org

<?php

/***************************************************************************\

 *  SPIP, Systeme de publication pour l'internet                           *

 *                                                                         *

 *  Copyright (c) 2001-2005                                                *

 *  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.   *

\***************************************************************************/

// Ce fichier ne sera execute qu'une fois

if (defined("_INC_CALCUL")) return;

define("_INC_CALCUL", "1");

//

// Ce fichier calcule une page en executant un squelette.

//

include_ecrire("inc_meta.php3");

include_ecrire("inc_index.php3");

include_ecrire("inc_texte.php3");

include_ecrire("inc_filtres.php3");

include_ecrire("inc_lang.php3");

include_ecrire("inc_documents.php3");

include_ecrire("inc_abstract_sql.php3");

include_ecrire("inc_forum.php3");

include_ecrire("inc_debug_sql.php3");

include_local("inc-calcul-outils.php3");

// NB: Ce fichier peut initialiser $dossier_squelettes (old-style)

if ($f = find_in_path("mes_fonctions.php3"))

	include_local ($f);

// Gestionnaire d'URLs

if (@file_exists("inc-urls.php3"))

	include_local("inc-urls.php3");

else

	include_local("inc-urls-".$GLOBALS['type_urls'].".php3");

// Le squelette compile est-il trop vieux ?

function squelette_obsolete($skel, $squelette) {

	return (

		($GLOBALS['var_mode'] AND $GLOBALS['var_mode']<>'calcul')

		OR !@file_exists($skel)

		OR (@filemtime($squelette) > ($date = @filemtime($skel)))

		OR (@filemtime('mes_fonctions.php3') > $date)

		OR (@filemtime(_FILE_OPTIONS) > $date)

	);

}

# Charge un squelette (au besoin le compile)

# et retoune le nom de sa fonction principale, ou '' s'il est indefini

# Charge egalement un fichier homonyme de celui du squelette

# mais de suffixe '_fonctions.php3' pouvant contenir:

# - des filtres

# - des fonctions de traduction de balise, de critere et de boucle

# - des declaration de tables SQL supplementaires

function charger_squelette ($squelette) {

	$ext = $GLOBALS['extension_squelette'];

	$nom = $ext . '_' . md5($squelette);

	$sourcefile = $squelette . ".$ext";

	// le squelette est-il deja en memoire (INCLURE  a repetition)

	if (function_exists($nom))

		return $nom;

	$phpfile = _DIR_CACHE . 'skel_' . $nom . '.php';

	// le squelette est-il deja compile et perenne ?

	if (!squelette_obsolete($phpfile, $sourcefile)

	AND lire_fichier ($phpfile, $contenu,

	array('critique' => 'oui', 'phpcheck' => 'oui')))

		eval('?'.'>'.$contenu);

	// sinon, charger le compilateur et verifier que le source est lisible

	if (!function_exists($nom)) {

		include_local("inc-compilo.php3");

		lire_fichier ($sourcefile, $skel);

	}

	// Le fichier suivant peut contenir entre autres:

	// 1. les filtres utilises par le squelette

	// 2. des ajouts au compilateur

	// Le point 1 exige qu'il soit lu dans tous les cas.

	// Le point 2 exige qu'il soit lu apres inc-compilo

	// (car celui-ci initialise $tables_principales) mais avant la compil

	$f = $squelette . '_fonctions.php3';

	if (@file_exists($f)) include($f);

	if (function_exists($nom)) return $nom;

	$skel_code = calculer_squelette($skel, $nom, $ext, $sourcefile);

	// Tester si le compilateur renvoie une erreur

	if (is_array($skel_code))

		erreur_squelette($skel_code[0], $skel_code[1]);

	else {

		if ($GLOBALS['var_mode'] == 'debug') {

			include_ecrire("inc_debug_sql.php3");

			debug_dumpfile ($skel_code, $nom, 'code');

		}

		eval('?'.'>'.$skel_code);

		if (function_exists($nom)) {

			ecrire_fichier ($phpfile, $skel_code);

			return $nom;

		} else {

			erreur_squelette($sourcefile, _L('Erreur de compilation'));

		}

	}

}

# Provoque la recherche du squelette $fond d'une $lang donnee,

# et l'applique sur un $contexte pour un certain $cache.

# Retourne un tableau de 3 elements:

# 'texte' => la page calculee

# 'process_ins' => 'html' ou 'php' si presence d'un '< ?php'

# 'invalideurs' => les invalideurs (cf inc-calcul-squel)

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

# La recherche est assuree par la fonction chercher_squelette,

# definie dans inc-chercher, fichier non charge si elle est deja definie

# (typiquement dans mes_fonctions.php3)

function cherche_page ($cache, $contexte, $fond)  {

	global $delais;

	if (!function_exists('chercher_squelette'))

		include_local("inc-chercher-squelette.php3");

	// Choisir entre $fond-dist.html, $fond=7.html, etc?

	$id_rubrique_fond = 0;

	// Chercher le fond qui va servir de squelette

	if ($r = sql_rubrique_fond($contexte))

		list($id_rubrique_fond, $lang) = $r;

	if (!$lang)

		$lang = lire_meta('langue_site');

	// Si inc-urls ou un appel dynamique veut fixer la langue, la recuperer

	$lang = $contexte['lang'];

	if (!$GLOBALS['forcer_lang'])

		lang_select($lang);

	$skel = chercher_squelette($fond,

			$id_rubrique_fond,

			$GLOBALS['spip_lang']);

	// Charger le squelette et recuperer sa fonction principale

	// (compilation automatique au besoin) et calculer

	$page = array();

	if ($skel) {

		if ($fonc = charger_squelette($skel))

		  $page = $fonc(array('cache' => $cache), array($contexte));

		// Passer la main au debuggueur)

		if ($GLOBALS['var_mode'] == 'debug')

		  {

			include_ecrire("inc_debug_sql.php3");

			debug_dumpfile ($page['texte'], $fonc, 'resultat');

		  }

	}

	// Entrer les invalideurs dans la base

	if ($delais>0) {

		include_ecrire('inc_invalideur.php3');

		maj_invalideurs($cache, $page['invalideurs'], $delais);

	}

	// Retourner la structure de la page

	return $page;

}

//

// Contexte : lors du calcul d'une page spip etablit le contexte a partir

// des variables $_GET et $_POST, et leur ajoute la date

// Note : pour hacker le contexte depuis le fichier d'appel (article.php3),

// il est recommande de modifier $_GET['toto'] (meme si la page est

// appelee avec la methode POST).

//

function calculer_contexte() {

	global $_GET, $_POST;

	foreach($_GET as $var => $val) {

		if (strpos($var, 'var_') !== 0)

			$contexte[$var] = $val;

	}

	foreach($_POST as $var => $val) {

		if (strpos($var, 'var_') !== 0)

			$contexte[$var] = $val;

	}

	if ($GLOBALS['date'])

		$contexte['date'] = $contexte['date_redac'] = normaliser_date($GLOBALS['date']);

	else

		$contexte['date'] = $contexte['date_redac'] = date("Y-m-d H:i:s");

	return $contexte;

}

function calculer_page_globale($cache, $contexte_local, $fond) {

	// Gestion des URLs personnalises - sale mais historique

	if (function_exists("recuperer_parametres_url")) {

		global $contexte;

		$contexte = $contexte_local;

		recuperer_parametres_url($fond, nettoyer_uri());

		// remettre les globales pour le bouton "Modifier cet article"

		if (is_array($contexte))

			foreach ($contexte as $var=>$val)

				if (substr($var,0,3) == 'id_')

					$GLOBALS[$var] = $val;

		$contexte_local = $contexte;

	}

	// si le champ chapo commence par '=' c'est une redirection.

	if ($id_article = intval($contexte['id_article'])) {

		if ($art = sql_chapo($id_article)) {

			$chapo = $art['chapo'];

			if (substr($chapo, 0, 1) == '=') {

				include_ecrire('inc_texte.php3');

				list(,$url) = extraire_lien(array('','','',

				substr($chapo, 1)));

				if ($url) { // sinon les navigateurs pataugent

					$url = texte_script(str_replace('&', '&', $url));

					$page = array('texte' => "<".

					"?php header('Location: $url'); ?" . ">",

					'process_ins' => 'php');

				}

			}

		}

	}

	// Go to work !

	if (!$page)

		$page = cherche_page($cache, $contexte_local, $fond);

	$signal = array();

	foreach(array('id_parent', 'id_rubrique', 'id_article', 'id_auteur',

	'id_breve', 'id_forum', 'id_secteur', 'id_syndic', 'id_syndic_article',

	'id_mot', 'id_groupe', 'id_document') as $val) {

		if ($contexte_local[$val])

			$signal['contexte'][$val] = intval($contexte_local[$val]);

	}

	$page['signal'] = $signal;

	return $page;

}

function calculer_page($chemin_cache, $elements, $delais, $inclusion=false) {

	global $_POST;

	// Inclusion

	if ($inclusion) {

		$contexte_inclus = $elements['contexte'];

		$page = cherche_page($chemin_cache,

			$contexte_inclus, $elements['fond']);

	}

	else {

		$page = calculer_page_globale($chemin_cache,

			$elements['contexte'],

			$elements['fond']);

	}

	$page['signal']['process_ins'] = $page['process_ins'];

	$signal = "<!-- ".str_replace("\n", " ",

	serialize($page['signal']))." -->\n";

	// Enregistrer le fichier cache

	if ($delais > 0 AND $GLOBALS['var_mode'] != 'debug'

	AND !count($_POST))

		ecrire_fichier($chemin_cache, $signal.$page['texte']);

	return $page;

}

?>