3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
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');
24 * retourne l'url de redirection d'un article virtuel, seulement si il est publiƩ
25 * http://doc.spip.org/@quete_chapo
29 * @return array|bool|null
31 function quete_virtuel($id_article, $connect) {
32 return sql_getfetsel('virtuel', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
36 * Retourne le couple parent,lang pour toute table
37 * en pratique id_rubrique si present (ou id_parent pour table rubriques)
38 * et champ lang si present
40 * @param string $table
42 * @param string $connect
45 function quete_parent_lang($table,$id,$connect=''){
46 static $cache_quete = array();
48 if (!isset($cache_quete[$connect][$table][$id])) {
49 if (!isset($cache_quete[$connect][$table]['_select'])){
50 $trouver_table = charger_fonction('trouver_table','base');
51 if (!$desc=$trouver_table($table,$connect) OR !isset($desc['field']['id_rubrique']))
52 // pas de parent rubrique, on passe
53 $cache_quete[$connect][$table]['_select'] = false;
55 $select = ($table=='spip_rubriques'?
'id_parent':'id_rubrique');
56 $select .= isset($desc['field']['lang'])?
", lang":"";
57 $cache_quete[$connect][$table]['_select'] = $select;
58 $cache_quete[$connect][$table]['_id'] = id_table_objet(objet_type($table));
61 if ($cache_quete[$connect][$table]['_select'])
62 $cache_quete[$connect][$table][$id] = sql_fetsel($cache_quete[$connect][$table]['_select'], $table,$cache_quete[$connect][$table]['_id']."=".intval($id),'','','','',$connect);
64 return isset($cache_quete[$connect][$table][$id]) ?
$cache_quete[$connect][$table][$id] : null;
69 * retourne le parent d'une rubrique
70 * repose sur la fonction quete_parent_lang pour la mutualisation
71 * +mise en cache sql des requetes
73 * http://doc.spip.org/@quete_parent
75 * @param int $id_rubrique
76 * @param string $connect
79 function quete_parent($id_rubrique, $connect='') {
80 if (!$id_rubrique = intval($id_rubrique))
82 $id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
83 return $id_parent['id_parent'];
87 * retourne la rubrique d'un article
88 * repose sur la fonction quete_parent_lang pour la mutualisation
89 * +mise en cache sql des requetes
91 * http://doc.spip.org/@quete_rubrique
93 * @param int $id_article
97 function quete_rubrique($id_article, $serveur) {
98 $id_parent = quete_parent_lang('spip_articles',$id_article,$serveur);
99 return $id_parent['id_rubrique'];
104 * retourne la profondeur d'une rubrique
106 * http://doc.spip.org/@quete_profondeur
109 * @param string $connect
112 function quete_profondeur($id, $connect='') {
116 $id = quete_parent($id, $connect);
123 * retourne la condition sur la date lorsqu'il y a des post-dates
124 * @param string $champ_date
125 * @param string $serveur
128 function quete_condition_postdates($champ_date, $serveur='', $ignore_previsu=false) {
129 if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW
AND !$ignore_previsu)
132 (isset($GLOBALS['meta']['date_prochain_postdate'])
133 AND $GLOBALS['meta']['date_prochain_postdate'] > time())
134 ?
"$champ_date<".sql_quote(date('Y-m-d H:i:s',$GLOBALS['meta']['date_prochain_postdate']),$serveur)
140 * Calculer la condition pour filtrer les status,
142 * @param string $mstatut
143 * le champ de la table sur lequel porte la condition
144 * @param string $previsu
145 * mode previsu : statut ou liste des statuts separes par une virgule
146 * @param string $publie
147 * mode publie : statut ou liste des statuts separes par une virgule
148 * @param string $serveur
152 function quete_condition_statut($mstatut,$previsu,$publie, $serveur='', $ignore_previsu=false){
153 static $cond = array();
154 $key = func_get_args();
155 $key = implode("-",$key);
156 if (isset($cond[$key])) return $cond[$key];
159 if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW
AND !$ignore_previsu)
162 if (strncmp($liste,'!',1)==0){
164 $liste = substr($liste,1);
166 // '' => ne rien afficher, '!'=> ne rien filtrer
168 return $cond[$key]=($not?
"1=1":"'0=1'");
170 $liste = explode(',',$liste);
172 foreach($liste as $k=>$v) {
173 // filtrage /auteur pour limiter les objets d'un statut (prepa en general)
174 // a ceux de l'auteur identifie
175 if (strpos($v,"/")!==false){
176 $v = explode("/",$v);
179 $v = preg_replace(",\W,","",$v);
180 if ($filtre=="auteur"
181 AND isset($GLOBALS['visiteur_session']['id_auteur'])
182 AND intval($GLOBALS['visiteur_session']['id_auteur'])
183 AND (strpos($mstatut,".")!==false)
184 AND $objet = explode(".",$mstatut)
185 AND $id_table = reset($objet)
186 AND $objet = objet_type($id_table)){
187 $primary = id_table_objet($objet);
188 $where[] = "($mstatut<>".sql_quote($v)." OR $id_table.$primary IN (".sql_get_select("ssss.id_objet","spip_auteurs_liens AS ssss","ssss.objet=".sql_quote($objet)." AND ssss.id_auteur=".intval($GLOBALS['visiteur_session']['id_auteur']),'','','','',$serveur)."))";
190 // ignorer ce statut si on ne sait pas comment le filtrer
195 $liste[$k] = preg_replace(",\W,","",$v);
197 $liste = array_filter($liste);
198 if (count($liste)==1){
199 $where[] = array('=', $mstatut, sql_quote(reset($liste),$serveur));
202 $where[] = sql_in($mstatut,$liste,$not,$serveur);
205 while (count($where)>1){
206 $and = array('AND',array_pop($where),array_pop($where));
209 $cond[$key] = reset($where);
211 $cond[$key] = array('NOT',$cond[$key]);
217 * retourne le fichier d'un document
219 * http://doc.spip.org/@quete_fichier
221 * @param int $id_document
222 * @param string $serveur
223 * @return array|bool|null
225 function quete_fichier($id_document, $serveur='') {
226 return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)), '',array(), '', '', $serveur);
230 * Toute les infos sur un document
232 * @param int $id_document
233 * @param string $serveur
236 function quete_document($id_document, $serveur='') {
237 return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)), '',array(), '', '', $serveur);
241 * recuperer une meta sur un site distant (en local il y a plus simple)
243 * http://doc.spip.org/@quete_meta
247 * @return array|bool|null
249 function quete_meta($nom, $serveur) {
250 return sql_getfetsel("valeur", "spip_meta", "nom=" . sql_quote($nom),
251 '','','','',$serveur);
255 * Retourne le logo d'un objet, eventuellement par heritage
256 * Si flag <> false, retourne le chemin du fichier
257 * sinon retourne un tableau de 3 elements:
258 * le chemin du fichier, celui du logo de survol, l'attribut style=w/h
260 * @param string $type
261 * @param string $onoff
263 * @param int $id_rubrique
265 * @return array|string
267 function quete_logo($type, $onoff, $id, $id_rubrique, $flag) {
268 static $chercher_logo;
269 if (is_null($chercher_logo))
270 $chercher_logo = charger_fonction('chercher_logo', 'inc');
271 $nom = strtolower($onoff);
274 $on = $chercher_logo($id, $type, $nom);
277 return "$on[2].$on[3]";
279 $taille = @getimagesize
($on[0]);
280 $off = ($onoff != 'ON') ?
'' :
281 $chercher_logo($id, $type, 'off');
282 // on retourne une url du type IMG/artonXX?timestamp
283 // qui permet de distinguer le changement de logo
284 // et placer un expire sur le dossier IMG/
285 return array ($on[0].($on[4]?
"?$on[4]":""),
286 ($off ?
$off[0] . ($off[4]?
"?$off[4]":"") : ''),
287 (!$taille ?
'' : (" ".$taille[3])));
290 else if (defined('_LOGO_RUBRIQUE_DESACTIVER_HERITAGE'))
292 else if ($id_rubrique) {
293 $type = 'id_rubrique';
296 } else if ($id AND $type == 'id_rubrique')
297 $id = quete_parent($id);
303 * fonction appelee par la balise #LOGO_DOCUMENT
305 * http://doc.spip.org/@calcule_logo_document
308 * @param string $connect
309 * @return bool|string
311 function quete_logo_file($row, $connect=NULL) {
312 include_spip('inc/documents');
313 $logo = vignette_logo_document($row, $connect);
314 if (!$logo) $logo = image_du_document($row);
316 $f = charger_fonction('vignette','inc');
317 $logo = $f($row['extension'], false);
319 // si c'est une vignette type doc, la renvoyer direct
320 if (strcmp($logo,_DIR_PLUGINS
)==0
321 OR strcmp($logo,_DIR_PLUGINS_DIST
)==0
322 OR strcmp($logo,_DIR_RACINE
.'prive/')==0)
324 return get_spip_doc($logo);
328 * Trouver l'image logo d'un document
331 * description du document, issue de la base
335 * alignement left/right
338 * '' => automatique (vignette sinon apercu sinon icone)
339 * icone => icone du type du fichier
340 * apercu => apercu de l'image exclusivement, meme si une vignette existe
341 * vignette => vignette exclusivement, ou rien si elle n'existe pas
346 * @param string $connect
350 function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect=NULL) {
351 include_spip('inc/documents');
353 if (!in_array($mode_logo,array('icone','apercu')))
354 $logo = vignette_logo_document($row, $connect);
355 // si on veut explicitement la vignette, ne rien renvoyer si il n'y en a pas
356 if ($mode_logo == 'vignette' AND !$logo)
358 if ($mode_logo == 'icone')
359 $row['fichier'] = '';
360 return vignette_automatique($logo, $row, $lien, $x, $y, $align);
364 * Retourne la vignette explicitement attachee a un document
365 * le resutat est un fichier local existant, ou une URL
366 * ou vide si pas de vignette
369 * @param string $connect
372 function vignette_logo_document($row, $connect='')
374 if (!$row['id_vignette']) return '';
375 $fichier = quete_fichier($row['id_vignette'], $connect);
377 $site = quete_meta('adresse_site', $connect);
378 $dir = quete_meta('dir_img', $connect);
379 return "$site/$dir$fichier";
381 $f = get_spip_doc($fichier);
382 if ($f AND @file_exists
($f)) return $f;
383 if ($row['mode'] !== 'vignette') return '';
384 return generer_url_entite($row['id_document'], 'document','','', $connect);
388 * Calcul pour savoir si un objet est expose dans le contexte
389 * fournit par $reference
391 * http://doc.spip.org/@calcul_exposer
394 * @param string $prim
395 * @param array $reference
397 * @param string $type
398 * @param string $connect
399 * @return bool|string
401 function calcul_exposer ($id, $prim, $reference, $parent, $type, $connect='') {
402 static $exposer = array();
404 // Que faut-il exposer ? Tous les elements de $reference
405 // ainsi que leur hierarchie ; on ne fait donc ce calcul
406 // qu'une fois (par squelette) et on conserve le resultat
408 if (!isset($exposer[$m=md5(serialize($reference))][$prim])) {
409 $principal = isset($reference[$type])?
$reference[$type]:
410 // cas de la pagination indecte @xx qui positionne la page avec l'id xx
411 // et donne la reference dynamique @type=xx dans le contexte
412 (isset($reference["@$type"])?
$reference["@$type"]:'');
413 // le parent fournit en argument est le parent de $id, pas celui de $principal
414 // il n'est donc pas utile
416 if (!$principal) { // regarder si un enfant est dans le contexte, auquel cas il expose peut etre le parent courant
417 $enfants = array('id_rubrique'=>array('id_article'),'id_groupe'=>array('id_mot'));
418 if (isset($enfants[$type]))
419 foreach($enfants[$type] as $t)
420 if (isset($reference[$t])
421 // cas de la reference donnee dynamiquement par la pagination
422 OR isset($reference["@$t"])) {
424 $principal = isset($reference[$type])?
$reference[$type]:$reference["@$type"];
428 $exposer[$m][$type] = array();
430 $principaux = is_array($principal)?
$principal:array($principal);
431 foreach($principaux as $principal){
432 $exposer[$m][$type][$principal] = true;
433 if ($type == 'id_mot'){
435 $parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . intval($principal), '','','','',$connect);
438 $exposer[$m]['id_groupe'][$parent] = true;
440 else if ($type != 'id_groupe') {
442 if ($type == 'id_rubrique')
443 $parent = $principal;
444 if ($type == 'id_article') {
445 $parent = quete_rubrique($principal,$connect);
448 do { $exposer[$m]['id_rubrique'][$parent] = true; }
449 while ($parent = quete_parent($parent, $connect));
454 // And the winner is...
455 return isset($exposer[$m][$prim]) ?
isset($exposer[$m][$prim][$id]) : '';
459 * Trouver le numero de page d'une pagination indirecte
460 * lorsque debut_xxx=@123
461 * on cherche la page qui contient l'item dont la cle primaire vaut 123
463 * @param string $primary
464 * @param int|string $valeur
466 * @param objetc $iter
469 function quete_debut_pagination($primary,$valeur,$pas,$iter){
470 // on ne devrait pas arriver ici si la cle primaire est inexistante
471 // ou composee, mais verifions
472 if (!$primary OR preg_match('/[,\s]/',$primary))
476 while ($row = $iter->fetch() AND $row[$primary]!=$valeur){
479 // si on a pas trouve
480 if ($row[$primary]!=$valeur)
483 // sinon, calculer le bon numero de page
484 return floor($pos/$pas)*$pas;