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_PUBLIC_GLOBAL")) return;

define("_INC_PUBLIC_GLOBAL", "1");

// fonction principale declenchant tout le service

function calcule_header_et_page ($fond, $delais) {

	  global $affiche_boutons_admin, $auteur_session, $flag_dynamique,

	  $flag_ob, $flag_preserver, $forcer_lang, $ignore_auth_http,

	  $lastmodified, $recherche, $use_cache, $var_confirm, $var_mode,

	  $var_recherche, $tableau_des_erreurs;

	  global $_GET, $_POST;

	// Regler le $delais par defaut

	if (!isset($delais))

		$delais = 1 * 3600;

	if ($recherche)

		$delais = 0;

	// authentification du visiteur

	if ($GLOBALS['_COOKIE']['spip_session'] OR

	($GLOBALS['_SERVER']['PHP_AUTH_USER']  AND !$ignore_auth_http)) {

		include_ecrire ("inc_session.php3");

		verifier_visiteur();

	}

	// multilinguisme

	if ($forcer_lang AND ($forcer_lang!=='non') AND !count($_POST)) {

		include_ecrire('inc_lang.php3');

		verifier_lang_url();

	}

	if ($_GET['lang']) {

		include_ecrire('inc_lang.php3');

		lang_select($_GET['lang']);

	}

	// Si envoi pour un forum, enregistrer puis rediriger

	if (strlen($_POST['confirmer_forum']) > 0

	OR ($GLOBALS['afficher_texte']=='non' AND $_POST['ajouter_mot'])) {

		include('inc-messforum.php3');

		redirige_par_entete(enregistre_forum());

	}

	// si signature de petition, l'enregistrer avant d'afficher la page

	// afin que celle-ci contienne la signature

	if ($_GET['var_confirm']) {

		include_local(find_in_path('inc-formulaire_signature.php3'));

		reponse_confirmation($_GET['id_article'], $var_confirm);

	}

	//  refus du debug si pas dans les options generales ni admin connecte

	if ($var_mode=='debug') {

		if (($GLOBALS['code_activation_debug'] == 'oui')

		OR $auteur_session['statut'] == '0minirezo')

			spip_log('debug !');

		else {

			$link = new Link();

			$link->addvar('var_mode', 'debug');

			redirige_par_entete('spip_login.php3?url='

				.urlencode($link->getUrl()));

			exit;

		}

	}

	// est-on admin ?

	if ($affiche_boutons_admin = (

	(!$flag_preserver AND $GLOBALS['_COOKIE']['spip_admin'])

	OR $var_mode == 'debug'))

		include_local(find_in_path('inc-formulaire_admin.php3'));

	$tableau_des_erreurs = array();

	$page = afficher_page_globale ($fond, $delais, $use_cache);

	//

	// Envoyer les entetes appropries

	// a condition d'etre sur de pouvoir le faire

	//

	if (!headers_sent() AND !$flag_preserver) {

		// Content-type: par defaut html+charset (poss surcharge par la suite)

		header("Content-Type: text/html; charset=".lire_meta('charset'));

		if ($flag_ob) {

			// Si la page est vide, gerer l'erreur 404

			if (trim($page['texte']) === ''

			AND $var_mode != 'debug') {

				http_status(404);

				$contexte_inclus = array(

					'erreur_aucun' => message_erreur_404()

				);

				$page = array('texte' => '<'.'?php

					$contexte_inclus = array();

					include(\''.addslashes(find_in_path('404.php3')).'\');

					?'.'>',

				'process_ins' => 'php');

			}

			// Interdire au client de cacher un login, un admin ou un recalcul

			else if ($flag_dynamique OR $var_mode

			OR $GLOBALS['_COOKIE']['spip_admin']) {

				header("Cache-Control: no-cache,must-revalidate");

				header("Pragma: no-cache");

			}

			// Pour les autres donner l'heure de modif

			else if ($lastmodified) {

				header("Last-Modified: ".http_gmoddate($lastmodified)." GMT");

			}

		}

	}

	return $page;

}

//

// Aller chercher la page dans le cache ou pas

//

function obtenir_page ($contexte, $chemin_cache, $delais, &$use_cache, $fond, $inclusion=false) {

	global $lastmodified;

	if (!$use_cache) {

		include_local('inc-calcul.php3');

		// page globale ? calculer le contexte

		if (!$contexte)

			$contexte = calculer_contexte();

		spip_timer('calculer_page');

		$page = calculer_page($chemin_cache,

			array('fond' => $fond,

				'contexte' => $contexte),

			$delais,

			$inclusion);

		$lastmodified = time();

		// log

		if (!$log = $chemin_cache) $log = "($fond, delais=$delais, "

		. $GLOBALS['_SERVER']['REQUEST_METHOD'].")";

		spip_log (($inclusion ? 'calcul inclus':'calcul').' ('

		.spip_timer('calculer_page')."): $log");

		// Nouveau cache : creer un invalideur 't' fixant la date

		// d'expiration et la taille du fichier

		if (@file_exists($chemin_cache)) {

			// Ici on ajoute 3600s pour eviter toute concurrence

			// entre un invalideur et un appel public de page

			$bedtime = time() + $delais + 3600;

			$taille = @filesize($chemin_cache);

			$fichier = addslashes($chemin_cache);

			spip_query("INSERT IGNORE INTO spip_caches (fichier,id,type,taille)

			VALUES ('$fichier','$bedtime','t','$taille')");

		}

	} else {

		//

		// Lire le fichier cache

		//

		lire_fichier ($chemin_cache, $page['texte']);

		$lastmodified = max($lastmodified, @filemtime($chemin_cache));

		# spip_log ("cache $chemin_cache $lastmodified");

		//

		// Lire sa carte d'identite & fixer le contexte global

		//

		if (preg_match("/^<!-- ([^\n]*) -->\n(.*)/ms", $page['texte'], $match)

		AND is_array($meta_donnees = unserialize($match[1]))) {

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

				$page[$var] = $val;

			$page['texte'] = $match[2];

			// Remplir les globals pour les boutons d'admin

			if (!$inclusion AND is_array($page['contexte']))

				foreach ($page['contexte'] as $var=>$val)

					$GLOBALS[$var] = $val;

		}

	}

	return $page;

}

//

// Appeler cette fonction pour obtenir la page principale

//

function afficher_page_globale ($fond, $delais, &$use_cache) {

	global $flag_preserver, $flag_dynamique, $lastmodified;

	global $var_preview, $var_mode, $delais;

	include_local ("inc-cache.php3");

	// demande de previsualisation ?

	// -> inc-calcul.php3 n'enregistrera pas les fichiers caches

	// -> inc-reqsql-squel.php3 acceptera les objets non 'publie'

	if ($var_mode == 'preview') {

		// Verifier qu'on a le droit de previsualisation

		$statut = $GLOBALS['auteur_session']['statut'];

		if ($statut=='0minirezo' OR

		(lire_meta('preview')=='1comite' AND $statut=='1comite')) {

			$var_mode = 'recalcul';

			$delais = 0;

			$var_preview = true;

			spip_log('preview !');

		} else

			$var_preview = false;

	}

	// Calculer le chemin putatif du cache

	if ($delais > 0)

		$chemin_cache = generer_nom_fichier_cache('', $fond);

	else

		$chemin_cache = '';

	// Faut-il effacer des pages invalidees ?

	if (lire_meta('invalider')) {

		include_ecrire('inc_connect.php3');

		include_ecrire('inc_meta.php3');

		lire_metas();

		if (lire_meta('invalider') AND $GLOBALS['db_ok'])

			retire_caches($chemin_cache);

	}

	// Peut-on utiliser un fichier cache ?

	determiner_cache($delais, $use_cache, $chemin_cache);

	// Repondre gentiment aux requetes sympas

	// (ici on ne tient pas compte d'une obsolence du cache ou des

	// eventuels fichiers inclus modifies depuis la date

	// HTTP_IF_MODIFIED_SINCE du client)

	if ($GLOBALS['HTTP_IF_MODIFIED_SINCE'] AND !$var_mode

	AND $chemin_cache AND !$flag_dynamique) {

		$lastmodified = @filemtime($chemin_cache);

		$headers_only = http_last_modified($lastmodified);

	}

	$headers_only |= ($GLOBALS['_SERVER']['REQUEST_METHOD'] == 'HEAD');

	if ($headers_only) {

		if ($chemin_cache)

			$t = @filemtime($chemin_cache);

		else

			$t = time();

		@header('Last-Modified: '.http_gmoddate($t).' GMT');

		@header('Connection: close');

		// Pas de bouton admin pour un HEAD

		$flag_preserver = true;

	}

	else {

		// Obtenir la page

		$page = obtenir_page ('', $chemin_cache, $delais, $use_cache,

		$fond, false);

	}

	if ($chemin_cache) $page['cache'] = $chemin_cache;

	if ($var_preview AND !$flag_preserver) {

		include_ecrire('inc_lang.php3');

		include_ecrire('inc_filtres.php3');

		lang_select($GLOBALS['auteur_session']['lang']);

		$x = majuscules(_T('previsualisation'));

		$page['texte'] .= '<div style="

		display: block;

		color: #eeeeee;

		background-color: #111111;

		padding-right: 5px;

		padding-top: 2px;

		padding-bottom: 5px;

		font-size: 20px;

		top: 0px;

		left: 0px;

		position: absolute;

		">'

		  . http_img_pack('naviguer-site.png', $x, '')

		  ."&nbsp;$x</div>";

	}

	return $page;

}

function terminer_public_global() {

	// Gestion des statistiques du site public

	if (lire_meta("activer_statistiques") != "non") {

		include_local ("inc-stats.php3");

		ecrire_stats();

	}

	// Effectuer une tache de fond ?

	cron();

}

function inclure_page($fond, $delais_inclus, $contexte_inclus, $cache_incluant='') {

	$contexte_inclus['fond'] = $fond;

	if ($delais_inclus > 0)

		$chemin_cache = generer_nom_fichier_cache($contexte_inclus, $fond);

	else

		$chemin_cache = '';

	// Peut-on utiliser un fichier cache ?

	determiner_cache($delais_inclus, $use_cache, $chemin_cache);

	// Si on a inclus sans fixer le critere de lang, de deux choses l'une :

	// - on est dans la langue du site, et pas besoin d'inclure inc_lang

	// - on n'y est pas, et alors il faut revenir dans la langue par defaut

	if (($lang = $contexte_inclus['lang'])

	|| ($GLOBALS['spip_lang'] != ($lang = lire_meta('langue_site')))) {

		include_ecrire('inc_lang.php3');

		lang_select($lang);

		$lang_select = true; // pour lang_dselect en sortie

	}

	$page = obtenir_page ($contexte_inclus, $chemin_cache, $delais_inclus,

	$use_cache, $fond, true);

	$page['lang_select'] = $lang_select;

	// Retourner le contenu...

	return $page;

}

# Attention, un appel explicite a cette fonction suppose certains include

# (voir l'exemple de spip_inscription et spip_pass)

# $r = complexe (fond, delais, contexte) ; $echo = faut-il faire echo ou return

function inclure_balise_dynamique($texte, $echo=true, $ligne=0) {

	global $contexte_inclus; # provisoire : c'est pour le debuggueur

	if (!is_string($texte))

	  {

		list($fond, $delais, $contexte_inclus) = $texte;

		if ((!$contexte_inclus['lang']) AND

		($GLOBALS['spip_lang'] != lire_meta('langue_site')))

			$contexte_inclus['lang'] = $GLOBALS['spip_lang'];

		// Appeler la page

		$page = inclure_page($fond, $delais, $contexte_inclus);

		if ($page['process_ins'] == 'html') {

				$texte = $page['texte'];

		} else {

				ob_start();

				eval('?' . '>' . $page['texte']);

				$texte = ob_get_contents();

				ob_end_clean();

		}

		if ($page['lang_select'])

			lang_dselect();

	  }

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

	    $GLOBALS['debug_objets']['resultat'][$ligne] = $texte;

	if ($echo)

			echo $texte;

	else

			return $texte;

}

function message_erreur_404 () {

	if ($GLOBALS['id_article'])

		$erreur = 'public:aucun_article';

	else if ($GLOBALS['id_rubrique'])

		$erreur = 'public:aucune_rubrique';

	else if ($GLOBALS['id_breve'])

		$erreur = 'public:aucune_breve';

	else if ($GLOBALS['id_auteur'])

		$erreur = 'public:aucun_auteur';

	else if ($GLOBALS['id_syndic'])

		$erreur = 'public:aucun_site';

	else

		$erreur = '';

	return _T($erreur);

}

// Renvoie le _GET ou le _POST emis par l'utilisateur

function _request($var) {

	global $_GET, $_POST;

	if (isset($_GET[$var])) return $_GET[$var];

	if (isset($_POST[$var])) return $_POST[$var];

	return NULL;

}

?>