3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2011 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
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 \***************************************************************************/
14 if (!defined('_ECRIRE_INC_VERSION')) return;
16 // Inserer la feuille de style selon les normes, dans le <head>
18 // Feuilles de style admin : d'abord la CSS officielle, puis la perso
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',
27 return strlen($regs[1]);
32 if (!function_exists('stripos')) {
33 // http://doc.spip.org/@stripos
34 function stripos($botte, $aiguille) {
35 if (preg_match('@^(.*)' . preg_quote($aiguille, '@') . '@isU',
37 return strlen($regs[1]);
43 // http://doc.spip.org/@affiche_boutons_admin
44 function affiche_boutons_admin($contenu) {
45 include_spip('inc/filtres');
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";
54 ($pos = stripos($contenu, '</head>'))
55 ||
($pos = stripos($contenu, '<body>'))
57 $contenu = substr_replace($contenu, $css, $pos, 0);
60 // Inserer la balise #FORMULAIRE_ADMIN, en float
61 $boutons_admin = inclure_balise_dynamique(
62 balise_FORMULAIRE_ADMIN_dyn('spip-admin-float'),
65 ($pos = strripos($contenu, '</body>'))
66 ||
($pos = strripos($contenu, '</html>'))
67 ||
($pos = strlen($contenu));
68 $contenu = substr_replace($contenu, $boutons_admin, $pos, 0);