X-Git-Url: http://git.cyclocoop.org/?p=velocampus%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fecrire%2Fpublic%2Fquete.php;fp=www%2Fecrire%2Fpublic%2Fquete.php;h=97d9c179ee84e56930217bb6cb77d8cf470b3c9c;hp=0000000000000000000000000000000000000000;hb=80b4d3e85f78d402ed2e73f8f5d1bf4c19962eed;hpb=aaf970bf4cdaf76689ecc10609048e18d073820c

diff --git a/www/ecrire/public/quete.php b/www/ecrire/public/quete.php
new file mode 100644
index 0000000..97d9c17
--- /dev/null
+++ b/www/ecrire/public/quete.php
@@ -0,0 +1,315 @@
+<?php
+
+/***************************************************************************\
+ *  SPIP, Systeme de publication pour l'internet                           *
+ *                                                                         *
+ *  Copyright (c) 2001-2011                                                *
+ *  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;
+
+//
+// Fonctions d'appel aux serveurs SQL presentes dans le code compile
+//
+
+# NB : a l'exception des fonctions pour les balises dynamiques
+
+include_spip('base/abstract_sql');
+
+# retourne le chapeau d'un article, et seulement s'il est publie
+
+// http://doc.spip.org/@quete_chapo
+function quete_chapo($id_article, $connect) {
+	return sql_getfetsel('chapo', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
+}
+
+function quete_parent_lang($table,$id,$connect=''){
+	static $cache_quete = array();
+
+	if (!isset($cache_quete[$connect][$table][$id])
+	AND in_array($table,array('spip_rubriques','spip_articles','spip_syndic','spip_breves'))){
+		$select = ($table=='spip_rubriques'?'id_parent':'id_rubrique');
+		$select .= in_array($table,array('spip_rubriques','spip_articles','spip_breves'))?", lang":"";
+		$_id = id_table_objet(objet_type($table));
+		$cache_quete[$connect][$table][$id] = sql_fetsel($select, $table,"$_id=".intval($id),'','','','',$connect);
+	}
+	return $cache_quete[$connect][$table][$id];
+}
+
+
+# retourne le parent d'une rubrique
+// http://doc.spip.org/@quete_parent
+function quete_parent($id_rubrique, $connect='') {
+	if (!$id_rubrique = intval($id_rubrique))
+		return 0;
+	$id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
+	return $id_parent['id_parent'];
+}
+
+# retourne la rubrique d'un article
+
+// http://doc.spip.org/@quete_rubrique
+function quete_rubrique($id_article, $serveur) {
+	$id_parent = quete_parent_lang('spip_articles',$id_article,$serveur);
+	return $id_parent['id_rubrique'];
+}
+
+
+# retourne la profondeur d'une rubrique
+
+// http://doc.spip.org/@quete_profondeur
+function quete_profondeur($id, $connect='') {
+	$n = 0;
+	while ($id) {
+		$n++;
+		$id = quete_parent($id, $connect);
+	}
+	return $n;
+}
+
+
+# retourne la date a laquelle comparer lorsqu'il y a des post-dates
+# cette date doit etre stable, de maniere a beneficier du query cache
+# du serveur SQL
+// http://doc.spip.org/@quete_date_postdates
+function quete_date_postdates() {
+	if ($GLOBALS['meta']['date_prochain_postdate'] > time())
+		return date('Y-m-d H:i:s', $GLOBALS['meta']['date_prochain_postdate']);
+	else
+		return '2138-01-01 00:00:00';
+}
+
+
+# retourne le fichier d'un document
+
+// http://doc.spip.org/@quete_fichier
+function quete_fichier($id_document, $serveur='') {
+	return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
+}
+
+# Toute les infos sur un document
+
+function quete_document($id_document, $serveur='') {
+	return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)),	'',array(), '', '', $serveur);
+}
+
+// http://doc.spip.org/@quete_petitions
+function quete_petitions($id_article, $table, $id_boucle, $serveur, &$cache) {
+	$retour = sql_getfetsel('texte', 'spip_petitions',("id_article=".intval($id_article)),'',array(),'','', $serveur);
+
+	if ($retour === NULL) return '';
+	# cette page est invalidee par toute petition
+	$cache['varia']['pet'.$id_article] = 1;
+	# ne pas retourner '' car le texte sert aussi de presence
+	return $retour ? $retour : ' ';
+}
+
+# retourne le champ 'accepter_forum' d'un article
+// http://doc.spip.org/@quete_accepter_forum
+function quete_accepter_forum($id_article) {
+	// si la fonction est appelee en dehors d'une boucle
+	// article (forum de breves), $id_article est nul
+	// mais il faut neanmoins accepter l'affichage du forum
+	// d'ou le 0=>'' (et pas 0=>'non').
+	static $cache = array(0 => '');
+
+	$id_article = intval($id_article);
+
+	if (isset($cache[$id_article]))	return $cache[$id_article];
+
+	return $cache[$id_article] = sql_getfetsel('accepter_forum','spip_articles',"id_article=$id_article");
+}
+
+// recuperer une meta sur un site distant (en local il y a plus simple)
+// http://doc.spip.org/@quete_meta
+function quete_meta($nom, $serveur) {
+	return sql_getfetsel("valeur", "spip_meta", "nom=" . sql_quote($nom),
+			     '','','','',$serveur);
+}
+
+//
+// Retourne le logo d'un objet, eventuellement par heritage
+// Si flag <> false, retourne le chemin du fichier
+// sinon retourne un tableau de 3 elements:
+// le chemin du fichier, celui du logo de survol, l'attribut style=w/h
+
+function quete_logo($type, $onoff, $id, $id_rubrique, $flag) {
+	$chercher_logo = charger_fonction('chercher_logo', 'inc');
+	$nom = strtolower($onoff);
+
+	while (1) {
+		$on = $chercher_logo($id, $type, $nom);
+		if ($on) {
+			if ($flag)
+				return "$on[2].$on[3]";
+			else {
+				$taille = @getimagesize($on[0]);
+				$off = ($onoff != 'ON') ? '' :
+					$chercher_logo($id, $type, 'off');
+				// on retourne une url du type IMG/artonXX?timestamp
+				// qui permet de distinguer le changement de logo
+				// et placer un expire sur le dossier IMG/
+				return array ($on[0].($on[4]?"?$on[4]":""),
+					($off ? $off[0] . ($off[4]?"?$off[4]":"") : ''),
+					(!$taille ? '' : (" ".$taille[3])));
+			}
+		}
+		else if ($id_rubrique) {
+			$type = 'id_rubrique';
+			$id = $id_rubrique;
+			$id_rubrique = 0;
+		} else if ($id AND $type == 'id_rubrique')
+			$id = quete_parent($id);
+		else return '';
+	}
+}
+
+// fonction appelee par la balise #LOGO_DOCUMENT
+// http://doc.spip.org/@calcule_logo_document
+function quete_logo_file($row, $connect=NULL) {
+	include_spip('inc/documents');
+	$logo = vignette_logo_document($row, $connect);
+	if (!$logo) $logo = image_du_document($row);
+	if (!$logo){
+		$f = charger_fonction('vignette','inc');
+		$logo = $f($row['extension'], false);
+	}
+	if (preg_match(',^'._DIR_IMG_ICONES_DIST.',', $logo))
+		return $logo;
+	return get_spip_doc($logo);
+}
+
+function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect=NULL) {
+	include_spip('inc/documents');
+	$logo = '';
+	if (!in_array($mode_logo,array('icone','apercu')))
+		$logo = vignette_logo_document($row, $connect);
+	// si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
+	if ($mode_logo == 'vignette' AND !$logo)
+		return '';
+	if ($mode_logo == 'icone')
+		$row['fichier'] = '';
+	return vignette_automatique($logo, $row, $lien, $x, $y, $align);
+}
+
+// Retourne la vignette explicitement attachee a un document
+// le resutat est un fichier local existant, ou une URL
+function vignette_logo_document($row, $connect='')
+{
+	if (!$row['id_vignette']) return '';
+	$fichier = quete_fichier($row['id_vignette'], $connect);
+	if ($connect) {
+		$site = quete_meta('adresse_site', $connect);
+		$dir = quete_meta('dir_img', $connect);
+		return "$site/$dir$fichier";
+	}
+	$f = get_spip_doc($fichier);
+	if ($f AND @file_exists($f)) return $f;
+	if ($row['mode'] !== 'vignette') return '';
+	return generer_url_entite($row['id_document'], 'document','','', $connect);
+}
+
+// http://doc.spip.org/@calcul_exposer
+function calcul_exposer ($id, $prim, $reference, $parent, $type, $connect='') {
+	static $exposer = array();
+
+	// Que faut-il exposer ? Tous les elements de $reference
+	// ainsi que leur hierarchie ; on ne fait donc ce calcul
+	// qu'une fois (par squelette) et on conserve le resultat
+	// en static.
+	if (!isset($exposer[$m=md5(serialize($reference))][$prim])) {
+		$principal = isset($reference[$type])?$reference[$type]:
+			// cas de la pagination indecte @xx qui positionne la page avec l'id xx
+			// et donne la reference dynamique @type=xx dans le contexte
+			(isset($reference["@$type"])?$reference["@$type"]:'');
+		// le parent fournit en argument est le parent de $id, pas celui de $principal
+		// il n'est donc pas utile
+		$parent = 0;
+		if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
+			$enfants = array('id_rubrique'=>array('id_article'),'id_groupe'=>array('id_mot'));
+			if (isset($enfants[$type]))
+				foreach($enfants[$type] as $t)
+					if (isset($reference[$t])
+						// cas de la reference donnee dynamiquement par la pagination
+						OR isset($reference["@$t"])) {
+						$type = $t;
+						$principal = isset($reference[$type])?$reference[$type]:$reference["@$type"];
+						continue;
+					}
+		}
+		$exposer[$m][$type] = array();
+		if ($principal) {
+			$principaux = is_array($principal)?$principal:array($principal);
+			foreach($principaux as $principal){
+				$exposer[$m][$type][$principal] = true;
+				if ($type == 'id_mot'){
+					if (!$parent) {
+						$parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . $principal, '','','','',$connect);
+					}
+					if ($parent)
+						$exposer[$m]['id_groupe'][$parent] = true;
+				}
+				else if ($type != 'id_groupe') {
+				  if (!$parent) {
+				  	if ($type == 'id_rubrique')
+				  		$parent = $principal;
+				  	if ($type == 'id_article') {
+						$parent = quete_rubrique($principal,$connect);
+				  	}
+				  }
+				  do { $exposer[$m]['id_rubrique'][$parent] = true; }
+				  while ($parent = quete_parent($parent, $connect));
+				}
+			}
+		}
+	}
+	// And the winner is...
+	return isset($exposer[$m][$prim]) ? isset($exposer[$m][$prim][$id]) : '';
+}
+
+// Ajouter "&lang=..." si la langue du forum n'est pas celle du site.
+// Si le 2e parametre n'est pas une chaine, c'est qu'on n'a pas pu
+// determiner la table a la compil, on le fait maintenant.
+// Il faudrait encore completer: on ne connait pas la langue
+// pour une boucle forum sans id_article ou id_rubrique issu du contexte,
+// ce qui provoque un Log abscons ("table inconnue forum")
+// voire une erreur SQL dans le cas de id_syndic, qu'on neutralise
+// in extremis mais ce n'est pas satisfaisant
+// http://doc.spip.org/@lang_parametres_forum
+function lang_parametres_forum($qs, $lang) {
+	if (is_array($lang) AND preg_match(',id_(\w+)=([0-9]+),', $qs, $r)) {
+		$id = 'id_' . $r[1];
+		if ($t = $lang[$id] AND $id != 'id_syndic')
+			$lang = sql_getfetsel('lang', $t, "$id=" . $r[2]);
+		else $lang = '';
+	}
+  // Si ce n'est pas la meme que celle du site, l'ajouter aux parametres
+
+	if ($lang AND $lang <> $GLOBALS['meta']['langue_site'])
+		return $qs . "&lang=" . $lang;
+
+	return $qs;
+}
+
+function quete_debut_pagination($primary,$valeur,$pas,$res,$serveur=''){
+	// on ne devrait pas arriver ici si la cle primaire est inexistante
+	// ou composee, mais verifions
+	if (!$primary OR preg_match('/[,\s]/',$primary))
+		return 0;
+
+	$pos = 0;
+	while ($row = sql_fetch($res,$serveur) AND $row[$primary]!=$valeur){
+		$pos++;
+	}
+	// si on a pas trouve
+	if ($row[$primary]!=$valeur)
+		return 0;
+
+	// sinon, calculer le bon numero de page
+	return floor($pos/$pas)*$pas;
+}
+?>