<?php

/***************************************************************************\
 *  SPIP, Systeme de publication pour l'internet                           *
 *                                                                         *
 *  Copyright (c) 2001-2019                                                *
 *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
 *                                                                         *
 *  Ce programme est un logiciel libre distribue sous licence GNU/GPL.     *
 *  Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne.   *
\***************************************************************************/

/**
 * Gestion des rôles
 *
 * Les rôles sont une qualification précise sur une liaison entre
 * deux objets. Ils doivent être définis dans la déclaration d'un objet
 * pour être utilisés. Ils s'appliquent sur une colonne particulière
 * de la table de liaison, par défaut 'role'.
 *
 * Cette table de liaison, lorsqu'elle a des rôles n'a plus sa clé primaire
 * sur le couple (id_x, objet, id_objet) mais sur (id_x, objet, id_objet, colonne_role)
 * de sorte qu'il peut exister plusieurs liens entre 2 objets, mais avec
 * des rôles différents. Chaque ligne de la table lien correspond alors à
 * un des rôles.
 *
 * @package SPIP\Core\Roles
 */

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


/**
 * Vérifie qu'un objet dispose de rôles fonctionnels
 *
 * Retourne une description des rôles si c'est le cas
 *
 * @param string $objet
 *     Objet source qui possède la table de liaison
 * @param string $objet_destination
 *     Objet sur quoi on veut lier
 *     Si défini, le retour ne contient que les roles possibles pour cet objet
 *     Sinon retourne tous les roles possibles quelque soit l'objet
 * @return bool|array
 *     false si rôles indisponibles on non déclarés
 *     array : description des roles applicables dans 3 index : colonne, titres, roles
 **/
function roles_presents($objet, $objet_destination = '') {
	$desc = lister_tables_objets_sql(table_objet_sql($objet));

	// pas de liste de roles, on sort
	if (!isset($desc['roles_titres']) or !($titres = $desc['roles_titres'])) {
		return false;
	}

	// on vérifie que la table de liaison existe
	include_spip('action/editer_liens');
	if (!$lien = objet_associable($objet)) {
		return false;
	}

	// on cherche ensuite si la colonne existe bien dans la table de liaison (par défaut 'role')
	$colonne = isset($desc['roles_colonne']) ? $desc['roles_colonne'] : 'role';
	$trouver_table = charger_fonction('trouver_table', 'base');
	list(, $table_lien) = $lien;
	$desc_lien = $trouver_table($table_lien);
	if (!isset($desc_lien['field'][$colonne])) {
		return false;
	}

	// sur quoi peuvent s'appliquer nos rôles
	if (!$application = $desc['roles_objets']) {
		return false;
	}

	// destination presente, on restreint si possible
	if ($objet_destination) {
		$objet_destination = table_objet($objet_destination);

		// pour l'objet
		if (isset($application[$objet_destination])) {
			$application = $application[$objet_destination];
			// sinon pour tous les objets
		} elseif (isset($application['*'])) {
			$application = $application['*'];
		} // sinon tant pis
		else {
			return false;
		}
	}

	// tout est ok
	return array(
		'titres' => $titres,
		'roles' => $application,
		'colonne' => $colonne
	);
}

/**
 * Retrouve la colonne de liaison d'un rôle si définie entre 2 objets
 *
 * @param string $objet
 *     Objet source qui possède la table de liaison
 * @param string $objet_destination
 *     Objet sur quoi on veut lier
 * @return string
 *     Nom de la colonne, sinon vide
 **/
function roles_colonne($objet, $objet_destination) {
	if ($roles = roles_presents($objet, $objet_destination)) {
		return $roles['colonne'];
	}

	return '';
}


/**
 * Extrait le rôle et la colonne de role d'un tableau de qualification
 *
 * Calcule également une condition where pour ce rôle.
 *
 * Pour un objet pouvant recevoir des roles sur sa liaison avec un autre objet,
 * on retrouve le rôle en question dans le tableau de qualification.
 * Si le rôle n'est pas défini dedans, on prend le rôle par défaut
 * déclaré.
 *
 * @param string $objet Objet source de la liaison
 * @param string $objet_destination Objet de destination de la liaison
 * @param array $qualif tableau de qualifications array(champ => valeur)
 * @return array
 *     Liste (role, colonne, (array)condition) si role possible
 *     Liste ('', '', array()) sinon.
 **/
