WP File Manager

Current Path: /home/argothem/www/organecyberpresse/plugins/auto/crayons/v3.3.0/inc/

Name	Action
..
crayons-json.php	Edit
crayons.php	Edit
crayons_preparer_page.php	Edit

Editing: crayons.php

<?php

/**
 * Crayons
 * plugin for spip
 * (c) Fil, toggg 2006-2019
 * licence GPL
 */

if (!defined('_ECRIRE_INC_VERSION')) {
	return;
}

define('_PREG_CRAYON', ',crayon\b[^<>\'"]+?\b((\w+)-(\w+)-(\w+(?:-\w+)*))\b,');

// Autoriser les crayons sur les tables non SPIP ?
// Par defaut : oui (pour les admins complets, si autoriser_defaut_dist()) ;
// mettre a false en cas de mutualisation par prefixe de table,
// sinon on ne peut pas garantir que les sites sont hermetiques
if (!defined('_CRAYONS_TABLES_EXTERNES')) {
	define('_CRAYONS_TABLES_EXTERNES', true);
}

// Autorisations non prevues par le core
include_spip('inc/autoriser');

include_spip('inc/crayons-json');

if (!function_exists('autoriser_meta_modifier_dist')) {
/**
 * Autorisation d'éditer les configurations dans spip_meta
 *
 * Les admins complets OK pour certains champs,
 * Sinon, il faut être webmestre
 *
 * @note
 *  Attention sur les SPIP < 11515 (avant 04/2008) inc/autoriser
 *  passe seulement intval($id) alors qu'ici la cle est une chaine...
 *
 * @param  string $faire Action demandée
 * @param  string $type  Type d'objet sur lequel appliquer l'action
 * @param  int    $id    Identifiant de l'objet
 * @param  array  $qui   Description de l'auteur demandant l'autorisation
 * @param  array  $opt   Options de cette autorisation
 * @return bool          true s'il a le droit, false sinon
**/
function autoriser_meta_modifier_dist($faire, $type, $id, $qui, $opt) {
	// Certaines cles de configuration sont echapées ici (cf #EDIT_CONFIG{demo/truc})
	// $id = str_replace('__', '/', $id);
	if (in_array($id, ['nom_site', 'slogan_site', 'descriptif_site', 'email_webmaster'])) {
		return autoriser('configurer', null, null, $qui);
	} else {
		return autoriser('webmestre', null, null, $qui);
	}
}
}

// table spip_messages, la c'est tout simplement non (peut mieux faire,
// mais c'est a voir dans le core/organiseur ou dans autorite)
if (defined('_DIR_PLUGIN_ORGANISEUR')) {
	include_spip('organiseur_autoriser');
}

if (!function_exists('autoriser_message_modifier_dist')) {
	function autoriser_message_modifier_dist($faire, $type, $id, $qui, $opt) {
		return false;
	}
}

// Autoriser l'usage des crayons ?
function autoriser_crayonner_dist($faire, $type, $id, $qui, $opt) {
	// Le type pouvant etre une table, verifier les autoriser('modifier')
	// correspondant ; ils demandent le nom de l'objet: spip_articles => article
	// ex: spip_articles => 'article'
	$type = preg_replace(',^spip_(.*?)s?$,', '\1', $type);
	if (strlen($GLOBALS['table_prefix'])) {
		$type = preg_replace(',^' . $GLOBALS['table_prefix'] . '_(.*?)s?$,', '\1', $type);
	}

// Tables non SPIP ? Si elles sont interdites il faut regarder
	// quelle table on appelle, et verifier si elle est "interne"
	if (!_CRAYONS_TABLES_EXTERNES) {
		include_spip('base/objets');
		lister_tables_objets_sql();
		include_spip('public/parametrer');
		if (
			!isset($GLOBALS['tables_principales']['spip_' . table_objet($type)])
			&& !isset($GLOBALS['tables_auxiliaires']['spip_' . table_objet($type)])
		) {
			return false;
		}
	}

// Traduire le modele en liste de champs
	if (isset($opt['modele'])) {
		$opt['champ'] = $opt['modele'];
	}

// Pour un auteur, si le champ est statut ou email, signaler l'option
	// ad hoc (cf. inc/autoriser)
	if ($type == 'auteur' && in_array($opt['champ'], ['statut', 'email'])) {
		$opt[$opt['champ']] = true;
	}

return (
		 autoriser('modifier', $type, $id, $qui, $opt)
	);
}

