3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2007 *
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 // Inserer la feuille de style selon les normes, dans le <head>
16 // Feuilles de style admin : d'abord la CSS officielle, puis la perso
19 // Compatibilite : on utilise stripos/strripos() qui n'existent pas en php4
20 if (!function_exists('strripos')) {
21 // http://doc.spip.org/@strripos
22 function strripos($botte, $aiguille) {
23 if (preg_match('@^(.*)' . preg_quote($aiguille, '@') . '@is',
25 return strlen($regs[1]);
30 if (!function_exists('stripos')) {
31 // http://doc.spip.org/@stripos
32 function stripos($botte, $aiguille) {
33 if (preg_match('@^(.*)' . preg_quote($aiguille, '@') . '@isU',
35 return strlen($regs[1]);
41 // http://doc.spip.org/@affiche_boutons_admin
42 function affiche_boutons_admin($contenu) {
43 include_spip('inc/filtres');
45 // Inserer le css d'admin
46 $css = "<link rel='stylesheet' href='".url_absolue(find_in_path('spip_admin.css'))
47 . "' type='text/css' />\n";
48 if ($f = find_in_path('spip_admin_perso.css'))
49 $css .= "<link rel='stylesheet' href='"
50 . url_absolue($f) . "' type='text/css' />\n";
52 ($pos = stripos($contenu, '</head>'))
53 ||
($pos = stripos($contenu, '<body>'))
55 $contenu = substr_replace($contenu, $css, $pos, 0);
58 // Inserer la balise #FORMULAIRE_ADMIN, en float
59 $boutons_admin = inclure_balise_dynamique(
60 balise_FORMULAIRE_ADMIN_dyn('spip-admin-float'),
63 ($pos = strripos($contenu, '</body>'))
64 ||
($pos = strripos($contenu, '</html>'))
65 ||
($pos = strlen($contenu));
66 $contenu = substr_replace($contenu, $boutons_admin, $pos, 0);