function roles_trouver_dans_qualif($objet, $objet_destination, $qualif = array()) {
	// si des rôles sont possibles, on les utilise
	$role = $colonne_role = ''; # role défini
	// condition du where par defaut
	$cond = array();
	if ($roles = roles_presents($objet, $objet_destination)) {
		$colonne_role = $roles['colonne'];
		// qu'il n'est pas défini
		if (!isset($qualif[$colonne_role])
			or !($role = $qualif[$colonne_role])
		) {
			$role = $roles['roles']['defaut'];
		}
		// where
		$cond = array("$colonne_role=" . sql_quote($role));
	}

	return array($role, $colonne_role, $cond);
}

/**
 * Gérer l'ajout dans la condition where du rôle
 *
 * On ajoute la condition uniquement si la liaison entre les 2 objets a une colonne de rôle !
 *
 * @param string $objet_source Objet source (qui possède la table de liens)
 * @param string $objet Objet de destination
 * @param array $cond
 *     Tableau de conditions where
 *     qui peut avoir un index spécial 'role' définissant le role à appliquer
 *     ou valant '*' pour tous les roles.
 * @param bool $tous_si_absent
 *     true pour ne pas appliquer une condition sur le rôle s'il n'est pas indiqué
 *     dans la liste des conditions entrantes. Autrement dit, on n'applique
 *     pas de rôle par défaut si aucun n'est défini.
 * @return array
 *     Liste (Tableau de conditions where complété du role, Colonne du role, role utilisé)
 **/
function roles_creer_condition_role($objet_source, $objet, $cond, $tous_si_absent = false) {
	// role par défaut, colonne
	list($role_defaut, $colonne_role) = roles_trouver_dans_qualif($objet_source, $objet);

	// chercher d'eventuels rôles transmis
	$role = (isset($cond['role']) ? $cond['role'] : ($tous_si_absent ? '*' : $role_defaut));
	unset($cond['role']); // cette condition est particuliere...

	if ($colonne_role) {
		// on ajoute la condition du role aux autres conditions.
		if ($role != '*') {
			$cond[] = "$colonne_role=" . sql_quote($role);
		}
	}

	return array($cond, $colonne_role, $role);
}

/**
 * Liste des identifiants dont on ne peut ajouter de rôle
 *
 * Lister les id objet_source associés à l'objet id_objet
 * via la table de lien objet_lien, et détermine dans cette liste
 * lesquels ont les rôles complets, c'est à dire qu'on ne peut leur
 * affecteur d'autres rôles parmi ceux qui existe pour cette liaison.
 *
 * @see lister_objets_lies()
 *
 * @param string $objet_source Objet dont on veut récupérer la liste des identifiants
 * @param string $objet Objet sur lequel est liée la source
 * @param int $id_objet Identifiant d'objet sur lequel est liée la source
 * @param string $objet_lien Objet dont on utilise la table de liaison
 * 		(c'est forcément soit $objet_source, soit $objet)
 * @return array               Liste des identifiants
 */
function roles_complets($objet_source, $objet, $id_objet, $objet_lien) {

	$presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
	// pas de roles sur ces objets => la liste par defaut, comme sans role
	if ($presents === false) {
		return lister_objets_lies($objet_source, $objet, $id_objet, $objet_lien);
	}

	// types de roles possibles
	$roles_possibles = $presents['roles']['roles']['choix'];
	// couples id / roles
	$ids = $presents['ids'];

	// pour chaque groupe, on fait le diff entre tous les roles possibles
	// et les roles attribués à l'élément : s'il en reste, c'est que l'élément
	// n'est pas complet
	$complets = array();
	foreach ($ids as $id => $roles_presents) {
		if (!array_diff($roles_possibles, $roles_presents)) {
			$complets[] = $id;
		}
	}

	return $complets;
}


/**
 * Liste les roles attribués entre 2 objets/id_objet sur une table de liaison donnée
 *
 * @param string $id_objet_source Identifiant de l'objet qu'on lie
 * @param string $objet_source Objet qu'on lie
 * @param string $objet Objet sur lequel est liée la source
 * @param int $id_objet Identifiant d'objet sur lequel est liée la source
 * @param string $objet_lien Objet dont on utilise la table de liaison
 * 		(c'est forcément soit $objet_source, soit $objet)
 * @return array                  Liste des roles
 */