// Si un logo est demande, on renvoie la date dudit logo (permettra de gerer
// un "modifie par ailleurs" si la date a change, rien de plus)
function valeur_champ_logo($table, $id, $champ) {
	$chercher_logo = charger_fonction('chercher_logo', 'inc');
	$on = $chercher_logo($id, id_table_objet($table), 'on');
	return $on ? filemtime($on[0]) : false;
}

// Idem : si un doc est demande, on renvoie la date du doc
function valeur_champ_document($table, $id, $champ) {
	return sql_getfetsel('date', 'spip_documents', 'id_document=' . (int) $id);
}

function valeur_champ_vignette($table, $id, $champ) {
	$date = null;
 $vignette = sql_getfetsel('id_vignette', 'spip_documents', 'id_document=' . (int) $id);
	if (is_numeric($vignette) && ($vignette > 0)) {
		$date = sql_getfetsel('date', 'spip_documents', 'id_document=' . (int) $vignette);
	}
	return $date ?: false;
}
// cette fonction de revision recoit le fichier upload a passer en logo
// en reference : le nom du widget, pour aller chercher d'autres donnees
// (ex: supprimer)
function logo_revision($id, $file, $type, $ref) {
	$chercher_logo = charger_fonction('chercher_logo', 'inc');
	$_id_objet = id_table_objet($type);

// Chargement d'un nouveau logo ?
	if ($file['logo']) {
		define('FILE_UPLOAD', true); // message pour crayons_json_export :(

include_spip('action/editer_logo');
		logo_modifier($type, $id, 'on', $file['logo']);
	} else {
		// Suppression du logo ?
		if (
			($wid = array_pop($ref))
			&& $_POST['content_' . $wid . '_logo_supprimer'] == 'on'
		) {
			include_spip('action/editer_logo');
			logo_supprimer($type, $id, 'on');
		}
	}

// Reduire le logo ?
	if (
		is_array($cfg = @unserialize($GLOBALS['meta']['crayons']))
		&& ($max = (int) $cfg['reduire_logo'])
	) {
		$on = $chercher_logo($id, $_id_objet, 'on');
		include_spip('inc/filtres');
		@copy($on[0], $temp = _DIR_VAR . 'tmp' . random_int(0, 999) . '.' . $on[3]);
		$img1 = filtrer('image_reduire', $temp, $max);
		$img2 = preg_replace(',[?].*,', '', extraire_attribut($img1, 'src'));
		if (@file_exists($img2) && $img2 != $temp) {
			include_spip('action/editer_logo');
			logo_modifier($type, $id, 'on', $img2);
		}
		@unlink($temp);
	}

return true;
}

// cette fonction de revision recoit le fichier upload a passer en document
function document_fichier_revision($id, $data, $type, $ref) {

if (!$t = sql_fetsel('*', 'spip_documents', 'id_document=' . (int) $id)) {
		return false;
	}

/*
	// Envoi d'une URL de document distant ?
	// TODO: verifier l'extension distante, sinon tout explose
	if ($data['fichier']
	AND preg_match(',^(https?|ftp)://.+,', $data['fichier'])) {
		include_spip('inc/modifier');
		modifier_contenu('document', $id,
			array('champs' => array('fichier', 'distant')),
			array('fichier' => $data['fichier'], 'distant' => 'oui')
		);
		return true;
	}
	else
	*/

// Chargement d'un nouveau doc ?
	if ($data['document']) {
		$arg = $data['document'];
		/**
		 * Méthode >= SPIP 3.0
		 * ou SPIP 2.x + Mediathèque
		 */
		$ajouter_documents = charger_fonction('ajouter_documents', 'action');
		$actifs = $ajouter_documents($id, [$arg], '', 0, $t['mode']);
		$x = reset($actifs);
		if (is_numeric($x)) {
			return true;
		} else {
			return false;
		}
	}
}

