YunoHost-Apps/spip_ynh
1
0
Fork 0
mirror of https://github.com/YunoHost-Apps/spip_ynh.git synced 2024-09-03 20:25:59 +02:00
Code Issues Activity Actions
spip_ynh/sources/plugins-dist/svp/inc/svp_outiller.php
magikcypress 3a49daa783 Ajout des sources de SPIP
2015-04-28 17:10:23 +02:00

463 lines
16 KiB
PHP
Raw Blame History

<?php
/**
* Fichier de fonctions
*
* @plugin SVP pour SPIP
* @license GPL
* @package SPIP\SVP\Fonctions
**/
if (!defined('_ECRIRE_INC_VERSION')) return;
if (!defined('_SVP_VERSION_SPIP_MIN')) {
/**
* Version SPIP minimale quand un plugin ne le precise pas
*
* Version SPIP correspondant à l'apparition des plugins */
define('_SVP_VERSION_SPIP_MIN', '1.9.0');
}
if (!defined('_SVP_VERSION_SPIP_MAX')) {
/**
* Version SPIP maximale
*
* Pour l'instant on ne connait pas la borne sup exacte */
define('_SVP_VERSION_SPIP_MAX', '3.1.99');
}
/**
* Liste des branches significatives de SPIP et de leurs bornes (versions min et max)
*
* À mettre a jour en fonction des sorties
* @global array $GLOBALS['infos_branches_spip']
*/
$GLOBALS['infos_branches_spip'] = array(
'1.9' => array(_SVP_VERSION_SPIP_MIN,'1.9.2'),
'2.0' => array('2.0.0','2.0.99'),
'2.1' => array('2.1.0','2.1.99'),
'3.0' => array('3.0.0','3.0.99'),
'3.1' => array('3.1.0',_SVP_VERSION_SPIP_MAX)
);
# define('_INFOS_BRANCHES_SPIP', serialize($infos_branches_spip));
/**
* Liste des licences de plugin
*
* @global array $GLOBALS['licences_plugin']
*/
$GLOBALS['licences_plugin'] = array(
'apache' => array(
'versions' => array('2.0', '1.1', '1.0'),
'nom' => 'Apache licence, version @version@',
'url' => 'http://www.apache.org/licenses/LICENSE-@version@'),
'art' => array(
'versions' => array('1.3'),
'nom' => 'Art libre @version@',
'url' => 'http://artlibre.org/licence/lal'),
'mit' => array(
'versions' => array(),
'nom' => 'MIT',
'url' => 'http://opensource.org/licenses/mit-license.php'),
'bsd' => array(
'versions' => array(),
'nom' => 'BSD',
'url' => 'http://www.freebsd.org/copyright/license.html'),
'agpl' => array(
'versions' => array('3'),
'nom' => 'AGPL @version@',
'url' => 'http://www.gnu.org/licenses/agpl.html'),
'fdl' => array(
'versions' => array('1.3', '1.2', '1.1'),
'nom' => 'FDL @version@',
'url' => 'http://www.gnu.org/licenses/fdl-@version@.html'),
'lgpl' => array(
'versions' => array('3.0', '2.1'),
'nom' => array('3.0' => 'LGPL 3', '2.1' => 'LGPL 2.1'),
'url' => 'http://www.gnu.org/licenses/lgpl-@version@.html'),
'gpl' => array(
'versions' => array('3', '2', '1'),
'nom' => 'GPL @version@',
'url' => 'http://www.gnu.org/licenses/gpl-@version@.0.html'),
'ccby' => array(
'versions' => array('2.0', '2.5', '3.0'),
'suffixes' => array('-sa', '-nc', '-nd', '-nc-nd', '-nc-sa'),
'nom' => 'CC BY@suffixe@ @version@',
'url' => 'http://creativecommons.org/licenses/by@suffixe@/@version@/')
);
# define('_LICENCES_PLUGIN', serialize($licences_plugin));
/**
* Fusionne 2 intervalles de compatibilité
*
* Soit '[1.9;2.1]' et '[2.1;3.0.*]', la fonction retourne '[1.9;3.0.*]'
*
* En gros la fonction est utilisé pour calculer l'intervalle de validité
* d'un plugin ayant plusieurs paquets avec des compatibilités différentes.
* La compatibilité du plugin est le total de toutes les compatibilités.
*
* @param string $intervalle_a
* Intervalle de compatibilité
* @param string $intervalle_b
* Intervalle de compatibilité
* @return string
* Intervalle de compatibilité
**/
function fusionner_intervalles($intervalle_a, $intervalle_b) {
// On recupere les bornes de chaque intervalle
$borne_a = extraire_bornes($intervalle_a);
$borne_b = extraire_bornes($intervalle_b);
// On initialise la borne min de chaque intervalle a 1.9.0 inclus si vide
if (!$borne_a['min']['valeur']) {
$borne_a['min']['valeur'] = _SVP_VERSION_SPIP_MIN;
$borne_a['min']['incluse'] = true;
}
if (!$borne_b['min']['valeur']) {
$borne_b['min']['valeur'] = _SVP_VERSION_SPIP_MIN;
$borne_b['min']['incluse'] = true;
}
// On initialise la borne max de chaque intervalle a la version SPIP max incluse si vide
if (!$borne_a['max']['valeur']) {
$borne_a['max']['valeur'] = _SVP_VERSION_SPIP_MAX;
$borne_a['max']['incluse'] = true;
}
if (!$borne_b['max']['valeur']) {
$borne_b['max']['valeur'] = _SVP_VERSION_SPIP_MAX;
$borne_b['max']['incluse'] = true;
}
// On calcul maintenant :
// -- la borne min de l'intervalle fusionne = min(min_a, min_b)
if (spip_version_compare($borne_a['min']['valeur'], $borne_b['min']['valeur'], '<='))
$bornes_fusionnees['min'] = $borne_a['min'];
else
$bornes_fusionnees['min'] = $borne_b['min'];
// -- la borne max de l'intervalle fusionne = max(max_a, max_b)
if (spip_version_compare($borne_a['max']['valeur'], $borne_b['max']['valeur'], '<='))
$bornes_fusionnees['max'] = $borne_b['max'];
else
$bornes_fusionnees['max'] = $borne_a['max'];
return construire_intervalle($bornes_fusionnees);
}
/**
* Extrait les valeurs d'un intervalle de compatibilité.
*
* Calcule les valeurs min, max et si ces valeurs sont intégrées ou non
* à l'intervalle.
*
* @param string $intervalle
* Intervalle de compatibilité, tel que '[2.1;3.0]'
* @param bool $initialiser
* - True pour mettre les valeurs connues mini et maxi de SPIP lorsque
* les bornes ne sont pas renseignées dans l'intervalle.
* - False pour ne rien mettre sinon.
* @return array
* Tableau avec les index :
* - min : la borne inférieure, qui contient les index 'valeur' et 'incluse'
* - max : la borne supérieure, qui contient les index 'valeur' et 'incluse'
* Le sous index 'incluse' vaut true si cette borne est incluse dans l'intervalle.
**/
function extraire_bornes($intervalle, $initialiser=false) {
static $borne_vide = array('valeur' => '', 'incluse' => false);
static $borne_inf_init = array('valeur' => _SVP_VERSION_SPIP_MIN, 'incluse' => true);
static $borne_sup_init = array('valeur' => _SVP_VERSION_SPIP_MAX, 'incluse' => true);
if ($initialiser)
$bornes = array('min' => $borne_inf_init, 'max' => $borne_sup_init);
else
$bornes = array('min' => $borne_vide, 'max' => $borne_vide);
if ($intervalle
AND preg_match(',^[\[\(\]]([0-9.a-zRC\s\-]*)[;]([0-9.a-zRC\s\-\*]*)[\]\)\[]$,Uis', $intervalle, $matches)) {
if ($matches[1]) {
$bornes['min']['valeur'] = trim($matches[1]);
$bornes['min']['incluse'] = ($intervalle{0} == "[");
}
if ($matches[2]) {
$bornes['max']['valeur'] = trim($matches[2]);
$bornes['max']['incluse'] = (substr($intervalle,-1) == "]");
}
}
return $bornes;
}
/**
* Contruit un intervalle de compatibilité
*
* @param array $bornes
* L'intervalle décrit sous forme de tableau avec pour index :
* - min : la borne inférieure, qui contient les index 'valeur' et 'incluse'
* - max : la borne supérieure, qui contient les index 'valeur' et 'incluse'
* Le sous index 'incluse' vaut true si cette borne est incluse dans l'intervalle.
* @param string $dtd
* DTD de destination (paquet ou plugin) qui influera sur l'écriture à faire
* en utilisant des parenthèses ou des crochets pour définir l'exclusion d'une intervalle
* tel que ']2.1.2,3.0.1[' (paquet) ou '(2.1.2,3.0.1)' (plugin)
* @return string
* Intervalle de compatibilité tel que '[2.1;3.0]'
**/
function construire_intervalle($bornes, $dtd='paquet') {
return ($bornes['min']['incluse'] ? '[' : ($dtd=='paquet' ? ']' : '('))
. $bornes['min']['valeur'] . ';' . $bornes['max']['valeur']
. ($bornes['max']['incluse'] ? ']' : ($dtd=='paquet' ? '[' : ')'));
}
/**
* Retourne la liste des branches de SPIP comprises dans un intervalle
* de compatibilité donné.
*
* @param string $intervalle
* Intervalle de compatibilité, tel que [2.0.0;3.0.0]
* @return string
* Branches de SPIP séparées par des virgules, tel que 2.0,2.1,3.0
**/
function compiler_branches_spip($intervalle) {
include_spip('plugins/installer');
global $infos_branches_spip;
$liste_branches_spip = array_keys($GLOBALS['infos_branches_spip']);
$bornes = extraire_bornes($intervalle, false);
// On traite d'abord les cas ou l'intervalle est :
// - vide
// - non vide mais avec les deux bornes vides
// Dans ces cas la compatibilite est totale, on renvoie toutes les branches
if (!$intervalle OR (!$bornes['min']['valeur'] AND !$bornes['max']['valeur']))
return implode(',', $liste_branches_spip);
// On force l'initialisation des bornes et on les nettoie des suffixes d'etat
$bornes = extraire_bornes($intervalle, true);
// Si les bornes sont en dehors de l'intervalle [_SVP_VERSION_SPIP_MIN;_SVP_VERSION_SPIP_MAX] on le reduit
if (spip_version_compare($bornes['min']['valeur'], _SVP_VERSION_SPIP_MIN, '<')) {
$bornes['min']['valeur'] = _SVP_VERSION_SPIP_MIN;
$bornes['min']['incluse'] = true;
}
if (spip_version_compare(_SVP_VERSION_SPIP_MAX, $bornes['max']['valeur'], '<=')) {
$bornes['max']['valeur'] = _SVP_VERSION_SPIP_MAX;
$bornes['max']['incluse'] = true;
}
// On les nettoie des suffixes d'etat
$borne_inf = strtolower(preg_replace(',([0-9])[\s-.]?(dev|alpha|a|beta|b|rc|pl|p),i','\\1',$bornes['min']['valeur']));
$borne_sup = strtolower(preg_replace(',([0-9])[\s-.]?(dev|alpha|a|beta|b|rc|pl|p),i','\\1',$bornes['max']['valeur']));
// On determine les branches inf et sup issues du phrasage de l'intervalle
// -- on initialise la branche inf de l'intervalle que l'on va preciser ensuite
$t = explode('.', $borne_inf);
$branche_inf = $t[0] . '.' . $t[1];
// -- pour eviter toutes erreur fatale on verifie que la branche est bien dans la liste des possibles
// -- -> si non, on renvoie vide
if (!in_array($branche_inf, $liste_branches_spip))
return '';
// -- on complete la borne inf de l'intervalle de x.y en x.y.z et on determine la vraie branche
if (!isset($t[2]) or !$t[2]) {
if ($bornes['min']['incluse'])
$borne_inf = $infos_branches_spip[$branche_inf][0];
else {
$branche_inf = $liste_branches_spip[array_search($branche_inf, $liste_branches_spip)+1];
$borne_inf = $infos_branches_spip[$branche_inf][0];
}
}
// -- on initialise la branche sup de l'intervalle que l'on va preciser ensuite
$t = explode('.', $borne_sup);
// des gens mettent juste * (pas glop)
$branche_sup = $t[0] . (isset($t[1]) ? '.' . $t[1] : '');
// -- pour eviter toutes erreur fatale on verifie que la branche est bien dans la liste des possibles
// -- -> si non, on renvoie vide
if (!in_array($branche_sup, $liste_branches_spip))
return '';
// -- on complete la borne sup de l'intervalle de x.y en x.y.z et on determine la vraie branche
if (!isset($t[2]) or !$t[2]) {
if ($bornes['max']['incluse'])
$borne_sup = $infos_branches_spip[$branche_sup][1];
else {
$branche_sup = $liste_branches_spip[array_search($branche_sup, $liste_branches_spip)-1];
$borne_sup = $infos_branches_spip[$branche_sup][1];
}
}
// -- on verifie que les bornes sont bien dans l'ordre :
// -> sinon on retourne la branche sup uniquement
if (spip_version_compare($borne_inf, $borne_sup, '>='))
return $branche_sup;
// A ce stade, on a un intervalle ferme en bornes ou en branches
// Il suffit de trouver les branches qui y sont incluses, sachant que les branches inf et sup
// le sont a coup sur maintenant
$index_inf = array_search($branche_inf, $liste_branches_spip);
$index_sup = array_search($branche_sup, $liste_branches_spip);
$liste = array();
for ($i = $index_inf; $i <= $index_sup; $i++) {
$liste[] = $liste_branches_spip[$i];
}
return implode(',', $liste);
}
/**
* Transforme un texte écrit en entités HTML, dans le charset du site
*
* @param string $texte
* Texte avec des entités HTML
* @return string $texte
* Texte dans le charset du site
**/
function entite2charset($texte) {
if (!strlen($texte)) return '';
include_spip('inc/charsets');
return unicode2charset(html_entity_decode(preg_replace('/&([lg]t;)/S', '&amp;\1', $texte), ENT_NOQUOTES, $GLOBALS['meta']['charset']));
}
/**
* Teste si 2 balises XML sont identiques
*
* @param array|string $balise1
* Balise à comparer
* @param array|string $balise2
* Balise à comparer
* @return bool
* True si elles sont identiques, false sinon.
**/
function balise_identique($balise1, $balise2) {
if (is_array($balise1)) {
foreach ($balise1 as $_attribut1 => $_valeur1){
if (!array_key_exists($_attribut1, $balise2))
return false;
else
if ($_valeur1 != $balise2[$_attribut1])
return false;
}
return true;
}
else
return ($balise1 == $balise2);
}
/**
* Déterminer la licence exacte avec un nom et un lien de doc standardisé
*
* @param string $prefixe
* Préfixe de la licence tel que gnu, free, cc, creative common
* @param string $nom
* Nom de la licence tel que gpl, lgpl, agpl, fdl, mit, bsd...
* @param string $suffixe
* Suffixe de la licence tel que licence, -sharealike, -nc-nd ...
* @param string $version
* Version de la licence tel que 3.0
* @return array
* Si la licence est connu, retourne 2 index :
* - nom : le nom le la licence
* - url : lien vers la licence
*/
function definir_licence($prefixe, $nom, $suffixe, $version) {
global $licences_plugin;
$licence = array();
$prefixe = strtolower($prefixe);
$nom = strtolower($nom);
$suffixe = strtolower($suffixe);
if (((trim($prefixe) == 'creative common') AND ($nom == 'attribution'))
OR (($prefixe == 'cc') AND ($nom == 'by')))
$nom = 'ccby';
if (array_key_exists($nom, $licences_plugin)) {
if (!$licences_plugin[$nom]['versions']) {
// La licence n'est pas versionnee : on affecte donc directement le nom et l'url
$licence['nom'] = $licences_plugin[$nom]['nom'];
$licence['url'] = $licences_plugin[$nom]['url'];
}
else {
// Si la version est pas bonne on prend la plus recente
if (!$version OR !in_array($version, $licences_plugin[$nom]['versions'], true))
$version = $licences_plugin[$nom]['versions'][0];
if (is_array($licences_plugin[$nom]['nom']))
$licence['nom'] = $licences_plugin[$nom]['nom'][$version];
else
$licence['nom'] = str_replace('@version@', $version, $licences_plugin[$nom]['nom']);
$licence['url'] = str_replace('@version@', $version, $licences_plugin[$nom]['url']);
if ($nom == 'ccby') {
if ($suffixe == '-sharealike')
$suffixe = '-sa';
if (!$suffixe OR !in_array($suffixe, $licences_plugin[$nom]['suffixes'], true))
$suffixe = '';
$licence['nom'] = str_replace('@suffixe@', strtoupper($suffixe), $licence['nom']);
$licence['url'] = str_replace('@suffixe@', $suffixe, $licence['url']);
}
}
}
return $licence;
}
/**
* Liste les librairies présentes
*
* Cherche des librairie dans tous les dossiers 'lib' présents dans chaque
* chemin déclaré (plugins, squelettes, SPIP). Un répertoire dans un dossier
* 'lib' est considéré comme une librairie, et le nom de ce répertoire est
* utilisé comme nom de la librairie.
*
* @return array
* Tableau de couples (nom de la librairie => répertoire de la librairie)
**/
function svp_lister_librairies() {
$libs = array();
foreach (array_reverse(creer_chemin()) as $d) {
if (is_dir($dir = $d.'lib/') AND $t = @opendir($dir)) {
while (($f = readdir($t)) !== false) {
if ($f[0] != '.' AND is_dir("$dir/$f"))
$libs[$f] = $dir;
}
}
}
return $libs;
}
/**
* Retourne '00x.00y.00z' à partir de 'x.y.z'
*
* Retourne la chaine de la version x.y.z sous une forme normalisée
* permettant le tri naturel. On complète à gauche d'un nombre de zéro
* manquant pour aller à 3 caractères entre chaque point.
*
* @see denormaliser_version()
* @param string $version
* Numéro de version dénormalisée
* @return string
* Numéro de version normalisée
**/
function normaliser_version($version='') {
$version_normalisee = '';
if (preg_match(',([0-9.]+)[\s-.]?(dev|alpha|a|beta|b|rc|pl|p)?,i', $version, $matches)) {
if (isset($matches[1]) and $matches[1]) {
$v = explode('.', $matches[1]);
foreach($v as $_nombre) {
$vn[] = str_pad($_nombre, 3, '0', STR_PAD_LEFT);
}
$version_normalisee = implode('.', $vn);
if (isset($matches[2]) and $matches[2])
$version_normalisee = $version_normalisee . '-' . $matches[2];
}
}
return $version_normalisee;
}
?>
Reference in a new issue View git blame Copy permalink