www/ecrire/inc/rubriques.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2019                                                *
   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 /**
  14  * Fichier gérant l'actualisation et le suivi des rubriques, et de leurs branches
  15  *
  16  * @package SPIP\Core\Rubriques
  17  */
  18
  19 if (!defined('_ECRIRE_INC_VERSION')) {
  20         return;
  21 }
  22
  23
  24 /**
  25  * Recalcule les statuts d'une rubrique
  26  *
  27  * Fonction à appeler lorsque le statut d'un objet change dans une rubrique
  28  * ou que la rubrique est deplacée.
  29  *
  30  * Si le statut passe a "publie", la rubrique et ses parents y passent aussi
  31  * et les langues utilisees sont recalculées.
  32  * Conséquences symétriques s'il est depublié.
  33  *
  34  * S'il est deplacé alors qu'il était publiée, double conséquence.
  35  *
  36  * Tout cela devrait passer en SQL, sous forme de Cascade SQL.
  37  *
  38  * @uses depublier_branche_rubrique_if()
  39  * @uses calculer_prochain_postdate()
  40  * @uses publier_branche_rubrique()
  41  *
  42  * @param int $id_rubrique
  43  *     Identifiant de la rubrique
  44  * @param array $modifs
  45  *     Tableau de description des modifications.
  46  *     Peut avoir 2 index, 'statut' étant obligatoire :
  47  *     - statut : indique le nouveau statut de la rubrique
  48  *     - id_rubrique : indiquer la rubrique dans laquelle on déplace la rubrique (son nouveau parent donc)
  49  * @param array $infos
  50  *     Infos sur l'objet modifié : statut_ancien, objet, id_objet…
  51  * @param bool $postdate
  52  *     true pour recalculer aussi la date du prochain article post-daté
  53  * @return bool
  54  *     true si le statut change effectivement
  55  **/
  56 function calculer_rubriques_if($id_rubrique, $modifs, $infos = array(), $postdate = false) {
  57         $neuf = false;
  58
  59         // Compat avec l'ancienne signature
  60         if (is_string($infos)) {
  61                 $infos = array('statut_ancien' => $infos);
  62         }
  63         if (!isset($infos['statut_ancien'])) {
  64                 $infos['statut_ancien'] = '';
  65         }
  66
  67         // On recherche quels statuts tester
  68         if (
  69                 isset($infos['objet'])
  70                 and include_spip('inc/filtres')
  71                 and $declaration_statut = objet_info($infos['objet'], 'statut')
  72                 and is_array($declaration_statut)
  73         ) {
  74                 foreach ($declaration_statut as $champ_statut) {
  75                         if ($champ_statut['champ'] == 'statut') {
  76                                 $statuts_publies = array_map('trim', explode(',', $champ_statut['publie']));
  77                                 break; // stop on a trouvé le bon champ
  78                         }
  79                 }
  80         }
  81         else {
  82                 $statuts_publies = array('publie');
  83         }
  84
  85         if (in_array($infos['statut_ancien'], $statuts_publies)) {
  86                 if (isset($modifs['statut'])
  87                         or isset($modifs['id_rubrique'])
  88                         or ($postdate and strtotime($postdate) > time())
  89                 ) {
  90                         $neuf |= depublier_branche_rubrique_if($id_rubrique);
  91                 }
  92                 // ne publier que si c'est pas un postdate, ou si la date n'est pas dans le futur
  93                 if ($postdate) {
  94                         calculer_prochain_postdate(true);
  95                         $neuf |= (strtotime($postdate) <= time()); // par securite
  96                 } elseif (isset($modifs['id_rubrique'])) {
  97                         $neuf |= publier_branche_rubrique($modifs['id_rubrique']);
  98                 }
  99         } elseif (isset($modifs['statut']) and in_array($modifs['statut'], $statuts_publies)) {
 100                 if ($postdate) {
 101                         calculer_prochain_postdate(true);
 102                         $neuf |= (strtotime($postdate) <= time()); // par securite
 103                 } else {
 104                         $neuf |= publier_branche_rubrique($id_rubrique);
 105                 }
 106         }
 107
 108         if ($neuf) // Sauver la date de la derniere mise a jour (pour menu_rubriques)
 109         {
 110                 ecrire_meta("date_calcul_rubriques", date("U"));
 111         }
 112
 113         $langues = calculer_langues_utilisees();
 114         ecrire_meta('langues_utilisees', $langues);
 115 }
 116
 117
 118 /**
 119  * Publie une rubrique et sa hiérarchie de rubriques
 120  *
 121  * Fonction à appeler lorsqu'on dépublie ou supprime quelque chose
 122  * dans une rubrique.
 123  *
 124  * @todo Le nom de la fonction est trompeur, vu que la fonction remonte dans la hierarchie !
 125  *
 126  * @param int $id_rubrique
 127  *     Identifiant de la rubrique
 128  * @return bool
 129  *     true si le statut change effectivement
 130  */
 131 function publier_branche_rubrique($id_rubrique) {
 132         $id_pred = $id_rubrique;
 133         while (true) {
 134                 sql_updateq('spip_rubriques', array('statut' => 'publie', 'date' => date('Y-m-d H:i:s')),
 135                         "id_rubrique=" . intval($id_rubrique));
 136                 $id_parent = sql_getfetsel('id_parent', 'spip_rubriques AS R', "R.id_rubrique=" . intval($id_rubrique));
 137                 if (!$id_parent) {
 138                         break;
 139                 }
 140                 $id_rubrique = $id_parent;
 141         }
 142
 143 #       spip_log(" publier_branche_rubrique($id_rubrique $id_pred");
 144         return $id_pred != $id_rubrique;
 145 }
 146
 147 /**
 148  * Dépublie si nécessaire des éléments d'une hiérarchie de rubriques
 149  *
 150  * Fonction à appeler lorsqu'on dépublie ou supprime quelque chose
 151  * dans une rubrique.
 152  *
 153  * @uses depublier_rubrique_if()
 154  * @todo Le nom de la fonction est trompeur, vu que la fonction remonte dans la hierarchie !
 155  *
 156  * @param int $id_rubrique
 157  *     Identifiant de la rubrique
 158  * @return bool
 159  *     true si le statut change effectivement
 160  */
 161 function depublier_branche_rubrique_if($id_rubrique) {
 162         $date = date('Y-m-d H:i:s'); // figer la date
 163
 164         #       spip_log("depublier_branche_rubrique($id_rubrique ?");
 165         $id_pred = $id_rubrique;
 166         while ($id_pred) {
 167
 168                 if (!depublier_rubrique_if($id_pred, $date)) {
 169                         return $id_pred != $id_rubrique;
 170                 }
 171                 // passer au parent si on a depublie
 172                 $r = sql_fetsel("id_parent", "spip_rubriques", "id_rubrique=" . intval($id_pred));
 173                 $id_pred = $r['id_parent'];
 174         }
 175
 176         return $id_pred != $id_rubrique;
 177 }
 178
 179 /**
 180  * Dépublier une rubrique si aucun contenu publié connu n'est trouvé dedans
 181  *
 182  * @pipeline_appel objet_compte_enfants
 183  *
 184  * @param int $id_rubrique
 185  *     Identifiant de la rubrique à tester
 186  * @param string|null $date
 187  *     Date pour le calcul des éléments post-datés.
 188  *     null = date actuelle.
 189  * @return bool
 190  *    true si la rubrique a été dépubliée
 191  */
 192 function depublier_rubrique_if($id_rubrique, $date = null) {
 193         if (is_null($date)) {
 194                 $date = date('Y-m-d H:i:s');
 195         }
 196         $postdates = ($GLOBALS['meta']["post_dates"] == "non") ?
 197                 " AND date <= " . sql_quote($date) : '';
 198
 199         if (!$id_rubrique = intval($id_rubrique)) {
 200                 return false;
 201         }
 202
 203         // verifier qu'elle existe et est bien publiee
 204         $r = sql_fetsel('id_rubrique,statut', 'spip_rubriques', "id_rubrique=" . intval($id_rubrique));
 205         if (!$r or $r['statut'] !== 'publie') {
 206                 return false;
 207         }
 208
 209         // On met le nombre de chaque type d'enfants dans un tableau
 210         // Le type de l'objet est au pluriel
 211         $compte = array(
 212                 'articles' => sql_countsel("spip_articles",
 213                         "id_rubrique=" . intval($id_rubrique) . " AND statut='publie'$postdates"),
 214                 'rubriques' => sql_countsel("spip_rubriques", "id_parent=" . intval($id_rubrique) . " AND statut='publie'"),
 215                 'documents' => sql_countsel("spip_documents_liens", "id_objet=" . intval($id_rubrique) . " AND objet='rubrique'")
 216         );
 217
 218         // On passe le tableau des comptes dans un pipeline pour que les plugins puissent ajouter (ou retirer) des enfants
 219         $compte = pipeline('objet_compte_enfants',
 220                 array(
 221                         'args' => array(
 222                                 'objet' => 'rubrique',
 223                                 'id_objet' => $id_rubrique,
 224                                 'statut' => 'publie',
 225                                 'date' => $date
 226                         ),
 227                         'data' => $compte
 228                 )
 229         );
 230
 231         // S'il y a au moins un enfant de n'importe quoi, on ne dépublie pas
 232         foreach ($compte as $objet => $n) {
 233                 if ($n) {
 234                         return false;
 235                 }
 236         }
 237
 238         sql_updateq("spip_rubriques", array("statut" => 'prepa'), "id_rubrique=" . intval($id_rubrique));
 239
 240 #               spip_log("depublier_rubrique $id_pred");
 241         return true;
 242 }
 243
 244
 245 /**
 246  * Recalcule des héritages de rubriques
 247  *
 248  * Recalcule le statut des rubriques, les langues héritées et la date
 249  * du prochain article post-daté
 250  *
 251  * Cette fonction est appelée après importation: elle calcule les meta-donnes
 252  * resultantes et remet de la coherence au cas où la base importée en manquait
 253  *
 254  * Cette fonction doit etre invoquée sans processus concurrent potentiel.
 255  *
 256  * @uses calculer_rubriques_publiees()
 257  * @uses calculer_langues_utilisees()
 258  * @uses calculer_prochain_postdate()
 259  *
 260  * @return void
 261  **/
 262 function calculer_rubriques() {
 263
 264         calculer_rubriques_publiees();
 265
 266         // Apres chaque (de)publication
 267         // recalculer les langues utilisees sur le site
 268         $langues = calculer_langues_utilisees();
 269         ecrire_meta('langues_utilisees', $langues);
 270
 271         // Sauver la date de la derniere mise a jour (pour menu_rubriques)
 272         ecrire_meta("date_calcul_rubriques", date("U"));
 273
 274         // on calcule la date du prochain article post-date
 275         calculer_prochain_postdate();
 276 }
 277
 278
 279 /**
 280  * Recalcule l'ensemble des données associées à l'arborescence des rubriques
 281  *
 282  * Attention, faute de SQL transactionnel on travaille sur
 283  * des champs temporaires afin de ne pas casser la base
 284  * pendant la demi seconde de recalculs
 285  *
 286  * @pipeline_appel calculer_rubriques
 287  *
 288  * @return void
 289  **/
 290 function calculer_rubriques_publiees() {
 291
 292         // Mettre les compteurs a zero
 293         sql_updateq('spip_rubriques', array('date_tmp' => '0000-00-00 00:00:00', 'statut_tmp' => 'prepa'));
 294
 295         //
 296         // Publier et dater les rubriques qui ont un article publie
 297         //
 298
 299         // Afficher les articles post-dates ?
 300         $postdates = ($GLOBALS['meta']["post_dates"] == "non") ?
 301                 "AND A.date <= " . sql_quote(date('Y-m-d H:i:s')) : '';
 302
 303         $r = sql_select(
 304                 "R.id_rubrique AS id, max(A.date) AS date_h",
 305                 "spip_rubriques AS R JOIN spip_articles AS A ON R.id_rubrique = A.id_rubrique",
 306                 "A.date>R.date_tmp AND A.statut='publie' $postdates ", "R.id_rubrique");
 307         while ($row = sql_fetch($r)) {
 308                 sql_updateq("spip_rubriques", array("statut_tmp" => 'publie', "date_tmp" => $row['date_h']),
 309                         "id_rubrique=" . intval($row['id']));
 310         }
 311
 312         // point d'entree pour permettre a des plugins de gerer le statut
 313         // autrement (par ex: toute rubrique est publiee des sa creation)
 314         // Ce pipeline fait ce qu'il veut, mais s'il touche aux statuts/dates
 315         // c'est statut_tmp/date_tmp qu'il doit modifier
 316         // [C'est un trigger... a renommer en trig_calculer_rubriques ?]
 317         pipeline('calculer_rubriques', null);
 318
 319
 320         // Les rubriques qui ont une rubrique fille plus recente
 321         // on tourne tant que les donnees remontent vers la racine.
 322         do {
 323                 $continuer = false;
 324                 $r = sql_select(
 325                         "R.id_rubrique AS id, max(SR.date_tmp) AS date_h",
 326                         "spip_rubriques AS R JOIN spip_rubriques AS SR ON R.id_rubrique = SR.id_parent",
 327                         "(SR.date_tmp>R.date_tmp OR R.statut_tmp<>'publie') AND SR.statut_tmp='publie' ", "R.id_rubrique");
 328                 while ($row = sql_fetch($r)) {
 329                         sql_updateq('spip_rubriques', array('statut_tmp' => 'publie', 'date_tmp' => $row['date_h']),
 330                                 "id_rubrique=" . intval($row['id']));
 331                         $continuer = true;
 332                 }
 333         } while ($continuer);
 334
 335         // Enregistrement des modifs
 336         sql_update('spip_rubriques', array('date' => 'date_tmp', 'statut' => 'statut_tmp'));
 337 }
 338
 339 /**
 340  * Recalcule les secteurs et les profondeurs des rubriques (et articles)
 341  *
 342  * Cherche les rubriques ayant des id_secteur ou profondeurs ne correspondant pas
 343  * avec leur parent, et les met à jour. De même avec les articles et leur id_secteur
 344  * On procede en iterant la profondeur de 1 en 1 pour ne pas risquer une boucle infinie sur reference circulaire
 345  *
 346  * @pipeline_appel trig_propager_les_secteurs
 347  *
 348  * @return void
 349  **/
 350 function propager_les_secteurs() {
 351         // Profondeur 0
 352         // Toutes les rubriques racines sont de profondeur 0
 353         // et fixer les id_secteur des rubriques racines
 354         sql_update('spip_rubriques', array('id_secteur' => 'id_rubrique', 'profondeur' => 0), "id_parent=0");
 355         // Toute rubrique non racine est de profondeur >0
 356         sql_updateq('spip_rubriques', array('profondeur' => 1), "id_parent<>0 AND profondeur=0");
 357
 358         // securite : pas plus d'iteration que de rubriques dans la base
 359         $maxiter = sql_countsel("spip_rubriques");
 360
 361         // reparer les rubriques qui n'ont pas l'id_secteur de leur parent
 362         // on fait profondeur par profondeur
 363
 364         $prof = 0;
 365         do {
 366                 $continuer = false;
 367
 368                 // Par recursivite : si toutes les rubriques de profondeur $prof sont bonnes
 369                 // on fixe le profondeur $prof+1
 370
 371                 // Toutes les rubriques dont le parent est de profondeur $prof ont une profondeur $prof+1
 372                 // on teste A.profondeur > $prof+1 car :
 373                 // - toutes les rubriques de profondeur 0 à $prof sont bonnes
 374                 // - si A.profondeur = $prof+1 c'est bon
 375                 // - cela nous protege de la boucle infinie en cas de reference circulaire dans les rubriques
 376                 $maxiter2 = $maxiter;
 377                 while ($maxiter2--
 378                         and $rows = sql_allfetsel(
 379                                 "A.id_rubrique AS id, R.id_secteur AS id_secteur, R.profondeur+1 as profondeur",
 380                                 "spip_rubriques AS A JOIN spip_rubriques AS R ON A.id_parent = R.id_rubrique",
 381                                 "R.profondeur=" . intval($prof) . " AND (A.id_secteur <> R.id_secteur OR A.profondeur > R.profondeur+1)",
 382                                 "", "R.id_secteur", "0,100")) {
 383
 384                         $id_secteur = null;
 385                         $ids = array();
 386                         while ($row = array_shift($rows)) {
 387                                 if ($row['id_secteur'] !== $id_secteur) {
 388                                         if (count($ids)) {
 389                                                 sql_updateq("spip_rubriques", array("id_secteur" => $id_secteur, 'profondeur' => $prof + 1),
 390                                                         sql_in('id_rubrique', $ids));
 391                                         }
 392                                         $id_secteur = $row['id_secteur'];
 393                                         $ids = array();
 394                                 }
 395                                 $ids[] = $row['id'];
 396                         }
 397                         if (count($ids)) {
 398                                 sql_updateq("spip_rubriques", array("id_secteur" => $id_secteur, 'profondeur' => $prof + 1),
 399                                         sql_in('id_rubrique', $ids));
 400                         }
 401                 }
 402
 403
 404                 // Toutes les rubriques de profondeur $prof+1 qui n'ont pas un parent de profondeur $prof sont decalees
 405                 $maxiter2 = $maxiter;
 406                 while ($maxiter2--
 407                         and $rows = sql_allfetsel(
 408                                 "id_rubrique as id",
 409                                 "spip_rubriques",
 410                                 "profondeur=" . intval($prof + 1) . " AND id_parent NOT IN (" . sql_get_select("zzz.id_rubrique",
 411                                         "spip_rubriques AS zzz", "zzz.profondeur=" . intval($prof)) . ")", '', '', '0,100')) {
 412                         $rows = array_map('reset', $rows);
 413                         sql_updateq("spip_rubriques", array('profondeur' => $prof + 2), sql_in("id_rubrique", $rows));
 414                 }
 415
 416                 // ici on a fini de valider $prof+1, toutes les rubriques de prondeur 0 a $prof+1 sont OK
 417                 // si pas de rubrique a profondeur $prof+1 pas la peine de continuer
 418                 // si il reste des rubriques non vues, c'est une branche morte ou reference circulaire (base foireuse)
 419                 // on arrete les frais
 420                 if (sql_countsel("spip_rubriques", "profondeur=" . intval($prof + 1))) {
 421                         $prof++;
 422                         $continuer = true;
 423                 }
 424         } while ($continuer and $maxiter--);
 425
 426         // loger si la table des rubriques semble foireuse
 427         // et mettre un id_secteur=0 sur ces rubriques pour eviter toute selection par les boucles
 428         if (sql_countsel("spip_rubriques", "profondeur>" . intval($prof + 1))) {
 429                 spip_log("Les rubriques de profondeur>" . ($prof + 1) . " semblent suspectes (branches morte ou reference circulaire dans les parents)",
 430                         _LOG_CRITIQUE);
 431                 sql_update("spip_rubriques", array('id_secteur' => 0), "profondeur>" . intval($prof + 1));
 432         }
 433
 434         // reparer les articles
 435         $r = sql_select("A.id_article AS id, R.id_secteur AS secteur", "spip_articles AS A, spip_rubriques AS R",
 436                 "A.id_rubrique = R.id_rubrique AND A.id_secteur <> R.id_secteur");
 437
 438         while ($row = sql_fetch($r)) {
 439                 sql_update("spip_articles", array("id_secteur" => $row['secteur']), "id_article=" . intval($row['id']));
 440         }
 441
 442         // avertir les plugins qui peuvent faire leur mises a jour egalement
 443         pipeline('trig_propager_les_secteurs', '');
 444 }
 445
 446
 447 /**
 448  * Recalcule les langues héritées des sous-rubriques
 449  *
 450  * Cherche les langues incorrectes de sous rubriques, qui doivent hériter
 451  * de la rubrique parente lorsque langue_choisie est différent de oui,
 452  * et les corrige.
 453  *
 454  * @return bool
 455  *     true si un changement a eu lieu
 456  **/
 457 function calculer_langues_rubriques_etape() {
 458         $s = sql_select("A.id_rubrique AS id_rubrique, R.lang AS lang", "spip_rubriques AS A, spip_rubriques AS R",
 459                 "A.id_parent = R.id_rubrique AND A.langue_choisie != 'oui' AND R.lang<>'' AND R.lang<>A.lang");
 460
 461         $t = false;
 462         while ($row = sql_fetch($s)) {
 463                 $id_rubrique = $row['id_rubrique'];
 464                 $t = sql_updateq('spip_rubriques', array('lang' => $row['lang'], 'langue_choisie' => 'non'),
 465                         "id_rubrique=" . intval($id_rubrique));
 466         }
 467
 468         return $t;
 469 }
 470
 471 /**
 472  * Recalcule les langues des rubriques et articles
 473  *
 474  * Redéfinit la langue du site sur les rubriques sans langue spécifiée
 475  * (langue_choisie différent de 'oui')
 476  *
 477  * Redéfinit les langues des articles sans langue spécifiée
 478  * (langue_choisie différent de 'oui') en les rebasant sur la langue
 479  * de la rubrique parente lorsque ce n'est pas le cas.
 480  *
 481  * @uses calculer_langues_rubriques_etape()
 482  * @pipeline_appel trig_calculer_langues_rubriques
 483  *
 484  * @return void
 485  **/
 486 function calculer_langues_rubriques() {
 487
 488         // rubriques (recursivite)
 489         sql_updateq("spip_rubriques", array("lang" => $GLOBALS['meta']['langue_site'], "langue_choisie" => 'non'),
 490                 "id_parent=0 AND langue_choisie != 'oui'");
 491         while (calculer_langues_rubriques_etape()) {
 492                 ;
 493         }
 494
 495         // articles
 496         $s = sql_select("A.id_article AS id_article, R.lang AS lang", "spip_articles AS A, spip_rubriques AS R",
 497                 "A.id_rubrique = R.id_rubrique AND A.langue_choisie != 'oui' AND (length(A.lang)=0 OR length(R.lang)>0) AND R.lang<>A.lang");
 498         while ($row = sql_fetch($s)) {
 499                 $id_article = $row['id_article'];
 500                 sql_updateq('spip_articles', array("lang" => $row['lang'], 'langue_choisie' => 'non'),
 501                         "id_article=" . intval($id_article));
 502         }
 503
 504         if ($GLOBALS['meta']['multi_rubriques'] == 'oui') {
 505
 506                 $langues = calculer_langues_utilisees();
 507                 ecrire_meta('langues_utilisees', $langues);
 508         }
 509
 510         // avertir les plugins qui peuvent faire leur mises a jour egalement
 511         pipeline('trig_calculer_langues_rubriques', '');
 512 }
 513
 514
 515 /**
 516  * Calcule la liste des langues réellement utilisées dans le site public
 517  *
 518  * La recherche de langue est effectuée en recréant une boucle pour chaque
 519  * objet éditorial gérant des langues de sorte que les éléments non publiés
 520  * ne sont pas pris en compte.
 521  *
 522  * @param string $serveur
 523  *    Nom du connecteur à la base de données
 524  * @return string
 525  *    Liste des langues utilisées séparées par des virgules
 526  **/
 527 function calculer_langues_utilisees($serveur = '') {
 528         include_spip('public/interfaces');
 529         include_spip('public/compiler');
 530         include_spip('public/composer');
 531         include_spip('public/phraser_html');
 532         $langues = array();
 533
 534         $langues[$GLOBALS['meta']['langue_site']] = 1;
 535
 536         include_spip('base/objets');
 537         $tables = lister_tables_objets_sql();
 538         $trouver_table = charger_fonction('trouver_table', 'base');
 539
 540         foreach (array_keys($tables) as $t) {
 541                 $desc = $trouver_table($t, $serveur);
 542                 // c'est une table avec des langues
 543                 if ($desc['exist']
 544                         and isset($desc['field']['lang'])
 545                         and isset($desc['field']['langue_choisie'])
 546                 ) {
 547
 548                         $boucle = new Boucle();
 549                         $boucle->show = $desc;
 550                         $boucle->nom = 'calculer_langues_utilisees';
 551                         $boucle->id_boucle = $desc['table_objet'];
 552                         $boucle->id_table = $desc['table_objet'];
 553                         $boucle->sql_serveur = $serveur;
 554                         $boucle->select[] = "DISTINCT lang";
 555                         $boucle->from[$desc['table_objet']] = $t;
 556                         $boucle->separateur[] = ',';
 557                         $boucle->return = '$Pile[$SP][\'lang\']';
 558                         $boucle->iterateur = 'sql';
 559
 560                         $boucle->descr['nom'] = 'objet_test_si_publie'; // eviter notice php
 561                         $boucle->descr['sourcefile'] = 'internal';
 562
 563                         $boucle = pipeline('pre_boucle', $boucle);
 564
 565                         if (isset($desc['statut'])
 566                                 and $desc['statut']
 567                         ) {
 568                                 $boucles = array(
 569                                         'calculer_langues_utilisees' => $boucle,
 570                                 );
 571                                 // generer un nom de fonction "anonyme" unique
 572                                 do {
 573                                         $functionname = 'f_calculer_langues_utilisees_' . $boucle->id_table . '_' . time() . '_' . rand();
 574                                 } while (function_exists($functionname));
 575                                 $code = calculer_boucle('calculer_langues_utilisees', $boucles);
 576                                 $code = '$SP=0; $command=array();$command["connect"] = $connect = "' . $serveur . '"; $Pile=array(0=>array());' . "\n" . $code;
 577                                 $code = 'function ' . $functionname . '(){' . $code . '};$res = ' . $functionname . '();';
 578                                 $res = '';
 579                                 eval($code);
 580                                 $res = explode(',', $res);
 581                                 foreach ($res as $lang) {
 582                                         $langues[$lang] = 1;
 583                                 }
 584                         } else {
 585                                 $res = sql_select(implode(',', $boucle->select), $boucle->from);
 586                                 while ($row = sql_fetch($res)) {
 587                                         $langues[$row['lang']] = 1;
 588                                 }
 589                         }
 590                 }
 591         }
 592
 593         $langues = array_filter(array_keys($langues));
 594         sort($langues);
 595         $langues = join(',', $langues);
 596         spip_log("langues utilisees: $langues");
 597
 598         return $langues;
 599 }
 600
 601 /**
 602  * Calcule une branche de rubriques
 603  *
 604  * Dépréciée, pour compatibilité
 605  *
 606  * @deprecated
 607  * @see calcul_branche_in()
 608  *
 609  * @param string|int|array $generation
 610  * @return string
 611  */
 612 function calcul_branche($generation) { return calcul_branche_in($generation); }
 613
 614 /**
 615  * Calcul d'une branche de rubrique
 616  *
 617  * Liste des id_rubrique contenues dans une rubrique donnée
 618  *
 619  * @see inc_calcul_branche_in_dist()
 620  *
 621  * @param string|int|array $id
 622  *     Identifiant de la, ou des rubriques noeuds
 623  * @return string
 624  *     Liste des identifiants séparés par des virgules,
 625  *     incluant les rubriques noeuds et toutes leurs descendances
 626  */
 627 function calcul_branche_in($id) {
 628         $calcul_branche_in = charger_fonction('calcul_branche_in', 'inc');
 629
 630         return $calcul_branche_in($id);
 631 }
 632
 633 /**
 634  * Calcul d'une hiérarchie
 635  *
 636  * Liste des id_rubrique contenant une rubrique donnée
 637  *
 638  * @see inc_calcul_hierarchie_in_dist()
 639  * @param string|int|array $id
 640  *     Identifiant de la, ou des rubriques dont on veut obtenir les hierarchies
 641  * @param bool $tout
 642  *     inclure la rubrique de depart dans la hierarchie ou non
 643  * @return string
 644  *     Liste des identifiants séparés par des virgules,
 645  *     incluant les rubriques transmises et toutes leurs parentées
 646  */
 647 function calcul_hierarchie_in($id, $tout = true) {
 648         $calcul_hierarchie_in = charger_fonction('calcul_hierarchie_in', 'inc');
 649
 650         return $calcul_hierarchie_in($id, $tout);
 651 }
 652
 653
 654 /**
 655  * Calcul d'une branche de rubriques
 656  *
 657  * Liste des id_rubrique contenues dans une rubrique donnée
 658  * pour le critere {branche}
 659  *
 660  * Fonction surchargeable pour optimisation
 661  *
 662  * @see inc_calcul_hierarchie_in_dist() pour la hierarchie
 663  *
 664  * @param string|int|array $id
 665  *     Identifiant de la, ou des rubriques noeuds
 666  * @return string
 667  *     Liste des identifiants séparés par des virgules,
 668  *     incluant les rubriques noeuds et toutes leurs descendances
 669  */
 670 function inc_calcul_branche_in_dist($id) {
 671         static $b = array();
 672
 673         // normaliser $id qui a pu arriver comme un array, comme un entier, ou comme une chaine NN,NN,NN
 674         if (!is_array($id)) {
 675                 $id = explode(',', $id);
 676         }
 677         $id = join(',', array_map('intval', $id));
 678         if (isset($b[$id])) {
 679                 return $b[$id];
 680         }
 681
 682         // Notre branche commence par la rubrique de depart
 683         $branche = $r = $id;
 684
 685         // On ajoute une generation (les filles de la generation precedente)
 686         // jusqu'a epuisement, en se protegeant des references circulaires
 687         $maxiter = 10000;
 688         while ($maxiter-- and $filles = sql_allfetsel(
 689                         'id_rubrique',
 690                         'spip_rubriques',
 691                         sql_in('id_parent', $r) . " AND " . sql_in('id_rubrique', $r, 'NOT')
 692                 )) {
 693                 $r = join(',', array_map('reset', $filles));
 694                 $branche .= ',' . $r;
 695         }
 696
 697         # securite pour ne pas plomber la conso memoire sur les sites prolifiques
 698         if (strlen($branche) < 10000) {
 699                 $b[$id] = $branche;
 700         }
 701
 702         return $branche;
 703 }
 704
 705
 706 /**
 707  * Calcul d'une hiérarchie
 708  *
 709  * Liste des id_rubrique contenant une rubrique donnée,
 710  * contrairement à la fonction calcul_branche_in() qui calcule les
 711  * rubriques contenues
 712  *
 713  * @see inc_calcul_branche_in_dist() pour la descendence
 714  *
 715  * @param string|int|array $id
 716  *     Identifiant de la, ou des rubriques dont on veut obtenir les hierarchies
 717  * @param bool $tout
 718  *     inclure la rubrique de depart dans la hierarchie ou non
 719  * @return string
 720  *     Liste des identifiants séparés par des virgules,
 721  *     incluant les rubriques transmises et toutes leurs parentées
 722  */
 723 function inc_calcul_hierarchie_in_dist($id, $tout = true) {
 724         static $b = array();
 725
 726         // normaliser $id qui a pu arriver comme un array, comme un entier, ou comme une chaine NN,NN,NN
 727         if (!is_array($id)) {
 728                 $id = explode(',', $id);
 729         }
 730         $id = join(',', array_map('intval', $id));
 731
 732         if (isset($b[$id])) {
 733                 // Notre branche commence par la rubrique de depart si $tout=true
 734                 return $tout ? (strlen($b[$id]) ? $b[$id] . ",$id" : $id) : $b[$id];
 735         }
 736
 737         $hier = "";
 738
 739         // On ajoute une generation (les filles de la generation precedente)
 740         // jusqu'a epuisement, en se protegeant des references circulaires
 741         $ids_nouveaux_parents = $id;
 742         $maxiter = 10000;
 743         while ($maxiter-- and $parents = sql_allfetsel(
 744                         'id_parent',
 745                         'spip_rubriques',
 746                         sql_in('id_rubrique', $ids_nouveaux_parents) . " AND " . sql_in('id_parent', $hier, 'NOT')
 747                 )) {
 748                 $ids_nouveaux_parents = join(',', array_map('reset', $parents));
 749                 $hier = $ids_nouveaux_parents . (strlen($hier) ? ',' . $hier : '');
 750         }
 751
 752         # securite pour ne pas plomber la conso memoire sur les sites prolifiques
 753         if (strlen($hier) < 10000) {
 754                 $b[$id] = $hier;
 755         }
 756
 757         // Notre branche commence par la rubrique de depart si $tout=true
 758         $hier = $tout ? (strlen($hier) ? "$hier,$id" : $id) : $hier;
 759
 760         return $hier;
 761 }
 762
 763
 764 /**
 765  * Calcule la date du prochain article post-daté
 766  *
 767  * Appelée lorsqu'un (ou plusieurs) article post-daté arrive à terme
 768  * ou est redaté
 769  *
 770  * @uses publier_branche_rubrique()
 771  * @pipeline_appel trig_calculer_prochain_postdate
 772  *
 773  * @param bool $check
 774  *     true pour affecter le statut des rubriques concernées.
 775  * @return void
 776  **/
 777 function calculer_prochain_postdate($check = false) {
 778         include_spip('base/abstract_sql');
 779         if ($check) {
 780                 $postdates = ($GLOBALS['meta']["post_dates"] == "non") ?
 781                         "AND A.date <= " . sql_quote(date('Y-m-d H:i:s')) : '';
 782
 783                 $r = sql_select("DISTINCT A.id_rubrique AS id",
 784                         "spip_articles AS A LEFT JOIN spip_rubriques AS R ON A.id_rubrique=R.id_rubrique",
 785                         "R.statut != 'publie' AND A.statut='publie'$postdates");
 786                 while ($row = sql_fetch($r)) {
 787                         publier_branche_rubrique($row['id']);
 788                 }
 789
 790                 pipeline('trig_calculer_prochain_postdate', '');
 791         }
 792
 793         $t = sql_fetsel("date", "spip_articles", "statut='publie' AND date > " . sql_quote(date('Y-m-d H:i:s')), "", "date",
 794                 "1");
 795
 796         if ($t) {
 797                 $t = $t['date'];
 798                 if (!isset($GLOBALS['meta']['date_prochain_postdate'])
 799                         or $t <> $GLOBALS['meta']['date_prochain_postdate']
 800                 ) {
 801                         ecrire_meta('date_prochain_postdate', strtotime($t));
 802                         ecrire_meta('derniere_modif', time());
 803                 }
 804         } else {
 805                 effacer_meta('date_prochain_postdate');
 806                 ecrire_meta('derniere_modif', time());
 807         }
 808
 809         spip_log("prochain postdate: $t");
 810 }
 811
 812 /**
 813  * Crée une arborescence de rubrique
 814  *
 815  * creer_rubrique_nommee('truc/machin/chose') va créer
 816  * une rubrique truc, une sous-rubrique machin, et une sous-sous-rubrique
 817  * chose, sans créer de rubrique si elle existe déjà
 818  * à partir de $id_parent (par défaut, à partir de la racine)
 819  *
 820  * NB: cette fonction est très pratique, mais pas utilisée dans le core
 821  * pour rester légère elle n'appelle pas calculer_rubriques()
 822  *
 823  * @param string $titre
 824  *     Titre des rubriques, séparés par des /
 825  * @param int $id_parent
 826  *     Identifiant de la rubrique parente
 827  * @param string $serveur
 828  *     Nom du connecteur à la base de données
 829  * @return int
 830  *     Identifiant de la rubrique la plus profonde.
 831  */
 832 function creer_rubrique_nommee($titre, $id_parent = 0, $serveur = '') {
 833
 834         // eclater l'arborescence demandee
 835         // echapper les </multi> et autres balises fermantes html
 836         $titre = preg_replace(",</([a-z][^>]*)>,ims", "<@\\1>", $titre);
 837         $arbo = explode('/', preg_replace(',^/,', '', $titre));
 838         include_spip('base/abstract_sql');
 839         foreach ($arbo as $titre) {
 840                 // retablir les </multi> et autres balises fermantes html
 841                 $titre = preg_replace(",<@([a-z][^>]*)>,ims", "</\\1>", $titre);
 842                 $r = sql_getfetsel("id_rubrique", "spip_rubriques",
 843                         "titre = " . sql_quote($titre) . " AND id_parent=" . intval($id_parent),
 844                         $groupby = array(), $orderby = array(), $limit = '', $having = array(), $serveur);
 845                 if ($r !== null) {
 846                         $id_parent = $r;
 847                 } else {
 848                         $id_rubrique = sql_insertq('spip_rubriques', array(
 849                                         'titre' => $titre,
 850                                         'id_parent' => $id_parent,
 851                                         'statut' => 'prepa'
 852                                 ), $desc = array(), $serveur);
 853                         if ($id_parent > 0) {
 854                                 $data = sql_fetsel("id_secteur,lang", "spip_rubriques", "id_rubrique=$id_parent",
 855                                         $groupby = array(), $orderby = array(), $limit = '', $having = array(), $serveur);
 856                                 $id_secteur = $data['id_secteur'];
 857                                 $lang = $data['lang'];
 858                         } else {
 859                                 $id_secteur = $id_rubrique;
 860                                 $lang = $GLOBALS['meta']['langue_site'];
 861                         }
 862
 863                         sql_updateq('spip_rubriques', array('id_secteur' => $id_secteur, "lang" => $lang),
 864                                 "id_rubrique=" . intval($id_rubrique), $desc = '', $serveur);
 865
 866                         // pour la recursion
 867                         $id_parent = $id_rubrique;
 868                 }
 869         }
 870
 871         return intval($id_parent);
 872 }