// cette fonction de revision soit supprime la vignette d'un document,
// soit recoit le fichier upload a passer ou remplacer la vignette du document
function vignette_revision($id, $data, $type, $ref) {
	$id_vignette = null;
	if (!$s = sql_fetsel('id_document,id_vignette', 'spip_documents', 'id_document = ' . (int) $id)) {
		return false;
	}

include_spip('inc/modifier');
	include_spip('inc/documents');
	include_spip('action/editer_document');//pour revision_document
	// Chargement d'un nouveau doc ?
	if ($data['vignette']) {
		define('FILE_UPLOAD', true);
		if (is_numeric($s['id_vignette']) && $s['id_vignette'] > 0) {
			spip_log('suppression de la vignette', 'crayons');
			// Suppression du document
			$vignette = sql_getfetsel('fichier', 'spip_documents', 'id_document=' . (int) $s['id_vignette']);
			if (@file_exists($f = get_spip_doc($vignette))) {
				spip_log("efface $f", 'crayons');
				supprimer_fichier($f);
			}
			sql_delete('spip_documents', 'id_document=' . (int) $s['id_vignette']);
			sql_delete('spip_documents_liens', 'id_document=' . (int) $s['id_vignette']);

pipeline(
				'post_edition',
				[
					'args' => [
						'operation' => 'supprimer_document',
						'table' => 'spip_documents',
						'id_objet' => $s['id_vignette']
					],
					'data' => null
				]
			);
			$id_vignette = 0;
		}

$arg = $data['vignette'];
		check_upload_error($arg['error']);

// Ajout du document comme vignette
		$ajouter_documents = charger_fonction('ajouter_documents', 'action');
		$x = $ajouter_documents(null, [$arg], '', 0, 'vignette');
		$vignette = reset($x);
		if ((int) $vignette) {
			document_modifier($id, ['id_vignette' => $vignette]);
		} elseif ($id_vignette) {
			document_modifier($id, ['id_vignette' => $id_vignette]);
		}
	} elseif (
		($wid = array_pop($ref))
		&& $_POST['content_' . $wid . '_vignette_supprimer'] == 'on'
	) {
		if (is_numeric($s['id_vignette']) && $s['id_vignette'] > 0) {
			// Suppression du document
			$vignette = sql_getfetsel('fichier', 'spip_documents', 'id_document=' . (int) $s['id_vignette']);
			if (@file_exists($f = get_spip_doc($vignette))) {
				spip_log("efface $f", 'crayons');
				supprimer_fichier($f);
			}
			sql_delete('spip_documents', 'id_document=' . (int) $s['id_vignette']);
			sql_delete('spip_documents_liens', 'id_document = ' . (int) $s['id_vignette']);

pipeline(
				'post_edition',
				[
					'args' => [
						'operation' => 'supprimer_document',
						'table' => 'spip_documents',
						'id_objet' => $s['id_vignette']
					],
					'data' => null
				]
			);

// On remet l'id_vignette a 0
			document_modifier($s['id_document'], ['id_vignette' => 0]);
		}
	}
	return true;
}

/**
 * Obtient le nom de la table ainsi que sa ou ses clés primaires
 *
 * @param string $type
 *     Table sur laquelle s'applique le crayon.
 *     Ce type peut contenir le nom d'un connecteur distant tel que `{connect}__{table}`
 *
 * @return array|bool
 *     - false si on ne trouve pas de table ou de table ayant de clé primaire
 *     - liste :
 *     - - nom de la table sql
 *     - - tableau des noms de clés primaires
**/
function crayons_get_table_name_and_primary($type) {
	static $types = [];
	if (isset($types[$type])) {
		return $types[$type];
	}

$nom_table = '';
	if (
		($tabref = &crayons_get_table($type, $nom_table))
		&& ($tabid = explode(',', $tabref['key']['PRIMARY KEY']))
	) {
		return $types[$type] = [$nom_table, $tabid];
	}
	spip_log('crayons: table ' . $type . ' inconnue ou sans cle primaire', 'crayons');
	return $types[$type] = false;
}

