www/ecrire/public/quete.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2014                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   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 \***************************************************************************/
  12
  13 if (!defined('_ECRIRE_INC_VERSION')) return;
  14
  15 //
  16 // Fonctions d'appel aux serveurs SQL presentes dans le code compile
  17 //
  18
  19 # NB : a l'exception des fonctions pour les balises dynamiques
  20
  21 include_spip('base/abstract_sql');
  22
  23 # retourne le chapeau d'un article, et seulement s'il est publie
  24
  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);
  28 }
  29
  30 function quete_parent_lang($table,$id,$connect=''){
  31         static $cache_quete = array();
  32
  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);
  39         }
  40         return $cache_quete[$connect][$table][$id];
  41 }
  42
  43
  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))
  48                 return 0;
  49         $id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
  50         return $id_parent['id_parent'];
  51 }
  52
  53 # retourne la rubrique d'un article
  54
  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'];
  59 }
  60
  61
  62 # retourne la profondeur d'une rubrique
  63
  64 // http://doc.spip.org/@quete_profondeur
  65 function quete_profondeur($id, $connect='') {
  66         $n = 0;
  67         while ($id) {
  68                 $n++;
  69                 $id = quete_parent($id, $connect);
  70         }
  71         return $n;
  72 }
  73
  74
  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
  77 # du serveur SQL
  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']);
  82         else
  83                 return '2138-01-01 00:00:00';
  84 }
  85
  86
  87 # retourne le fichier d'un document
  88
  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);
  92 }
  93
  94 # Toute les infos sur un document
  95
  96 function quete_document($id_document, $serveur='') {
  97         return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)),       '',array(), '', '', $serveur);
  98 }
  99
 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);
 103
 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 : ' ';
 109 }
 110
 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 => '');
 119
 120         $id_article = intval($id_article);
 121
 122         if (isset($cache[$id_article])) return $cache[$id_article];
 123
 124         return $cache[$id_article] = sql_getfetsel('accepter_forum','spip_articles',"id_article=$id_article");
 125 }
 126
 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);
 132 }
 133
 134 //
 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
 139
 140 function quete_logo($type, $onoff, $id, $id_rubrique, $flag) {
 141         $chercher_logo = charger_fonction('chercher_logo', 'inc');
 142         $nom = strtolower($onoff);
 143
 144         while (1) {
 145                 $on = $chercher_logo($id, $type, $nom);
 146                 if ($on) {
 147                         if ($flag)
 148                                 return "$on[2].$on[3]";
 149                         else {
 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])));
 159                         }
 160                 }
 161                 else if ($id_rubrique) {
 162                         $type = 'id_rubrique';
 163                         $id = $id_rubrique;
 164                         $id_rubrique = 0;
 165                 } else if ($id AND $type == 'id_rubrique')
 166                         $id = quete_parent($id);
 167                 else return '';
 168         }
 169 }
 170
 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);
 177         if (!$logo){
 178                 $f = charger_fonction('vignette','inc');
 179                 $logo = $f($row['extension'], false);
 180         }
 181         if (preg_match(',^'._DIR_IMG_ICONES_DIST.',', $logo))
 182                 return $logo;
 183         return get_spip_doc($logo);
 184 }
 185
 186 function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect=NULL) {
 187         include_spip('inc/documents');
 188         $logo = '';
 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)
 193                 return '';
 194         if ($mode_logo == 'icone')
 195                 $row['fichier'] = '';
 196         return vignette_automatique($logo, $row, $lien, $x, $y, $align);
 197 }
 198
 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='')
 202 {
 203         if (!$row['id_vignette']) return '';
 204         $fichier = quete_fichier($row['id_vignette'], $connect);
 205         if ($connect) {
 206                 $site = quete_meta('adresse_site', $connect);
 207                 $dir = quete_meta('dir_img', $connect);
 208                 return "$site/$dir$fichier";
 209         }
 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);
 214 }
 215
 216 // http://doc.spip.org/@calcul_exposer
 217 function calcul_exposer ($id, $prim, $reference, $parent, $type, $connect='') {
 218         static $exposer = array();
 219
 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
 223         // en static.
 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
 231                 $parent = 0;
 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"])) {
 239                                                 $type = $t;
 240                                                 $principal = isset($reference[$type])?$reference[$type]:$reference["@$type"];
 241                                                 continue;
 242                                         }
 243                 }
 244                 $exposer[$m][$type] = array();
 245                 if ($principal) {
 246                         $principaux = is_array($principal)?$principal:array($principal);
 247                         foreach($principaux as $principal){
 248                                 $exposer[$m][$type][$principal] = true;
 249                                 if ($type == 'id_mot'){
 250                                         if (!$parent) {
 251                                                 $parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . $principal, '','','','',$connect);
 252                                         }
 253                                         if ($parent)
 254                                                 $exposer[$m]['id_groupe'][$parent] = true;
 255                                 }
 256                                 else if ($type != 'id_groupe') {
 257                                   if (!$parent) {
 258                                         if ($type == 'id_rubrique')
 259                                                 $parent = $principal;
 260                                         if ($type == 'id_article') {
 261                                                 $parent = quete_rubrique($principal,$connect);
 262                                         }
 263                                   }
 264                                   do { $exposer[$m]['id_rubrique'][$parent] = true; }
 265                                   while ($parent = quete_parent($parent, $connect));
 266                                 }
 267                         }
 268                 }
 269         }
 270         // And the winner is...
 271         return isset($exposer[$m][$prim]) ? isset($exposer[$m][$prim][$id]) : '';
 272 }
 273
 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)) {
 285                 $id = 'id_' . $r[1];
 286                 if ($t = $lang[$id] AND $id != 'id_syndic')
 287                         $lang = sql_getfetsel('lang', $t, "$id=" . $r[2]);
 288                 else $lang = '';
 289         }
 290   // Si ce n'est pas la meme que celle du site, l'ajouter aux parametres
 291
 292         if ($lang AND $lang <> $GLOBALS['meta']['langue_site'])
 293                 return $qs . "&lang=" . $lang;
 294
 295         return $qs;
 296 }
 297
 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))
 302                 return 0;
 303
 304         $pos = 0;
 305         while ($row = sql_fetch($res,$serveur) AND $row[$primary]!=$valeur){
 306                 $pos++;
 307         }
 308         // si on a pas trouve
 309         if ($row[$primary]!=$valeur)
 310                 return 0;
 311
 312         // sinon, calculer le bon numero de page
 313         return floor($pos/$pas)*$pas;
 314 }
 315 ?>