3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2011 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
16 // Fonctions d'appel aux serveurs SQL presentes dans le code compile
19 # NB : a l'exception des fonctions pour les balises dynamiques
21 include_spip('base/abstract_sql');
23 # retourne le chapeau d'un article, et seulement s'il est publie
25 // http://doc.spip.org/@quete_chapo
26 function quete_chapo($id_article, $connect) {
27 return sql_getfetsel('chapo', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
30 function quete_parent_lang($table,$id,$connect=''){
31 static $cache_quete = array();
33 if (!isset($cache_quete[$connect][$table][$id])
34 AND in_array($table,array('spip_rubriques','spip_articles','spip_syndic','spip_breves'))){
35 $select = ($table=='spip_rubriques'?
'id_parent':'id_rubrique');
36 $select .= in_array($table,array('spip_rubriques','spip_articles','spip_breves'))?
", lang":"";
37 $_id = id_table_objet(objet_type($table));
38 $cache_quete[$connect][$table][$id] = sql_fetsel($select, $table,"$_id=".intval($id),'','','','',$connect);
40 return $cache_quete[$connect][$table][$id];
44 # retourne le parent d'une rubrique
45 // http://doc.spip.org/@quete_parent
46 function quete_parent($id_rubrique, $connect='') {
47 if (!$id_rubrique = intval($id_rubrique))
49 $id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
50 return $id_parent['id_parent'];
53 # retourne la rubrique d'un article
55 // http://doc.spip.org/@quete_rubrique
56 function quete_rubrique($id_article, $serveur) {
57 $id_parent = quete_parent_lang('spip_articles',$id_article,$serveur);
58 return $id_parent['id_rubrique'];
62 # retourne la profondeur d'une rubrique
64 // http://doc.spip.org/@quete_profondeur
65 function quete_profondeur($id, $connect='') {
69 $id = quete_parent($id, $connect);
75 # retourne la date a laquelle comparer lorsqu'il y a des post-dates
76 # cette date doit etre stable, de maniere a beneficier du query cache
78 // http://doc.spip.org/@quete_date_postdates
79 function quete_date_postdates() {
80 if ($GLOBALS['meta']['date_prochain_postdate'] > time())
81 return date('Y-m-d H:i:s', $GLOBALS['meta']['date_prochain_postdate']);
83 return '2138-01-01 00:00:00';
87 # retourne le fichier d'un document
89 // http://doc.spip.org/@quete_fichier
90 function quete_fichier($id_document, $serveur='') {
91 return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)), '',array(), '', '', $serveur);
94 # Toute les infos sur un document
96 function quete_document($id_document, $serveur='') {
97 return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)), '',array(), '', '', $serveur);
100 // http://doc.spip.org/@quete_petitions
101 function quete_petitions($id_article, $table, $id_boucle, $serveur, &$cache) {
102 $retour = sql_getfetsel('texte', 'spip_petitions',("id_article=".intval($id_article)),'',array(),'','', $serveur);
104 if ($retour === NULL) return '';
105 # cette page est invalidee par toute petition
106 $cache['varia']['pet'.$id_article] = 1;
107 # ne pas retourner '' car le texte sert aussi de presence
108 return $retour ?
$retour : ' ';
111 # retourne le champ 'accepter_forum' d'un article
112 // http://doc.spip.org/@quete_accepter_forum
113 function quete_accepter_forum($id_article) {
114 // si la fonction est appelee en dehors d'une boucle
115 // article (forum de breves), $id_article est nul
116 // mais il faut neanmoins accepter l'affichage du forum
117 // d'ou le 0=>'' (et pas 0=>'non').
118 static $cache = array(0 => '');
120 $id_article = intval($id_article);
122 if (isset($cache[$id_article])) return $cache[$id_article];
124 return $cache[$id_article] = sql_getfetsel('accepter_forum','spip_articles',"id_article=$id_article");
127 // recuperer une meta sur un site distant (en local il y a plus simple)
128 // http://doc.spip.org/@quete_meta
129 function quete_meta($nom, $serveur) {
130 return sql_getfetsel("valeur", "spip_meta", "nom=" . sql_quote($nom),
131 '','','','',$serveur);
135 // Retourne le logo d'un objet, eventuellement par heritage
136 // Si flag <> false, retourne le chemin du fichier
137 // sinon retourne un tableau de 3 elements:
138 // le chemin du fichier, celui du logo de survol, l'attribut style=w/h
140 function quete_logo($type, $onoff, $id, $id_rubrique, $flag) {
141 $chercher_logo = charger_fonction('chercher_logo', 'inc');
142 $nom = strtolower($onoff);
145 $on = $chercher_logo($id, $type, $nom);
148 return "$on[2].$on[3]";
150 $taille = @getimagesize
($on[0]);
151 $off = ($onoff != 'ON') ?
'' :
152 $chercher_logo($id, $type, 'off');
153 // on retourne une url du type IMG/artonXX?timestamp
154 // qui permet de distinguer le changement de logo
155 // et placer un expire sur le dossier IMG/
156 return array ($on[0].($on[4]?
"?$on[4]":""),
157 ($off ?
$off[0] . ($off[4]?
"?$off[4]":"") : ''),
158 (!$taille ?
'' : (" ".$taille[3])));
161 else if ($id_rubrique) {
162 $type = 'id_rubrique';
165 } else if ($id AND $type == 'id_rubrique')
166 $id = quete_parent($id);
171 // fonction appelee par la balise #LOGO_DOCUMENT
172 // http://doc.spip.org/@calcule_logo_document
173 function quete_logo_file($row, $connect=NULL) {
174 include_spip('inc/documents');
175 $logo = vignette_logo_document($row, $connect);
176 if (!$logo) $logo = image_du_document($row);
178 $f = charger_fonction('vignette','inc');
179 $logo = $f($row['extension'], false);
181 if (preg_match(',^'._DIR_IMG_ICONES_DIST
.',', $logo))
183 return get_spip_doc($logo);
186 function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect=NULL) {
187 include_spip('inc/documents');
189 if (!in_array($mode_logo,array('icone','apercu')))
190 $logo = vignette_logo_document($row, $connect);
191 // si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
192 if ($mode_logo == 'vignette' AND !$logo)
194 if ($mode_logo == 'icone')
195 $row['fichier'] = '';
196 return vignette_automatique($logo, $row, $lien, $x, $y, $align);
199 // Retourne la vignette explicitement attachee a un document
200 // le resutat est un fichier local existant, ou une URL
201 function vignette_logo_document($row, $connect='')
203 if (!$row['id_vignette']) return '';
204 $fichier = quete_fichier($row['id_vignette'], $connect);
206 $site = quete_meta('adresse_site', $connect);
207 $dir = quete_meta('dir_img', $connect);
208 return "$site/$dir$fichier";
210 $f = get_spip_doc($fichier);
211 if ($f AND @file_exists
($f)) return $f;
212 if ($row['mode'] !== 'vignette') return '';
213 return generer_url_entite($row['id_document'], 'document','','', $connect);
216 // http://doc.spip.org/@calcul_exposer
217 function calcul_exposer ($id, $prim, $reference, $parent, $type, $connect='') {
218 static $exposer = array();
220 // Que faut-il exposer ? Tous les elements de $reference
221 // ainsi que leur hierarchie ; on ne fait donc ce calcul
222 // qu'une fois (par squelette) et on conserve le resultat
224 if (!isset($exposer[$m=md5(serialize($reference))][$prim])) {
225 $principal = isset($reference[$type])?
$reference[$type]:
226 // cas de la pagination indecte @xx qui positionne la page avec l'id xx
227 // et donne la reference dynamique @type=xx dans le contexte
228 (isset($reference["@$type"])?
$reference["@$type"]:'');
229 // le parent fournit en argument est le parent de $id, pas celui de $principal
230 // il n'est donc pas utile
232 if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
233 $enfants = array('id_rubrique'=>array('id_article'),'id_groupe'=>array('id_mot'));
234 if (isset($enfants[$type]))
235 foreach($enfants[$type] as $t)
236 if (isset($reference[$t])
237 // cas de la reference donnee dynamiquement par la pagination
238 OR isset($reference["@$t"])) {
240 $principal = isset($reference[$type])?
$reference[$type]:$reference["@$type"];
244 $exposer[$m][$type] = array();
246 $principaux = is_array($principal)?
$principal:array($principal);
247 foreach($principaux as $principal){
248 $exposer[$m][$type][$principal] = true;
249 if ($type == 'id_mot'){
251 $parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . $principal, '','','','',$connect);
254 $exposer[$m]['id_groupe'][$parent] = true;
256 else if ($type != 'id_groupe') {
258 if ($type == 'id_rubrique')
259 $parent = $principal;
260 if ($type == 'id_article') {
261 $parent = quete_rubrique($principal,$connect);
264 do { $exposer[$m]['id_rubrique'][$parent] = true; }
265 while ($parent = quete_parent($parent, $connect));
270 // And the winner is...
271 return isset($exposer[$m][$prim]) ?
isset($exposer[$m][$prim][$id]) : '';
274 // Ajouter "&lang=..." si la langue du forum n'est pas celle du site.
275 // Si le 2e parametre n'est pas une chaine, c'est qu'on n'a pas pu
276 // determiner la table a la compil, on le fait maintenant.
277 // Il faudrait encore completer: on ne connait pas la langue
278 // pour une boucle forum sans id_article ou id_rubrique issu du contexte,
279 // ce qui provoque un Log abscons ("table inconnue forum")
280 // voire une erreur SQL dans le cas de id_syndic, qu'on neutralise
281 // in extremis mais ce n'est pas satisfaisant
282 // http://doc.spip.org/@lang_parametres_forum
283 function lang_parametres_forum($qs, $lang) {
284 if (is_array($lang) AND preg_match(',id_(\w+)=([0-9]+),', $qs, $r)) {
286 if ($t = $lang[$id] AND $id != 'id_syndic')
287 $lang = sql_getfetsel('lang', $t, "$id=" . $r[2]);
290 // Si ce n'est pas la meme que celle du site, l'ajouter aux parametres
292 if ($lang AND $lang <> $GLOBALS['meta']['langue_site'])
293 return $qs . "&lang=" . $lang;
298 function quete_debut_pagination($primary,$valeur,$pas,$res,$serveur=''){
299 // on ne devrait pas arriver ici si la cle primaire est inexistante
300 // ou composee, mais verifions
301 if (!$primary OR preg_match('/[,\s]/',$primary))
305 while ($row = sql_fetch($res,$serveur) AND $row[$primary]!=$valeur){
308 // si on a pas trouve
309 if ($row[$primary]!=$valeur)
312 // sinon, calculer le bon numero de page
313 return floor($pos/$pas)*$pas;