function table_where($type, $id, $where_en_tableau = false) {
	if (!$infos = crayons_get_table_name_and_primary($type)) {
		return [false, false];
	}

[$nom_table, $tabid] = $infos;

if (is_scalar($id)) {
		$id = explode('-', $id);
	}
	// sortie tableau pour sql_updateq
	if ($where_en_tableau) {
		$where = [];
		foreach ($id as $idcol => $idval) {
			$where[] = '`' . (is_int($idcol) ? trim($tabid[$idcol]) : $idcol) . '`=' . sql_quote($idval);
		}
	// sinon sortie texte pour sql_query
	} else {
		$where = $and = '';
		foreach ($id as $idcol => $idval) {
			$where .= $and . '`' . (is_int($idcol) ? trim($tabid[$idcol]) : $idcol) . '`=' . _q($idval);
			$and = ' AND ';
		}
	}
	return [$nom_table, $where];
}
//	var_dump(colonne_table('forum', 'id_syndic')); die();

function valeur_colonne_table_dist($type, $col, $id) {

#spip_log("valeur_colonne_table_dist $type $id cols: ".json_encode($col), 'crayons');
	// Table introuvable ou sans clé primaire
	if (!$infos = crayons_get_table_name_and_primary($type)) {
		#spip_log("valeur_colonne_table_dist $type $id infos:".json_encode($infos), 'crayons');
		return false;
	}
	#spip_log("valeur_colonne_table_dist $type $id infos:".json_encode($infos), 'crayons');
	$table = reset($infos);

$r = [];

// valeurs non SQL
	foreach ($col as $champ) {
		if (
			function_exists($f = 'valeur_champ_' . $table . '_' . $champ)
			|| function_exists($f = 'valeur_champ_' . $champ)
		) {
			$r[$champ] = $f($table, $id, $champ);
			$col = array_diff($col, [$champ]);
		}
	}

// valeurs SQL
	if (is_countable($col) ? count($col) : 0) {
		[$distant, $table]   = distant_table($type);
		[$nom_table, $where] = table_where($type, $id);

$row = false;
		if (include_spip('base/abstract_sql') && function_exists('sql_fetsel')) {
			$row = sql_fetsel('`' . implode('`, `', $col) . '`', $nom_table, $where, '', '', '', '', $distant);
		}
		else {
			// legacy code
			if (
				$s = spip_query(
					'SELECT `' . implode('`, `', $col) .
					'` FROM ' . $nom_table . ' WHERE ' . $where,
					$distant
				)
			) {
				$row = sql_fetch($s);
			}
		}
		if ($row) {
			$r = array_merge($r, $row);
		}
	}

return $r;
}

/**
 * Extrait la valeur d'une ou plusieurs colonnes d'une table
 *
 * @param string $table
 *   Type d'objet de la table (article)
 * @param string|array $col
 *   Nom de la ou des colonnes (ps)
 * @param string $id
 *   Identifiant de l'objet
 * @return array
 *   Couples Nom de la colonne => Contenu de la colonne
**/
function valeur_colonne_table($table, $col, $id) {
	if (!is_array($col)) {
		$col = [$col];
	}

if (
		function_exists($f = $table . '_valeur_colonne_table')
		|| function_exists($f .= '_dist')
		|| ($f = 'valeur_colonne_table_dist')
	) {
		return $f($table, $col, $id);
	}
}

