[Sommaire] [Imprimer]

   1  <?php
   2  
   3  /***************************************************************************\
   4   *  SPIP, Systeme de publication pour l'internet                           *
   5   *                                                                         *
   6   *  Copyright (c) 2001-2007                                                *
   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   // Ce fichier calcule une page en executant un squelette.
  17  //
  18  
  19  include_spip('base/abstract_sql');
  20  include_spip('inc/lang');
  21  
  22  // NB: Ce fichier peut initialiser $dossier_squelettes (old-style)
  23  // donc il faut l'inclure "en globals"
  24  if ($f = find_in_path('mes_fonctions.php')
  25  OR $f = find_in_path('mes_fonctions.php3')) {
  26      global $dossier_squelettes;
  27      @include ($f); 
  28  }
  29  if (@is_readable(_DIR_TMP."charger_plugins_fonctions.php")){
  30      // chargement optimise precompile
  31      include_once(_DIR_TMP."charger_plugins_fonctions.php");
  32  }
  33  
  34  charger_generer_url(); # pour recuperer_parametres_url
  35  
  36  //
  37  // Contexte : lors du calcul d'une page spip etablit le contexte a partir
  38  // des variables $_GET et $_POST, et leur ajoute la date
  39  // Note : pour hacker le contexte depuis le fichier d'appel (page.php),
  40  // il est recommande de modifier $_GET['toto'] (meme si la page est
  41  // appelee avec la methode POST).
  42  //
  43  // http://doc.spip.org/@calculer_contexte
  44  function calculer_contexte() {
  45      global $_GET, $_POST;
  46  
  47      $contexte = array();
  48      foreach($_GET as $var => $val) {
  49          if (strpos($var, 'var_') !== 0)
  50              $contexte[$var] = $val;
  51      }
  52      foreach($_POST as $var => $val) {
  53          if (strpos($var, 'var_') !== 0)
  54              $contexte[$var] = $val;
  55      }
  56  
  57      if (isset($GLOBALS['date']))
  58          $contexte['date'] = $contexte['date_redac'] = normaliser_date($GLOBALS['date']);
  59      else
  60          $contexte['date'] = $contexte['date_redac'] = date("Y-m-d H:i:s");
  61  
  62      return $contexte;
  63  }
  64  
  65  // http://doc.spip.org/@analyse_resultat_skel
  66  function analyse_resultat_skel($nom, $cache, $corps) {
  67      $headers = array();
  68  
  69      // Recupere les < ?php header('Xx: y'); ? > pour $page['headers']
  70      // note: on essaie d'attrapper aussi certains de ces entetes codes
  71      // "a la main" dans les squelettes, mais evidemment sans exhaustivite
  72      if (preg_match_all(
  73      '/(<[?]php\s+)@?header\s*\(\s*.([^:]*):\s*([^)]*)[^)]\s*\)\s*[;]?\s*[?]>/ims',
  74      $corps, $regs, PREG_SET_ORDER))
  75      foreach ($regs as $r) {
  76          $corps = str_replace($r[0], '', $corps);
  77          # $j = Content-Type, et pas content-TYPE.
  78          $j = join('-', array_map('ucwords', explode('-', strtolower($r[2]))));
  79          $headers[$j] = $r[3];
  80      }
  81  
  82      return array('texte' => $corps,
  83          'squelette' => $nom,
  84          'process_ins' => ((strpos($corps,'<'.'?')=== false)?'html':'php'),
  85          'invalideurs' => $cache,
  86          'entetes' => $headers,
  87          'duree' => isset($headers['X-Spip-Cache']) ? intval($headers['X-Spip-Cache']) : 0 
  88      );
  89  }
  90  
  91  // Calcul de la rubrique associee a la requete
  92  // (selection de squelette specifique par id_rubrique & lang)
  93  
  94  // http://doc.spip.org/@sql_rubrique_fond
  95  function sql_rubrique_fond($contexte) {
  96  
  97      if (isset($contexte['id_rubrique'])) {
  98          $id = intval($contexte['id_rubrique']);
  99          $row = spip_abstract_fetsel(array('lang'),
 100                          array('spip_rubriques'),
 101                          array("id_rubrique=$id"));
 102          if ($row['lang'])
 103              $lang = $row['lang'];
 104          return array ($id, $lang);
 105      }
 106  
 107      if (isset($contexte['id_breve'])) {
 108          $id = intval($contexte['id_breve']);
 109          $row = spip_abstract_fetsel(array('id_rubrique', 'lang'),
 110              array('spip_breves'), 
 111              array("id_breve=$id"));
 112          $id_rubrique_fond = $row['id_rubrique'];
 113          if ($row['lang'])
 114              $lang = $row['lang'];
 115          return array($id_rubrique_fond, $lang);
 116      }
 117  
 118      if (isset($contexte['id_syndic'])) {
 119          $id = intval($contexte['id_syndic']);
 120          $row = spip_abstract_fetsel(array('id_rubrique'),
 121              array('spip_syndic'),
 122              array("id_syndic=$id"));
 123          $id_rubrique_fond = $row['id_rubrique'];
 124          $row = spip_abstract_fetsel(array('lang'),
 125              array('spip_rubriques'),
 126              array("id_rubrique='$id_rubrique_fond'"));
 127          if ($row['lang'])
 128              $lang = $row['lang'];
 129          return array($id_rubrique_fond, $lang);
 130      }
 131  
 132      if (isset($contexte['id_article'])) {
 133          $id = intval($contexte['id_article']);
 134          $row = spip_abstract_fetsel(array('id_rubrique', 'lang'),
 135              array('spip_articles'),
 136              array("id_article=$id"));
 137          $id_rubrique_fond = $row['id_rubrique'];
 138          if ($row['lang'])
 139              $lang = $row['lang'];
 140          return array($id_rubrique_fond, $lang);
 141      }
 142  }
 143  
 144  # retourne le chapeau d'un article, et seulement s'il est publie
 145  
 146  // http://doc.spip.org/@sql_chapo
 147  function sql_chapo($id_article) {
 148      $chapo= spip_abstract_fetsel(array('chapo'),
 149          array('spip_articles'),
 150          array("id_article=".intval($id_article),
 151          "statut='publie'"));
 152      return $chapo['chapo'];
 153  }
 154  
 155  # retourne le parent d'une rubrique
 156  
 157  // http://doc.spip.org/@sql_parent
 158  function sql_parent($id_rubrique) {
 159      if (!$id_rubrique = intval($id_rubrique))
 160          return 0;
 161  
 162      $id_parent = spip_abstract_fetsel(array('id_parent'),
 163          array('spip_rubriques'), 
 164          array("id_rubrique=" . $id_rubrique));
 165  
 166      if ($id_parent['id_parent']!=$id_rubrique)
 167          return intval($id_parent['id_parent']);
 168      else
 169          spip_log("erreur: la rubrique $id_rubrique est son propre parent");
 170  }
 171  
 172  # retourne la profondeur d'une rubrique
 173  
 174  // http://doc.spip.org/@sql_profondeur
 175  function sql_profondeur($id) {
 176      $n = 0;
 177      while ($id) {
 178          $n++;
 179          $id = sql_parent($id);
 180      }
 181      return $n;
 182  }
 183  
 184  # retourne la rubrique d'un article
 185  
 186  // http://doc.spip.org/@sql_rubrique
 187  function sql_rubrique($id_article) {
 188      $id_rubrique = spip_abstract_fetsel(array('id_rubrique'),
 189              array('spip_articles'),
 190              array("id_article=" . intval($id_article)));
 191      return $id_rubrique['id_rubrique'];
 192  }
 193  
 194  // http://doc.spip.org/@sql_petitions
 195  function sql_petitions($id_article, $table, $id_boucle, $serveur, &$cache) {
 196      $retour = spip_abstract_fetsel(
 197          array('texte'),
 198          array('spip_petitions'),
 199          array("id_article=".intval($id_article)),
 200          '',array(),'','','', 
 201          $table, $id_boucle, $serveur);
 202  
 203      if (!$retour) return '';
 204      # cette page est invalidee par toute petition
 205      $cache['varia']['pet'.$id_article] = 1;
 206      # ne pas retourner '' car le texte sert aussi de presence
 207      return ($retour['texte'] ? $retour['texte'] : ' ');
 208  }
 209  
 210  # retourne le champ 'accepter_forum' d'un article
 211  // http://doc.spip.org/@sql_accepter_forum
 212  function sql_accepter_forum($id_article) {
 213      static $cache = array();
 214  
 215      if (!$id_article) return;
 216  
 217      if (!isset($cache[$id_article])) {
 218          $row = spip_abstract_fetsel(array('accepter_forum'),
 219              array('spip_articles'),
 220              array("id_article=".intval($id_article)));
 221          $cache[$id_article] = $row['accepter_forum'];
 222      }
 223  
 224      return $cache[$id_article];
 225  }
 226  
 227  # Determine les parametres d'URL (hors réécriture) et consorts
 228  # En deduit un contexte disant si la page est une redirection ou 
 229  # exige un squelette deductible de $fond et du contexte linguistique.
 230  # Applique alors le squelette sur le contexte et le nom du cache.
 231  # Retourne un tableau ainsi construit
 232  # 'texte' => la page calculee
 233  # 'process_ins' => 'html' ou 'php' si presence d'un '< ?php'
 234  # 'invalideurs' => les invalideurs de ce cache
 235  # 'entetes' => headers http
 236  # 'duree' => duree de vie du cache
 237  # 'signal' => contexte (les id_* globales)
 238  
 239  # En cas d'erreur process_ins est absent et texte est un tableau de 2 chaines
 240  
 241  // http://doc.spip.org/@public_parametrer_dist
 242  function public_parametrer_dist($fond, $local='', $cache='')  {
 243      // verifier que la fonction assembler est bien chargee (cf. #608)
 244      $assembler = charger_fonction('assembler', 'public');
 245  
 246      // distinguer le premier appel des appels par inclusion
 247      if (!is_array($local)) {
 248          global $contexte;
 249          // ATTENTION, gestion des URLs personnalises (propre etc):
 250          // 1. $contexte est global car cette fonction le modifie.
 251          // 2. $fond est passe par reference, pour la meme raison
 252          // Bref,  les URL dites propres ont une implementation sale.
 253          // Interdit de nettoyer, faut assumer l'histoire.
 254          include_spip('inc/filtres'); // pour normaliser_date
 255          $contexte = calculer_contexte();
 256          if (function_exists("recuperer_parametres_url")) {
 257              recuperer_parametres_url($fond, nettoyer_uri());
 258              // remettre les globales (bouton "Modifier cet article" etc)
 259              foreach ($contexte as $var=>$val) {
 260                  if (substr($var,0,3) == 'id_') $GLOBALS[$var] = $val;
 261              }
 262          }
 263          $local = $contexte;
 264  
 265          // si le champ chapo commence par '=' c'est une redirection.
 266          // avec un eventuel raccourci Spip
 267          // si le raccourci a un titre il sera pris comme corps du 302
 268          if ($fond == 'article'
 269          AND $id_article = intval($local['id_article'])) {
 270              $m = sql_chapo($id_article);
 271              if ($m[0]=='=') {
 272                  include_spip('inc/texte');
 273                  // les navigateurs pataugent si l'URL est vide
 274                  if ($m = chapo_redirige(substr($m,1)))
 275                      if ($url = calculer_url($m[3]))
 276                      return array('texte' => "<"
 277                  . "?php header('Location: "
 278                  . texte_script(str_replace('&amp;', '&', $url))
 279                  . "'); echo '"
 280                  .  addslashes($m[1])
 281                  . "'?" . ">",
 282                      'process_ins' => 'php');
 283              }
 284          }
 285      }
 286  
 287      // Choisir entre $fond-dist.html, $fond=7.html, etc?
 288      $id_rubrique_fond = 0;
 289      // Chercher le fond qui va servir de squelette
 290      if ($r = sql_rubrique_fond($local))
 291          list($id_rubrique_fond, $lang) = $r;
 292  
 293      // Si inc-urls ou un appel dynamique veut fixer la langue, la recuperer
 294      if (isset($local['lang']))
 295          $lang = $local['lang'];
 296  
 297      if (!isset($lang))
 298          $lang = $GLOBALS['meta']['langue_site'];
 299  
 300      $lang_select = false;
 301      if (!$GLOBALS['forcer_lang']
 302      AND $lang <> $GLOBALS['spip_lang']
 303      ) {
 304          lang_select($lang);
 305          $lang_select = true;
 306      }
 307  
 308      $styliser = charger_fonction('styliser', 'public');
 309      list($skel,$mime_type, $gram, $sourcefile) =
 310          $styliser($fond, $id_rubrique_fond, $GLOBALS['spip_lang']);
 311  
 312      // Charger le squelette en specifiant les langages cibles et source
 313      // au cas il faudrait le compiler (source posterieure au resultat)
 314      // et appliquer sa fonction principale sur le contexte.
 315      // Passer le nom du cache pour produire sa destruction automatique
 316  
 317      $composer = charger_fonction('composer', 'public');
 318  
 319      if ($fonc = $composer($skel, $mime_type, $gram, $sourcefile)){
 320          spip_timer($a = 'calcul page '.rand(0,1000));
 321          $page = $fonc(array('cache' => $cache), array($local));
 322  
 323          // spip_log: un joli contexte
 324          $info = array();
 325          foreach($local as $var => $val)
 326              if($val)
 327                  $info[] = "$var='$val'";
 328          spip_log("calcul ("
 329              .spip_timer($a)
 330              .") [$skel] "
 331              . join(', ',$info)
 332              .' ('.strlen($page['texte']).' octets)'
 333          );
 334  
 335          // Si #CACHE{} n'etait pas la, le mettre a $delais
 336          if (!isset($page['entetes']['X-Spip-Cache']))
 337              $page['entetes']['X-Spip-Cache'] = $GLOBALS['delais'];
 338  
 339      } else
 340          $page = array();
 341  
 342      if ($GLOBALS['var_mode'] == 'debug') {
 343          include_spip('public/debug');
 344          debug_dumpfile (strlen($page['texte'])?$page['texte']:" ", $fonc, 'resultat');
 345      }
 346      $page['contexte'] = $local;
 347  
 348      if ($lang_select)
 349          lang_dselect();
 350  
 351      return $page;
 352  }
 353  
 354  ?>