486 lines
13 KiB
PHP
486 lines
13 KiB
PHP
<?php
|
||
/**
|
||
* Crayons
|
||
* plugin for spip
|
||
* (c) Fil, toggg 2006-2019
|
||
* licence GPL
|
||
*
|
||
* @package SPIP\Crayons\Fonctions
|
||
*/
|
||
|
||
if (!defined('_ECRIRE_INC_VERSION')) {
|
||
return;
|
||
}
|
||
|
||
if (!defined('_DEBUG_CRAYONS')) {
|
||
/**
|
||
* Débuguer les crayons
|
||
*
|
||
* Mettre a true dans mes_options pour avoir les crayons non compresses
|
||
*/
|
||
define('_DEBUG_CRAYONS', false);
|
||
}
|
||
|
||
$GLOBALS['marqueur_skel'] = (isset($GLOBALS['marqueur_skel']) ? $GLOBALS['marqueur_skel'] : '') . ':crayons';
|
||
|
||
/**
|
||
* Dire rapidement si ca vaut le coup de chercher des droits
|
||
*
|
||
* @return bool
|
||
**/
|
||
function analyse_droits_rapide_dist() {
|
||
return isset($GLOBALS['auteur_session']['statut']);
|
||
}
|
||
|
||
/**
|
||
* Vérifier si un exec du privé est crayonnable
|
||
*
|
||
* @param string $exec
|
||
*
|
||
* @return bool
|
||
**/
|
||
function test_exec_crayonnable($exec) {
|
||
if ($exec_autorise = lire_config('crayons/exec_autorise')) {
|
||
$execs = explode(',', $exec_autorise);
|
||
foreach ($execs as $key => $value) {
|
||
$execs[$key] = trim($value);
|
||
}
|
||
if ($exec_autorise == '*' || in_array($exec, $execs)) {
|
||
return true;
|
||
}
|
||
}
|
||
|
||
return false;
|
||
}
|
||
|
||
/**
|
||
* Ajouter la gestion des crayons dans l'espace privé
|
||
*
|
||
* @pipeline header_prive
|
||
* @uses Crayons_preparer_page()
|
||
*
|
||
* @param string $head
|
||
* Contenu du header
|
||
* @return string
|
||
* Contenu du header
|
||
**/
|
||
function Crayons_insert_head($head) {
|
||
// verifie la presence d'une meta crayons, si c'est vide
|
||
// on ne cherche meme pas a traiter l'espace prive
|
||
if (empty($GLOBALS['meta']['crayons'])) {
|
||
return $head;
|
||
}
|
||
$config_espace_prive = @unserialize($GLOBALS['meta']['crayons']);
|
||
if (empty($config_espace_prive)) {
|
||
return $head;
|
||
}
|
||
|
||
// verifie que l'edition de l'espace prive est autorisee
|
||
if (isset($config_espace_prive['espaceprive']) and $config_espace_prive['espaceprive'] == 'on') {
|
||
// determine les pages (exec) crayonnables
|
||
if (test_exec_crayonnable(_request('exec'))) {
|
||
// Calcul des droits
|
||
include_spip('inc/crayons');
|
||
$head = Crayons_preparer_page($head, '*', wdgcfg(), 'head');
|
||
}
|
||
}
|
||
|
||
// retourne l'entete modifiee
|
||
return $head;
|
||
}
|
||
|
||
/**
|
||
* Ajouter la gestion des crayons dans l'espace public
|
||
*
|
||
* @pipeline affichage_final
|
||
* @uses analyse_droits_rapide_dist()
|
||
* @uses Crayons_preparer_page()
|
||
* @note
|
||
* Le pipeline affichage_final est executé à chaque hit sur toute la page
|
||
*
|
||
* @param string $page
|
||
* Contenu de la page à envoyer au navigateur
|
||
* @return string
|
||
* Contenu de la page à envoyer au navigateur
|
||
**/
|
||
function Crayons_affichage_final($page) {
|
||
|
||
// ne pas se fatiguer si le visiteur n'a aucun droit
|
||
if (!(function_exists('analyse_droits_rapide')?analyse_droits_rapide():analyse_droits_rapide_dist())) {
|
||
return $page;
|
||
}
|
||
|
||
// sinon regarder rapidement si la page a des classes crayon
|
||
if (strpos($page, 'crayon')===false) {
|
||
return $page;
|
||
}
|
||
|
||
// voir un peu plus precisement lesquelles
|
||
include_spip('inc/crayons');
|
||
if (!preg_match_all(_PREG_CRAYON, $page, $regs, PREG_SET_ORDER)) {
|
||
return $page;
|
||
}
|
||
|
||
$wdgcfg = wdgcfg();
|
||
|
||
// calculer les droits sur ces crayons
|
||
include_spip('inc/autoriser');
|
||
$droits = array();
|
||
$droits_accordes = 0;
|
||
foreach ($regs as $reg) {
|
||
list(,$crayon,$type,$champ,$id) = $reg;
|
||
if (_DEBUG_CRAYONS) {
|
||
spip_log("autoriser('modifier', $type, $id, NULL, array('champ'=>$champ))", 'crayons_distant');
|
||
}
|
||
if (autoriser('modifier', $type, $id, null, array('champ'=>$champ))) {
|
||
if (!isset($droits['.' . $crayon])) {
|
||
$droits['.' . $crayon] = 0;
|
||
}
|
||
$droits['.' . $crayon]++;
|
||
$droits_accordes ++;
|
||
}
|
||
}
|
||
|
||
// et les signaler dans la page
|
||
if ($droits_accordes == count($regs)) { // tous les droits
|
||
$page = Crayons_preparer_page($page, '*', $wdgcfg);
|
||
} elseif ($droits) { // seulement certains droits, preciser lesquels
|
||
$page = Crayons_preparer_page($page, join(',', array_keys($droits)), $wdgcfg);
|
||
}
|
||
|
||
return $page;
|
||
}
|
||
|
||
/**
|
||
* Ajoute les scripts css et js nécessaires aux crayons dans le code HTML
|
||
*
|
||
* @uses crayons_var2js()
|
||
*
|
||
* @param string $page
|
||
* Code HTML de la page complète ou du header seulement
|
||
* @param string $droits
|
||
* - Liste de css définissant les champs crayonnables
|
||
* (séparés par virgule) dont l'édition est autorisée
|
||
* - "*" si tous sont autorisés
|
||
* @param array $wdgcfg
|
||
* Description de la configuration des crayons (attribut => valeur)
|
||
* @param string $mode
|
||
* - page : toute la page est présente dans `$page`
|
||
* - head : seul le header est présent dans `$page`
|
||
* @return
|
||
**/
|
||
function &Crayons_preparer_page(&$page, $droits, $wdgcfg = array(), $mode = 'page') {
|
||
/**
|
||
* Si pas forcer_lang, on charge le contrôleur dans la langue que l'utilisateur a dans le privé
|
||
*/
|
||
if (!isset($GLOBALS['forcer_lang']) or !$GLOBALS['forcer_lang'] or ($GLOBALS['forcer_lang'] === 'non')) {
|
||
if (isset($GLOBALS['auteur_session']) and isset($GLOBALS['auteur_session']['lang'])) {
|
||
lang_select($GLOBALS['auteur_session']['lang']);
|
||
}
|
||
}
|
||
|
||
$jsSkel = find_in_path('crayons.js.html');
|
||
$contexte = array('callback' => 'startCrayons');
|
||
if (_DEBUG_CRAYONS) {
|
||
$contexte['debug_crayons'] = 1;
|
||
}
|
||
$hash = substr(md5($jsSkel . json_encode($contexte)),0,7);
|
||
$jsFile = _DIR_VAR . "crayons-{$hash}.js";
|
||
if (!file_exists($jsFile) or _VAR_MODE === 'recalcul') {
|
||
include_spip('inc/filtres'); // pour produire_fond_statique()
|
||
$jsFondStatique = supprimer_timestamp(produire_fond_statique('crayons.js', $contexte));
|
||
@copy($jsFondStatique, $jsFile);
|
||
}
|
||
$jsFile .= "?" . filemtime($jsFile);
|
||
|
||
$cssFile = find_in_path('css/crayons.css');
|
||
if (lang_dir() === 'rtl') {
|
||
include_spip('inc/filtres'); // pour direction_css()
|
||
$cssFile = direction_css($cssFile, 'rtl');
|
||
}
|
||
$cssFile .= "?" . filemtime($cssFile);
|
||
|
||
$config = crayons_var2js(array(
|
||
'imgPath' => dirname(find_in_path('css/images/crayon.svg')), // ne sert visiblement plus ?
|
||
'droits' => $droits,
|
||
'dir_racine' => _DIR_RACINE,
|
||
'self' => self('&'),
|
||
'txt' => array(
|
||
'error' => _U('crayons:svp_copier_coller'),
|
||
'sauvegarder' => $wdgcfg['msgAbandon'] ? _U('crayons:sauvegarder') : ''
|
||
),
|
||
'img' => array(
|
||
'searching' => array(
|
||
'txt' => _U('crayons:veuillez_patienter')
|
||
),
|
||
'crayon' => array(
|
||
'txt' => _U('crayons:editer')
|
||
),
|
||
'edit' => array(
|
||
'txt' => _U('crayons:editer_tout')
|
||
),
|
||
'img-changed' => array(
|
||
'txt' => _U('crayons:deja_modifie')
|
||
)
|
||
),
|
||
'cfg' => $wdgcfg
|
||
));
|
||
|
||
|
||
// Est-ce que PortePlume est la ?
|
||
$meta_crayon = (isset($GLOBALS['meta']['crayons']) ? unserialize($GLOBALS['meta']['crayons']): array());
|
||
$pp = '';
|
||
if (isset($meta_crayon['barretypo']) && $meta_crayon['barretypo']) {
|
||
if (test_plugin_actif('porte_plume')) {
|
||
$pp = <<<EOF
|
||
cQuery(function() {
|
||
if (typeof onAjaxLoad === 'function' && typeof jQuery.fn.barre_outils === 'function') {
|
||
function barrebouilles_crayons() {jQuery('.formulaire_crayon textarea.crayon-active').barre_outils('edition');}
|
||
onAjaxLoad(barrebouilles_crayons);
|
||
}
|
||
});
|
||
EOF;
|
||
}
|
||
}
|
||
|
||
|
||
$incCSS = "<link rel=\"stylesheet\" href=\"{$cssFile}\" type=\"text/css\" media=\"all\" />";
|
||
$incJS = <<<EOH
|
||
<script type="text/javascript">/* <![CDATA[ */
|
||
var configCrayons;
|
||
function startCrayons() {
|
||
configCrayons = new cQuery.prototype.cfgCrayons({$config});
|
||
cQuery.fn.crayonsstart();
|
||
{$pp}
|
||
}
|
||
var cr = document.createElement('script');
|
||
cr.type = 'text/javascript'; cr.async = true;
|
||
cr.src = '{$jsFile}';
|
||
var s = document.getElementsByTagName('script')[0];
|
||
s.parentNode.insertBefore(cr, s);
|
||
/* ]]> */</script>
|
||
|
||
EOH;
|
||
|
||
if ($mode == 'head') {
|
||
//js inline avant les css, sinon ca bloque le chargement
|
||
$page = $page . $incJS . $incCSS;
|
||
return $page;
|
||
}
|
||
|
||
$pos_head = strpos($page, '</head>');
|
||
if ($pos_head === false) {
|
||
return $page;
|
||
}
|
||
|
||
// js inline avant la premiere css, ou sinon avant la fin du head
|
||
$pos_link = strpos($page, '<link ');
|
||
if (!$pos_link) {
|
||
$pos_link = $pos_head;
|
||
}
|
||
$page = substr_replace($page, $incJS, $pos_link, 0);
|
||
|
||
// css avant la fin du head
|
||
$pos_head = strpos($page, '</head>');
|
||
$page = substr_replace($page, $incCSS, $pos_head, 0);
|
||
|
||
return $page;
|
||
}
|
||
|
||
/**
|
||
* Balise indiquant un champ SQL crayonnable
|
||
*
|
||
* @note
|
||
* Si cette fonction est absente, `balise_EDIT_dist()` déclarée par SPIP
|
||
* ne retourne rien
|
||
*
|
||
* @example
|
||
* ```
|
||
* <div class="#EDIT{texte}">#TEXTE</div>
|
||
* <div class="#EDIT{ps}">#PS</div>
|
||
* ```
|
||
*
|
||
* @param Champ $p
|
||
* Pile au niveau de la balise
|
||
* @return Champ
|
||
* Pile complétée par le code à générer
|
||
**/
|
||
function balise_EDIT($p) {
|
||
|
||
// le code compile de ce qui se trouve entre les {} de la balise
|
||
$label = interprete_argument_balise(1, $p);
|
||
|
||
// Verification si l'on est dans le cas d'une meta
|
||
// #EDIT{meta-descriptif_site} ou #EDIT{meta-demo/truc}
|
||
if (preg_match('/meta-(.*)\'/', $label, $meta)) {
|
||
$type = 'meta';
|
||
$label= 'valeur';
|
||
$primary = $meta[1];
|
||
$p->code = "classe_boucle_crayon('"
|
||
. $type
|
||
."','"
|
||
.$label
|
||
."',"
|
||
. "str_replace('/', '__', '$primary')" # chaque / doit être remplacé pour CSS.
|
||
.").' '";
|
||
$p->interdire_scripts = false;
|
||
return $p;
|
||
}
|
||
|
||
$i_boucle = $p->nom_boucle ? $p->nom_boucle : $p->id_boucle;
|
||
// #EDIT hors boucle? ne rien faire
|
||
if (!isset($p->boucles[$i_boucle]) or !$type = ($p->boucles[$i_boucle]->type_requete)) {
|
||
$p->code = "''";
|
||
$p->interdire_scripts = false;
|
||
return $p;
|
||
}
|
||
|
||
// crayon sur une base distante 'nua__article-intro-5'
|
||
if ($distant = $p->boucles[$i_boucle]->sql_serveur) {
|
||
$type = $distant.'__'.$type;
|
||
}
|
||
|
||
$primary = $p->boucles[$i_boucle]->primary;
|
||
// On rajoute ici un debug dans le cas où aucune clé primaire n'est trouvée.
|
||
// Cela peut se présenter par exemple si on utilise #EDIT{monchamp} directement
|
||
// dans une boucle CONDITION sans faire référence au nom de la boucle d'au dessus.
|
||
if (!$primary) {
|
||
erreur_squelette(_T('crayons:absence_cle_primaire'), $p);
|
||
}
|
||
|
||
$primary = explode(',', $primary);
|
||
$id = array();
|
||
foreach ($primary as $key) {
|
||
$id[] = champ_sql(trim($key), $p);
|
||
}
|
||
$primary = implode(".'-'.", $id);
|
||
|
||
$p->code = "classe_boucle_crayon('"
|
||
. $type
|
||
."',"
|
||
.sinon($label, "''")
|
||
.','
|
||
. $primary
|
||
.").' '";
|
||
$p->interdire_scripts = false;
|
||
return $p;
|
||
}
|
||
|
||
/**
|
||
* Balise indiquant une configuration crayonnable
|
||
*
|
||
* @example
|
||
* ```
|
||
* <div class="#EDIT_CONFIG{descriptif_site}">#DESCRIPTIF_SITE_SPIP</div>
|
||
* <div class="#EDIT_CONFIG{demo/truc}">#CONFIG{demo/truc}</div>
|
||
* ```
|
||
*
|
||
* @param Champ $p
|
||
* Pile au niveau de la balise
|
||
* @return Champ
|
||
* Pile complétée par le code à générer
|
||
**/
|
||
if (!function_exists('balise_EDIT_CONFIG_dist')) {
|
||
function balise_EDIT_CONFIG_dist($p) {
|
||
|
||
// le code compile de ce qui se trouve entre les {} de la balise
|
||
$config = interprete_argument_balise(1, $p);
|
||
if (!$config) {
|
||
return $p;
|
||
}
|
||
|
||
// chaque / du nom de config doit être transformé pour css.
|
||
// nous utiliserons '__' à la place.
|
||
|
||
$type = 'meta';
|
||
$label= 'valeur';
|
||
|
||
$p->code = "classe_boucle_crayon('"
|
||
. $type
|
||
. "','"
|
||
. $label
|
||
. "',"
|
||
. "str_replace('/', '__', $config)"
|
||
. ").' '";
|
||
$p->interdire_scripts = false;
|
||
return $p;
|
||
}
|
||
}
|
||
|
||
/**
|
||
* Crée le controleur du crayon indiqué par la classe CSS
|
||
*
|
||
* @param string $class
|
||
* Class CSS de crayon tel que créé par #EDIT
|
||
* @return string
|
||
* HTML du crayon, sinon texte d'erreur
|
||
**/
|
||
function creer_le_crayon($class) {
|
||
include_spip('inc/crayons');
|
||
include_spip('action/crayons_html');
|
||
$a = affiche_controleur($class, array('w' => 485, 'h' => 300, 'wh' => 500));
|
||
return $a['$erreur'] ? $a['$erreur'] : $a['$html'];
|
||
}
|
||
|
||
/**
|
||
* Balise `#CRAYON` affichant un formulaire de crayon
|
||
*
|
||
* SI `?edit=1;`
|
||
*
|
||
* @example
|
||
* ```
|
||
* #CRAYON{ps}
|
||
* ```
|
||
*
|
||
* @param Champ $p
|
||
* Pile au niveau de la balise
|
||
* @return Champ
|
||
* Pile complétée par le code à générer
|
||
**/
|
||
function balise_CRAYON($p) {
|
||
$p = balise_EDIT($p);
|
||
$p->code = 'creer_le_crayon('.$p->code.')';
|
||
return $p;
|
||
}
|
||
|
||
|
||
/**
|
||
* Donne la classe CSS crayon
|
||
*
|
||
* En fonction :
|
||
* - du type de la boucle
|
||
* (attention aux exceptions pour `#EDIT` dans les boucles HIERARCHIE et SITES)
|
||
* - du champ demande (vide, + ou se terminant par + : (+)classe type--id)
|
||
* - de l'id courant
|
||
*
|
||
* @param string $type
|
||
* Type d'objet, ou "meta" pour un champ de configuration
|
||
* @param string $champ
|
||
* Champ SQL concerné
|
||
* @param int|string $id
|
||
* Identifiant de la ligne sql
|
||
* @return string
|
||
* Classes CSS (à ajouter dans le HTML à destination du javascript de Crayons)
|
||
**/
|
||
function classe_boucle_crayon($type, $champ, $id) {
|
||
// $type = objet_type($type);
|
||
$type = $type[strlen($type) - 1] == 's' ?
|
||
substr($type, 0, -1) :
|
||
str_replace(
|
||
array('hierarchie','syndication'),
|
||
array('rubrique','site'),
|
||
$type
|
||
);
|
||
|
||
$plus = (substr($champ, -1) == '+' and $champ = substr($champ, 0, -1))
|
||
? " $type--$id"
|
||
: '';
|
||
|
||
// test rapide pour verifier que l'id est valide (a-zA-Z0-9)
|
||
if (false !== strpos($id, ' ')) {
|
||
spip_log("L'identifiant ($id) ne pourra être géré ($type | $champ)", 'crayons');
|
||
return 'crayon_id_ingerable';
|
||
}
|
||
|
||
return 'crayon ' . $type . '-' . $champ . '-' . $id . $plus;
|
||
}
|