/**
 * Extrait la valeur d'une configuration en meta
 *
 * Pour ces données, il n'y a toujours qu'une colonne (valeur),
 * mais on gère l'enregistrement et la lecture via lire_config ou ecrire_config
 * dès que l'on demande des sous parties d'une configuration.
 *
 * On ne retourne alors ici dans 'valeur' que la sous-partie demandée si
 * c'est le cas.
 *
 * @param string $table
 *   Nom de la table (meta)
 * @param array $col
 *   Nom des colonnes (valeur)
 * @param string $id
 *   Nom ou clé de configuration (descriptif_site ou demo__truc pour demo/truc)
 * @return array
 *   Couple valeur => Contenu de la configuration
**/
function meta_valeur_colonne_table_dist($table, $col, $id) {
	// Certaines clés de configuration sont echapées ici (cf #EDIT_CONFIG{demo/truc})
	$id = str_replace('__', '/', $id);

include_spip('inc/config');
	$config =  lire_config($id, '');

return ['valeur' => $config];
}

/**
 * Extrait la valeur d'une chaine de langue
 *
 * @param string $table
 *   Nom de la """table""" (traduction)
 * @param array $motifs
 *   Motifs a traduire
 * @param string $module
 *   Module de langue sous la forme module_lang, ex local_fr
 * @return array
 *   Couple motif_chaine_de_langue => valeur traduite
**/
function traduction_valeur_colonne_table_dist($table, $motifs, $module) {
	$lang = substr($module, -2);
	$mod = substr($module, 0, -3);
	$valeur = _T("$mod:$motifs[0]", ['spip_lang' => $lang], ['force' => false]);
	// valeur vide si traduction trouvée dans la langue du site
	if ($lang != $GLOBALS['meta']['langue_site'] && $valeur == _T("$mod:$motifs[0]", ['spip_lang' => $GLOBALS['meta']['langue_site']])) {
		$valeur = '';
	}
	return [$motifs[0] => $valeur];
}

function return_log($var) {
	die(crayons_json_encode(['$erreur' => var_export($var, true)]));
}

function _U($texte, $params = []) {
	include_spip('inc/charsets');
	return unicode2charset(html2unicode(_T($texte, $params)));
}

/**
 * Obtenir la configuration des crayons
 *
 * @note wdgcfg = widget config :-)
 *
 * @return array
 *     Couples : attribut => valeur
**/
function wdgcfg() {
	$php = function_exists('crayons_config') ? crayons_config() : [];
	include_spip('inc/meta');
	lire_metas();
	global $meta;
	$metacrayons = empty($meta['crayons']) ? [] : unserialize($meta['crayons']);
	$wdgcfg = [];
	foreach (
		[
		'msgNoChange' => false,
		'msgAbandon' => false,  /* etait: true */
		'yellow_fade' => false,
		'clickhide' => false /* etait: true */
		] as $cfgi => $def
	) {
		$wdgcfg[$cfgi] = $php[$cfgi] ?? $metacrayons[$cfgi] ?? $def;
	}
	return $wdgcfg;
}

function &crayons_get_table($type, &$nom_table) {
	[$distant, $table] = distant_table($type);
	static $return = [];
	static $noms = [];
	if (!isset($return[$table])) {
		$trouver_table = charger_fonction('trouver_table', 'base', true);

$try = [table_objet_sql($table), 'spip_' . table_objet($table), 'spip_' . $table . 's', $table . 's', 'spip_' . $table, $table];
		foreach ($try as $nom) {
			if ($trouver_table) {
				if ($q = $trouver_table($nom, $distant, !$distant)) {
					$noms[$table] = $q['table_sql'];
					$return[$table] = $q;
				}
			}
			else {
				// legacy code
				if ($q = sql_showtable($nom, !$distant, $distant)) {
					$noms[$table] = $nom;
					$return[$table] = $q;
					break;
				}
			}
		}
	}

$nom_table = $noms[$table];
	return $return[$table];
}

function distant_table($type) {
	//separation $type en $distant $table
	//separateur double underscore "__"
	strstr($type, '__') ? [$distant, $table] = explode('__', $type) : [$distant, $table] = [false, $type];
	return [$distant,$table];
}