Your IP : 216.73.216.59
<?php
#-----------------------------------------------------#
# Plugin : Couteau Suisse - Licence : GPL #
# Auteur : Patrice Vanneufville, 2006 #
# Contact : patrice¡.!vanneufville¡@!laposte¡.!net #
# Infos : https://contrib.spip.net/?article2166 #
#-----------------------------------------------------#
if (!defined("_ECRIRE_INC_VERSION"))
return;
//include_spip('inc/actions');
include_spip('inc/actions_compat');
include_spip('inc/texte');
include_spip('inc/layer');
include_spip('inc/presentation');
include_spip('inc/message_select');
define('_VAR_OUTIL', '@@CS_VAR_OUTIL@@');
// initialise une variable et ne retourne rien si !$modif
// sinon, cette fonction retourne le code html qu'il faut pour fabriquer le formulaire de l'outil proprietaire
function description_outil_une_variable($index, &$outil, &$variable, &$label, &$modif) {
global $cs_variables, $metas_vars;
$actif = $outil['actif'];
// la valeur de la variable n'est stockee dans les metas qu'au premier post
$valeur = isset($metas_vars[$variable]) ? $metas_vars[$variable] : cs_get_defaut($variable);
$valeur = cs_retire_guillemets($valeur);
//cs_log(" -- description_outil_une_variable($index) - Traite %$variable% = $valeur");
$cs_variable = &$cs_variables[$variable];
// autorisations de variables
include_spip('inc/autoriser');
$cs_variable['disabled'] = $disab = autoriser('configurer', 'variable', 0, NULL, array(
'nom' => $cs_variable['nom'],
'outil' => $outil
)) ? '' : ' disabled="disabled"';
// si ce n'est qu'une simple initialisation, on sort
if (!$modif)
return '';
$nombre = @$cs_variable['format'] == _format_NOMBRE;
// calcul du commentaire
if ($actif && isset($cs_variable['commentaire']) && strlen($cs_variable['commentaire'])) {
eval('$comment = ' . str_replace('%s', cs_php_format($valeur, !$nombre), $cs_variable['commentaire']) . ';');
if ($comment)
$comment = "<p>$comment</p>";
} else
$comment = '';
// si la variable necessite des boutons radio
if (is_array($radios = &$cs_variable['radio'])) {
if (!$actif) {
$code = strncmp($code = $radios[$valeur], '_', 1) === 0 ? substr($code, 1) : _T($code);
return "<input type=\"hidden\" name=\"$variable\" class=\"cs_hidden_checkbox\" value=\"$code\" />"
. $label . (strlen($valeur) ? ucfirst($code) : ' -') . ' ';
}
$res = "$label <ul>";
$i = 0;
$nb = isset($cs_variable['radio/ligne']) ? intval($cs_variable['radio/ligne']) : 0;
foreach ($radios as $code => $traduc) {
$br = (($nb > 0) && (++$i % $nb == 0)) ? '</ul><ul>' : '';
$traduc = strncmp($traduc, '_', 1) === 0 ? substr($traduc, 1) : _T($traduc);
$res .= "<li><label><input id=\"label_{$variable}_$code\" class=\"cs_input_checkbox\" type=\"radio\""
. ($valeur == $code ? ' checked="checked"' : '') . " value=\"$code\" name=\"$variable\"$disab />"
. ($valeur == $code ? '<b>' : '') . $traduc . ($valeur == $code ? '</b>' : '')
. '</label></li>' . $br;
}
return $res . '</ul>' . $comment . _VAR_OUTIL;
}
// si la variable necessite un select
elseif (is_array($select = &$cs_variable['select'])) {
if (!$actif) {
$code = _T($select[$valeur]);
return "<input type=\"hidden\" name=\"$variable\" class=\"cs_hidden_checkbox\" value=\"$code\" />"
. $label . (strlen($valeur) ? ucfirst($code) : ' -');
}
$res = "$label <select name=\"$variable\"$disab>";
foreach ($select as $code => $traduc) {
$res .= '<option'
. ($valeur == $code ? ' selected="selected"' : '') . " value=\"$code\">"
. _T($traduc) . "</option>";
}
return $res . '</select>' . $comment . _VAR_OUTIL;
}
// ... ou une case a cocher
elseif (isset($cs_variable['check'])) {
if (!$actif)
return $label . _T($cs_variable['check']) . couteauprive_T($valeur ? '2pts_oui' : '2pts_non');
return $label . '<label><input type="checkbox" '
. ($valeur ? ' checked="checked"' : '') . " value=\"1\" name=\"$variable\" $disab/>"
. ($valeur ? '<b>' : '') . _T($cs_variable['check']) . ($valeur ? '</b>' : '') . '</label>'
. $comment . _VAR_OUTIL;
}
// ... ou un textarea ... ou une case input
if (!$actif)
return $label . '<html>' . (strlen($valeur) ? nl2br(echapper_tags($valeur)) : ' ' . couteauprive_T('variable_vide')) . '</html>';
$len = $nombre ? 6 : (isset($cs_variable['taille']) ? $cs_variable['taille'] : 0);
$width = $len ? '' : 'style="width:98.8%;" ';
$lignes = !isset($cs_variable['lignes']) || $nombre ? 0 : strval($cs_variable['lignes']);
return $label . ($lignes < 2
// <html></html> empechera SPIP de modifier le contenu des <input> ou <textarea>
? "<html><input name='$variable' value=\"" . htmlspecialchars($valeur) . "\" type='text' size='$len' $width $disab/></html>"
: "<html><textarea rows='$lignes' name='$variable' $width$disab>" . htmlspecialchars($valeur) . '</textarea></html>'
) . $comment . _VAR_OUTIL;
}
// callback sur les labels de zones input ; format : [[label->qq chose]]
// regexpr : ,\[\[([^][]*)->([^]]*)\]\],msS
function description_outil_input1_callback($matches) {
// pas de label : [[->qq chose]]
if (!strlen($matches[1]))
return "<fieldset><div>$matches[2]</div></fieldset>";
// retour a la ligne : [[-->qq chose]]
if ($matches[1] == '-')
return "<fieldset> <div>$matches[2]</div></fieldset>";
// fusion dans un <li> de boutons radio : [[radio->qq chose]]
elseif ($matches[1] == 'radio')
return "<fusionradio>$matches[2]</li></ul></div></fieldset>";
// format complet : [[label->qq chose]]
return "<fieldset><legend>$matches[1]</legend><div>$matches[2]</div></fieldset>";
}
// callback sur les labels de zones input en utilisant couteauprive_T('label:variable') ; format [[qq chose %variable% qq chose]]
// regexpr : ,\[\[((.*?)%([a-zA-Z_][a-zA-Z0-9_]*)%(.*?))\]\],msS
// ici, renseignement de la globale $cs_input_variable
function description_outil_input2_callback($matches) {
global $cs_input_variable;
$cs_input_variable[] = $matches[3];
return "<fieldset><legend><:label:$matches[3]:></legend><div>$matches[1]</div></fieldset>";
}
function description_outil_langues_callback($matches) {
return _T($matches[1]);
}
function description_outil_liens_callback($matches) {
global $outils;
$nom = isset($outils[$matches[1]]['nom']) ? $outils[$matches[1]]['nom'] : couteauprive_T($matches[1] . ':nom');
if (strpos($nom, '<:') !== false)
$nom = preg_replace_callback(',<:([:a-z0-9_-]+):>,i', 'description_outil_langues_callback', $nom);
return '<a href="' . generer_url_ecrire('admin_couteau_suisse', 'cmd=descrip&outil=' . $matches[1]) . "\" id=\"href_$matches[1]\" onclick=\"javascript:return cs_href_click(this);\">$nom</a>";
}
function description_outil_label_callback($matches) {
global $cs_variables;
return isset($cs_variables[$matches[1]]['label']) ? $cs_variables[$matches[1]]['label'] : couteauprive_T('label:' . $matches[1]);
}
function cs_input_variable_callback($matches) {
$a = ' valeur_' . $matches[1] . '_';
$tmp = str_replace('/', $a, $matches[3]);
return "<div class='groupe_{$matches[1]} $a$tmp'>";
}
// remplacement des liens vers un autre outil
function description_outil_liens($res) {
return strpos($res, '[.->') === false
? $res
: preg_replace_callback(',\[\.->([a-zA-Z_][a-zA-Z0-9_-]*)\],', 'description_outil_liens_callback', $res);
}
function description_outil_callback1($m) {
return couteauprive_T($m[1] . ":description" . $m[2]);
}
function description_outil_callback2($m) {
return _T($m[1]);
}
function description_outil_callback3($m) {
return defined($m[1]) ? constant($m[1]) : (' (' . couteauprive_T('outil_inactif') . ')');
}
// renvoie la description de $outil_ : toutes les %variables% ont ete remplacees par le code adequat
function inc_description_outil_dist($outil_, $url_self, $modif = false) {
global $outils, $cs_variables, $metas_vars;
$outil = &$outils[$outil_];
$actif = $outil['actif'];
$index = $outil['index'];
//cs_log("inc_description_outil_dist() - Parse la description de '$outil_'");
// la description de base est a priori dans le fichier de langue
$descrip = isset($outil['description']) ? $outil['description'] : couteauprive_T($outil['id'] . ':description');
// ajout des variables liees a la barre typo
if (defined('_DIR_PLUGIN_PORTE_PLUME')
&& (isset($outil['pipeline:porte_plume_barre_pre_charger']) || isset($outil['pipeline:porte_plume_cs_pre_charger']) || isset($outil['pipelinecode:porte_plume_barre_pre_charger']) || isset($outil['pipelinecode:porte_plume_cs_pre_charger']))
&& count($barres = cs_pp_liste_barres())) {
$descrip .= "\n\n@puce@ " . couteauprive_T('barres_typo_intro');
$i = 0;
foreach ($barres as $f => $b) {
$nom = "pp_{$b}_$outil[id]";
$descrip .= ($i ? '[[->' : '[[') . "%$nom%]]";
add_variable(array(
'nom' => $nom,
'check' => ($b == 'edition' || $b == 'forum' || $b == 'vide') ? 'couteauprive:barres_typo_' . $b : $f,
'defaut' => 1, // par defaut les boutons seront toujours inseres
'label' => $i++ ? NULL : '@_CS_CHOIX@'
));
}
}
if (strpos($descrip, '<:') !== false) {
if (!isset($outil['perso']))
// lames natives : reconstitution d'une description eventuellement morcelee
// exemple : <:mon_outil:3:> est remplace par couteauprive_T('mon_outil:description3')
$descrip = preg_replace_callback(',<:([a-z_][a-z0-9_-]*):([0-9]*):>,i', 'description_outil_callback1', $descrip);
// chaines de langue personnalisees
$descrip = preg_replace_callback(',<:([:a-z0-9_-]+):>,i', 'description_outil_callback2', $descrip);
}
// envoi de la description en pipeline
# list(,$descrip) = pipeline('init_description_outil', array($outil_, $descrip));
// globale pour la callback description_outil_input2_callback
global $cs_input_variable;
$cs_input_variable = array();
// remplacement des zones input de format [[label->qq chose]]
$descrip = preg_replace_callback(',\[\[([^][]*)->([^]]*)\]\],msS', 'description_outil_input1_callback', $descrip);
// remplacement des zones input de format [[qq chose %variable% qq chose]] en utilisant couteauprive_T('label:variable') comme label
// la fonction description_outil_input2_callback renseigne la globale $cs_input_variable
$descrip = preg_replace_callback(',\[\[((.*?)%([a-zA-Z_][a-zA-Z0-9_]*)%(.*?))\]\],msS', 'description_outil_input2_callback', $descrip);
// initialisation et remplacement des variables de format : %variable%
$t = preg_split(',%([a-zA-Z_][a-zA-Z0-9_]*)%,', $descrip, -1, PREG_SPLIT_DELIM_CAPTURE);
$res = '';
$nb_disabled = $nb_variables = 0;
$variables = array();
for ($i = 0; $i < count($t); $i += 2)
if (isset($t[$i + 1]) && strlen($var = trim($t[$i + 1]))) {
// si la variable est presente on fabrique le input
if (isset($cs_variables[$var])) {
$res .= description_outil_une_variable($index + (++$nb_variables), $outil, $var, $t[$i], $modif);
$variables[] = $var;
if ($cs_variables[$var]['disabled'])
++$nb_disabled;
} else {
// probleme a regler dans config_outils.php !
$temp = $t[$i] . "[$var?]";
$res .= $temp;
}
} else
$res .= $t[$i];
$outil['variables'] = $variables;
$outil['nb_variables'] = $nb_variables;
$outil['nb_disabled'] = $nb_disabled;
// si ce n'est qu'une simple initialisation, on sort
if (!$modif) {
unset($cs_input_variable);
return;
}
// information sur les raccourcis disponibles
if ($a = cs_aide_raccourci($outil_))
$res .= '<p>@puce@ ' . couteauprive_T('detail_raccourcis') . '<br /><html>' . $a . '.</html></p>';
// envoi de la description courante en pipeline
include_spip("cout_define");
$res = pipeline('pre_description_outil', array(
'outil' => $outil_,
'texte' => $res,
'actif' => $actif
));
$res = $res['texte'];
// recherche des blocs <variable></variable> eventuels associes pour du masquage/demasquage
foreach ($cs_input_variable as $v) {
$res = preg_replace_callback(",<($v)\s+valeur=(['\"])(.*?)\\2\s*>,", 'cs_input_variable_callback', $res);
$res = str_replace("</$v>", '</div>', $res);
}
unset($cs_input_variable);
// bouton 'Modifier' : en dessous du texte s'il y a plusieurs variables, a la place de _VAR_OUTIL s'il n'y en a qu'une.
// attention : on ne peut pas modifier les variables si l'outil est inactif
if ($actif) {
// 'exec' remis par precaution en cas d'appel de $_REQUEST (ecran de securite)
$bouton = "<input name='exec' type='hidden' value='" . _request('exec') . "'/><input type='submit' class='fondo' style='margin-left:1em;' value=\"" . ($nb_variables > 1 ? couteauprive_T('modifier_vars_0') : _T('bouton_modifier')) . "\" />";
if ($nb_variables > 1)
$res .= "<div class=\"cs_bouton\">$bouton</div>";
else
$res = str_replace(_VAR_OUTIL, $bouton, $res);
}
$res = "\n<div id='cs_inner_outil-$index' >" . str_replace(array(
'<ul></ul>',
_VAR_OUTIL
), '', $res) . '</div>';
// si des variables sont trouvees ?
if ($nb_variables) {
$variables = urlencode(serialize($variables));
// syntaxe : ajax_action_auteur($action, $id, $script, $args='', $corps=false, $args_ajax='', $fct_ajax='')
$res = ajax_action_auteur('description_outil', $index, $url_self, "modif=oui&cmd=descrip&outil={$outil['id']}", "\n<input type='hidden' value='$variables' name='variables' /><input type='hidden' value='$outil_' name='outil' />" . $res);
}
//cs_log(" FIN : inc_description_outil_dist({$outil['id']}) - {$outil['nb_variables']} variables(s) trouvee(s)");
// remplacement en deux passes des labels en doublon
for ($i = 0; $i < 2; $i++)
if (strpos($res, '<:label:') !== false)
$res = preg_replace_callback(',<:label:([a-zA-Z_][a-zA-Z0-9_-]*):>,', 'description_outil_label_callback', $res);
// remplacement des blocs avec style. ex : <q2>bla bla</q2>
if (strpos($res, '<q') !== false)
$res = preg_replace(',</q(\d)>,', '</div>', preg_replace(',<q(\d)>,', '<div class="q$1">', $res));
// remplacement des inputs successifs sans label : [[%var1%]][[radio->%var2%]] ou [[%var1%]][[-->%var2%]]
$res = preg_replace(',<(br />)?/fieldset><fieldset>( ?<div>),', '$2', $res);
// fusion dans <li> : [[%var1%]][[radio->%var2%]] (var1 doit etre de type radio !)
if (strpos($res, '<fusion') !== false)
$res = str_replace(array(
'</li></ul></div></fieldset><fusionradio>',
'</div></fieldset><fusionradio>'
), '', $res);
// remplacement de diverses constantes
$res = str_replace(array(
'@puce@',
'<spanred>',
'@_CS_CHOIX@',
'@_CS_ASTER@',
'@_DIR_CS_ROOT@',
'@_CS_PLUGIN_JQUERY192@'
), array(
definir_puce(),
'<span style="color:red">',
couteauprive_T('votre_choix'),
'<sup>(*)</sup>',
cs_root_canonicalize(_DIR_PLUGIN_COUTEAU_SUISSE),
defined('_SPIP19300') ? '' : couteauprive_T('detail_jquery3')
), $res);
// remplacement des constantes qui restent de forme @_CS_XXXX@
if (strpos($res, '@_CS') !== false)
$res = preg_replace_callback(',@(_CS_[a-zA-Z0-9_]+)@,', 'description_outil_callback3', $res);
// remplacement des liens vers un autre outil
$res = description_outil_liens($res);
// envoi de la description finale en pipeline
# list(,$res) = pipeline('post_description_outil', array($outil_, $res));
return cs_ajax_outil_greffe('description_outil-' . $index, $res);
}
?>