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 /**
  24  * retourne l'url de redirection d'un article virtuel, seulement si il est publié
  25  * http://doc.spip.org/@quete_chapo
  26  *
  27  * @param $id_article
  28  * @param $connect
  29  * @return array|bool|null
  30  */
  31 function quete_virtuel($id_article, $connect) {
  32         return sql_getfetsel('virtuel', 'spip_articles', array("id_article=".intval($id_article), "statut='publie'"), '','','','',$connect);
  33 }
  34
  35 /**
  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
  39  *
  40  * @param string $table
  41  * @param int $id
  42  * @param string $connect
  43  * @return array
  44  */
  45 function quete_parent_lang($table,$id,$connect=''){
  46         static $cache_quete = array();
  47
  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;
  54                         else {
  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));
  59                         }
  60                 }
  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);
  63         }
  64         return isset($cache_quete[$connect][$table][$id]) ? $cache_quete[$connect][$table][$id] : null;
  65 }
  66
  67
  68 /**
  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
  72  *
  73  * http://doc.spip.org/@quete_parent
  74  *
  75  * @param int $id_rubrique
  76  * @param string $connect
  77  * @return int
  78  */
  79 function quete_parent($id_rubrique, $connect='') {
  80         if (!$id_rubrique = intval($id_rubrique))
  81                 return 0;
  82         $id_parent = quete_parent_lang('spip_rubriques',$id_rubrique,$connect);
  83         return $id_parent['id_parent'];
  84 }
  85
  86 /**
  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
  90  *
  91  * http://doc.spip.org/@quete_rubrique
  92  *
  93  * @param int $id_article
  94  * @param $serveur
  95  * @return
  96  */
  97 function quete_rubrique($id_article, $serveur) {
  98         $id_parent = quete_parent_lang('spip_articles',$id_article,$serveur);
  99         return $id_parent['id_rubrique'];
 100 }
 101
 102
 103 /**
 104  * retourne la profondeur d'une rubrique
 105  *
 106  * http://doc.spip.org/@quete_profondeur
 107  *
 108  * @param int $id
 109  * @param string $connect
 110  * @return int
 111  */
 112 function quete_profondeur($id, $connect='') {
 113         $n = 0;
 114         while ($id) {
 115                 $n++;
 116                 $id = quete_parent($id, $connect);
 117         }
 118         return $n;
 119 }
 120
 121
 122 /**
 123  * retourne la condition sur la date lorsqu'il y a des post-dates
 124  * @param string $champ_date
 125  * @param string $serveur
 126  * @return string
 127  */
 128 function quete_condition_postdates($champ_date, $serveur='', $ignore_previsu=false) {
 129         if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
 130                 return "1=1";
 131         return
 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)
 135             : "1=1" ;
 136 }
 137
 138
 139 /**
 140  * Calculer la condition pour filtrer les status,
 141  *
 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
 149  *  serveur de BDD
 150  * @return array
 151  */
 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];
 157
 158         $liste = $publie;
 159         if (defined('_VAR_PREVIEW') AND _VAR_PREVIEW AND !$ignore_previsu)
 160                 $liste = $previsu;
 161         $not = false;
 162         if (strncmp($liste,'!',1)==0){
 163                 $not = true;
 164           $liste = substr($liste,1);
 165         }
 166         // '' => ne rien afficher, '!'=> ne rien filtrer
 167         if (!strlen($liste))
 168                 return $cond[$key]=($not?"1=1":"'0=1'");
 169
 170         $liste = explode(',',$liste);
 171         $where = array();
 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);
 177                         $filtre = end($v);
 178                         $v = reset($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)."))";
 189                         }
 190                         // ignorer ce statut si on ne sait pas comment le filtrer
 191                         else
 192                                 $v = "";
 193                 }
 194                 // securite
 195                 $liste[$k] = preg_replace(",\W,","",$v);
 196         }
 197         $liste = array_filter($liste);
 198   if (count($liste)==1){
 199                 $where[] = array('=', $mstatut, sql_quote(reset($liste),$serveur));
 200   }
 201   else {
 202           $where[] = sql_in($mstatut,$liste,$not,$serveur);
 203   }
 204
 205         while (count($where)>1){
 206                 $and = array('AND',array_pop($where),array_pop($where));
 207                 $where[] = $and;
 208         }
 209         $cond[$key] = reset($where);
 210         if ($not)
 211                 $cond[$key] = array('NOT',$cond[$key]);
 212
 213         return $cond[$key];
 214 }
 215
 216 /**
 217  * retourne le fichier d'un document
 218  *
 219  * http://doc.spip.org/@quete_fichier
 220  *
 221  * @param int $id_document
 222  * @param string $serveur
 223  * @return array|bool|null
 224  */
 225 function quete_fichier($id_document, $serveur='') {
 226         return sql_getfetsel('fichier', 'spip_documents', ("id_document=" . intval($id_document)),      '',array(), '', '', $serveur);
 227 }
 228
 229 /**
 230  * Toute les infos sur un document
 231  *
 232  * @param int $id_document
 233  * @param string $serveur
 234  * @return array|bool
 235  */
 236 function quete_document($id_document, $serveur='') {
 237         return sql_fetsel('*', 'spip_documents', ("id_document=" . intval($id_document)),       '',array(), '', '', $serveur);
 238 }
 239
 240 /**
 241  * recuperer une meta sur un site distant (en local il y a plus simple)
 242  *
 243  * http://doc.spip.org/@quete_meta
 244  *
 245  * @param $nom
 246  * @param $serveur
 247  * @return array|bool|null
 248  */
 249 function quete_meta($nom, $serveur) {
 250         return sql_getfetsel("valeur", "spip_meta", "nom=" . sql_quote($nom),
 251                              '','','','',$serveur);
 252 }
 253
 254 /**
 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
 259  *
 260  * @param string $type
 261  * @param string $onoff
 262  * @param int $id
 263  * @param int $id_rubrique
 264  * @param bool $flag
 265  * @return array|string
 266  */
 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);
 272
 273         while (1) {
 274                 $on = $chercher_logo($id, $type, $nom);
 275                 if ($on) {
 276                         if ($flag)
 277                                 return "$on[2].$on[3]";
 278                         else {
 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])));
 288                         }
 289                 }
 290         else if (defined('_LOGO_RUBRIQUE_DESACTIVER_HERITAGE'))
 291             return '';
 292                 else if ($id_rubrique) {
 293                         $type = 'id_rubrique';
 294                         $id = $id_rubrique;
 295                         $id_rubrique = 0;
 296                 } else if ($id AND $type == 'id_rubrique')
 297                         $id = quete_parent($id);
 298                 else return '';
 299         }
 300 }
 301
 302 /**
 303  * fonction appelee par la balise #LOGO_DOCUMENT
 304  *
 305  * http://doc.spip.org/@calcule_logo_document
 306  *
 307  * @param array $row
 308  * @param string $connect
 309  * @return bool|string
 310  */
 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);
 315         if (!$logo){
 316                 $f = charger_fonction('vignette','inc');
 317                 $logo = $f($row['extension'], false);
 318         }
 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)
 323                 return $logo;
 324         return get_spip_doc($logo);
 325 }
 326
 327 /**
 328  * Trouver l'image logo d'un document
 329  *
 330  * @param  $row
 331  *   description du document, issue de la base
 332  * @param  $lien
 333  *   url de lien
 334  * @param  $align
 335  *   alignement left/right
 336  * @param  $mode_logo
 337  *   mode du logo :
 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
 342  * @param  $x
 343  *   largeur maxi
 344  * @param  $y
 345  *   hauteur maxi
 346  * @param string $connect
 347  *   serveur
 348  * @return string
 349  */
 350 function quete_logo_document($row, $lien, $align, $mode_logo, $x, $y, $connect=NULL) {
 351         include_spip('inc/documents');
 352         $logo = '';
 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)
 357                 return '';
 358         if ($mode_logo == 'icone')
 359                 $row['fichier'] = '';
 360         return vignette_automatique($logo, $row, $lien, $x, $y, $align);
 361 }
 362
 363 /**
 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
 367  *
 368  * @param array $row
 369  * @param string $connect
 370  * @return string
 371  */
 372 function vignette_logo_document($row, $connect='')
 373 {
 374         if (!$row['id_vignette']) return '';
 375         $fichier = quete_fichier($row['id_vignette'], $connect);
 376         if ($connect) {
 377                 $site = quete_meta('adresse_site', $connect);
 378                 $dir = quete_meta('dir_img', $connect);
 379                 return "$site/$dir$fichier";
 380         }
 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);
 385 }
 386
 387 /**
 388  * Calcul pour savoir si un objet est expose dans le contexte
 389  * fournit par $reference
 390  *
 391  * http://doc.spip.org/@calcul_exposer
 392  *
 393  * @param int $id
 394  * @param string $prim
 395  * @param array $reference
 396  * @param int $parent
 397  * @param string $type
 398  * @param string $connect
 399  * @return bool|string
 400  */
 401 function calcul_exposer ($id, $prim, $reference, $parent, $type, $connect='') {
 402         static $exposer = array();
 403
 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
 407         // en static.
 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
 415                 $parent = 0;
 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"])) {
 423                                                 $type = $t;
 424                                                 $principal = isset($reference[$type])?$reference[$type]:$reference["@$type"];
 425                                                 continue;
 426                                         }
 427                 }
 428                 $exposer[$m][$type] = array();
 429                 if ($principal) {
 430                         $principaux = is_array($principal)?$principal:array($principal);
 431                         foreach($principaux as $principal){
 432                                 $exposer[$m][$type][$principal] = true;
 433                                 if ($type == 'id_mot'){
 434                                         if (!$parent) {
 435                                                 $parent = sql_getfetsel('id_groupe','spip_mots',"id_mot=" . intval($principal), '','','','',$connect);
 436                                         }
 437                                         if ($parent)
 438                                                 $exposer[$m]['id_groupe'][$parent] = true;
 439                                 }
 440                                 else if ($type != 'id_groupe') {
 441                                   if (!$parent) {
 442                                         if ($type == 'id_rubrique')
 443                                                 $parent = $principal;
 444                                         if ($type == 'id_article') {
 445                                                 $parent = quete_rubrique($principal,$connect);
 446                                         }
 447                                   }
 448                                   do { $exposer[$m]['id_rubrique'][$parent] = true; }
 449                                   while ($parent = quete_parent($parent, $connect));
 450                                 }
 451                         }
 452                 }
 453         }
 454         // And the winner is...
 455         return isset($exposer[$m][$prim]) ? isset($exposer[$m][$prim][$id]) : '';
 456 }
 457
 458 /**
 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
 462  *
 463  * @param string $primary
 464  * @param int|string $valeur
 465  * @param int $pas
 466  * @param objetc $iter
 467  * @return int
 468  */
 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))
 473                 return 0;
 474
 475         $pos = 0;
 476         while ($row = $iter->fetch() AND $row[$primary]!=$valeur){
 477                 $pos++;
 478         }
 479         // si on a pas trouve
 480         if ($row[$primary]!=$valeur)
 481                 return 0;
 482
 483         // sinon, calculer le bon numero de page
 484         return floor($pos/$pas)*$pas;
 485 }
 486 ?>