www/ecrire/public/admin.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
  14 if (!defined('_ECRIRE_INC_VERSION')) return;
  15
  16 // Inserer la feuille de style selon les normes, dans le <head>
  17 // puis les boutons
  18 // Feuilles de style admin : d'abord la CSS officielle, puis la perso
  19
  20
  21 // Compatibilite : on utilise stripos/strripos() qui n'existent pas en php4
  22 if (!function_exists('strripos')) {
  23 // http://doc.spip.org/@strripos
  24         function strripos($botte, $aiguille) {
  25                 if (preg_match('@^(.*)' . preg_quote($aiguille, '@') . '@is',
  26                 $botte, $regs)) {
  27                         return strlen($regs[1]);
  28                 }
  29                 return false;
  30         }
  31 }
  32 if (!function_exists('stripos')) {
  33 // http://doc.spip.org/@stripos
  34         function stripos($botte, $aiguille) {
  35                 if (preg_match('@^(.*)' . preg_quote($aiguille, '@') . '@isU',
  36                 $botte, $regs)) {
  37                         return strlen($regs[1]);
  38                 }
  39                 return false;
  40         }
  41 }
  42
  43 // http://doc.spip.org/@affiche_boutons_admin
  44 function affiche_boutons_admin($contenu) {
  45         include_spip('inc/filtres');
  46
  47         // Inserer le css d'admin
  48         $css = "<link rel='stylesheet' href='".url_absolue(find_in_path('spip_admin.css'))
  49         . "' type='text/css' />\n";
  50         if ($f = find_in_path('spip_admin_perso.css'))
  51                 $css .= "<link rel='stylesheet' href='"
  52                 . url_absolue($f) . "' type='text/css' />\n";
  53
  54         ($pos = stripos($contenu, '</head>'))
  55             || ($pos = stripos($contenu, '<body>'))
  56             || ($pos = 0);
  57         $contenu = substr_replace($contenu, $css, $pos, 0);
  58
  59
  60         // Inserer la balise #FORMULAIRE_ADMIN, en float
  61         $boutons_admin = inclure_balise_dynamique(
  62                 balise_FORMULAIRE_ADMIN_dyn('spip-admin-float'),
  63         false);
  64
  65         ($pos = strripos($contenu, '</body>'))
  66             || ($pos = strripos($contenu, '</html>'))
  67             || ($pos = strlen($contenu));
  68         $contenu = substr_replace($contenu, $boutons_admin, $pos, 0);
  69
  70
  71         return $contenu;
  72 }
  73
  74 ?>