function roles_presents_sur_id($id_objet_source, $objet_source, $objet, $id_objet, $objet_lien) {

	$presents = roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien);
	// pas de roles sur ces objets => la liste par defaut, comme sans role
	if ($presents === false) {
		return array();
	}

	if (!isset($presents['ids'][$id_objet_source])) {
		return array();
	}

	return $presents['ids'][$id_objet_source];
}


/**
 * Lister des rôles présents sur une liaion, pour un objet sur un autre,
 * classés par identifiant de l'objet
 *
 * Lister les id objet_source associés à l'objet id_objet
 * via la table de lien objet_lien, et groupe cette liste
 * par identifiant (la clé) et ses roles attribués (tableau de valeur)
 *
 * On retourne cette liste dans l'index 'ids' et la description des roles
 * pour la liaison dans l'index 'roles' pour éviter le le faire recalculer
 * aux fonctions utilisant celle ci.
 *
 * @param string $objet_source Objet dont on veut récupérer la liste des identifiants
 * @param string $objet Objet sur lequel est liée la source
 * @param int $id_objet Identifiant d'objet sur lequel est liée la source
 * @param string $objet_lien Objet dont on utilise la table de liaison
 * 		(c'est forcément soit $objet_source, soit $objet)
 * @return array|bool
 *     - Tableau d'index
 *       - roles : tableau de description des roles,
 *       - ids   : tableau des identifiants / roles.
 *     - False si pas de role déclarés
 */
function roles_presents_liaisons($objet_source, $objet, $id_objet, $objet_lien) {
	static $done = array();

	// stocker le résultat
	$hash = "$objet_source-$objet-$id_objet-$objet_lien";
	if (isset($done[$hash])) {
		return $done[$hash];
	}

	// pas de roles sur ces objets, on sort
	$roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
	if (!$roles) {
		return $done[$hash] = false;
	}

	// inspiré de lister_objets_lies()
	if ($objet_lien == $objet) {
		$res = objet_trouver_liens(array($objet => $id_objet), array($objet_source => '*'));
	} else {
		$res = objet_trouver_liens(array($objet_source => '*'), array($objet => $id_objet));
	}

	// types de roles possibles
	$roles_possibles = $roles['roles']['choix'];
	// colonne du role
	$colonne = $roles['colonne'];

	// on recupere par id, et role existant
	$ids = array();
	while ($row = array_shift($res)) {
		$id = $row[$objet_source];
		if (!isset($ids[$id])) {
			$ids[$id] = array();
		}
		// tableau des roles présents
		$ids[$id][] = $row[$colonne];
	}

	return $done[$hash] = array(
		'roles' => $roles,
		'ids' => $ids
	);
}


/**
 * Lister des rôles connus en base pour une liaion, pour un objet source
 *
 * On retourne cette liste dans le datalist de saisie libre role.
 *
 * @param string $objet_source Objet dont on veut récupérer la liste des identifiants
 * @param string $objet Objet sur lequel est liée la source
 * @param string $objet_lien Objet dont on utilise la table de liaison
 * 		(c'est forcément soit $objet_source, soit $objet)
 * @return array|bool
 *     - Tableau de roles : tableau de description des roles,
 *     - false si pas de role déclarés
 */
function roles_connus_en_base($objet_source, $objet, $objet_lien) {
	static $done = array();

	// stocker le résultat
	$hash = "$objet_source-$objet-$objet_lien";
	if (isset($done[$hash])) {
		return $done[$hash];
	}

	if (!$lien = objet_associable($objet_lien)) {
		return $done[$hash] = false;
	}

	// pas de roles sur ces objets, on sort
	$roles = roles_presents($objet_lien, ($objet_lien == $objet) ? $objet_source : $objet);
	if (!$roles) {
		return $done[$hash] = false;
	}

	list($primary, $l) = $lien;
	$colone_role = $roles['colonne'];

	$all = sql_allfetsel(
		"DISTINCT $colone_role",
		$l,
		'objet=' . sql_quote(($objet_source == $objet_lien) ? $objet : $objet_source)
	);
	$done[$hash] = array_map('reset', $all);

	return $done[$hash];
}
