4 * Fichier permettant de calculer les données SQL à insérer
5 * à partir d'une arbre de description originaire d'un plugin.xml
7 * @plugin SVP pour SPIP
9 * @package SPIP\SVP\Plugins
12 if (!defined('_ECRIRE_INC_VERSION')) return;
15 * Pour une description de plugin donnée (issue de la dtd de plugin.xml),
16 * prépare les données à installer en bdd
18 * Les données sont parfois sérialisées, parfois transcodées, parfois compilées
19 * pour tenir compte des spécificités de cette DTD et du stockage en bdd.
21 * @param array $plugin
22 * Description de plugin
24 * Couples clés => valeurs de description du paquet
26 function plugins_preparer_sql_plugin($plugin)
28 include_spip('inc/svp_outiller');
34 // On initialise les champs ne necessitant aucune transformation
35 $champs['categorie'] = (isset($plugin['categorie']) and $plugin['categorie']) ?
$plugin['categorie'] : '';
36 $champs['etat'] = (isset($plugin['etat']) and $plugin['etat']) ?
$plugin['etat'] : '';
37 $champs['version'] = $plugin['version'] ?
normaliser_version($plugin['version']) : '';
38 $champs['version_base'] = (isset($plugin['schema']) and $plugin['schema']) ?
$plugin['schema'] : '';
40 // Renommage de certains champs
41 $champs['logo'] = (isset($plugin['logo']) and $plugin['logo']) ?
$plugin['logo'] : '';
42 $champs['lien_doc'] = (isset($plugin['documentation']) and $plugin['documentation']) ?
normaliser_lien($plugin['documentation']) : '';
43 // On passe le prefixe en lettres majuscules comme ce qui est fait dans SPIP
44 // Ainsi les valeurs dans la table spip_plugins coincideront avec celles de la meta plugin
45 $champs['prefixe'] = strtoupper($plugin['prefix']);
47 // Indicateurs d'etat numerique (pour simplifier la recherche des maj de STP)
48 static $num = array('stable'=>4, 'test'=>3, 'dev'=>2, 'experimental'=>1);
49 $champs['etatnum'] = (isset($plugin['etat']) and isset($num[$plugin['etat']])) ?
$num[$plugin['etat']] : 0;
51 // Tags : liste de mots-cles
52 $champs['tags'] = (isset($plugin['tags']) and $plugin['tags']) ?
serialize($plugin['tags']) : '';
54 // On passe en utf-8 avec le bon charset les champs pouvant contenir des entites html
55 $champs['description'] = entite2charset($plugin['description']);
57 // Traitement des auteurs, credits, licences et copyright
58 // -- on extrait les auteurs, licences et copyrights sous forme de tableaux
59 // -- depuis le commit 18294 du core la balise auteur est renvoyee sous forme de tableau mais
60 // contient toujours qu'un seul index
61 $balise_auteur = entite2charset($plugin['auteur'][0]);
62 $auteurs = normaliser_auteur_licence($balise_auteur, 'auteur');
63 $balise_licence = isset($plugin['licence'][0]) ?
entite2charset($plugin['licence'][0]) : '';
64 $licences = normaliser_auteur_licence($balise_licence, 'licence');
65 // -- on merge les tableaux recuperes dans auteur et licence
66 $champs['auteur'] = $champs['licence'] = $champs['copyright'] = '';
67 if ($t = array_merge($auteurs['auteur'], $licences['auteur']))
68 $champs['auteur'] = serialize($t);
69 if ($t = array_merge($auteurs['licence'], $licences['licence']))
70 $champs['licence'] = serialize($t);
71 if ($t = array_merge($auteurs['copyright'], $licences['copyright']))
72 $champs['copyright'] = serialize($t);
74 // Extrait d'un nom et un slogan normalises
75 // Slogan : si vide on ne fait plus rien de special, on traitera ça a l'affichage
76 $champs['slogan'] = $plugin['slogan'] ?
entite2charset($plugin['slogan']) : '';
77 // Nom : on repere dans le nom du plugin un chiffre en fin de nom
78 // et on l'ampute de ce numero pour le normaliser
79 // et on passe tout en unicode avec le charset du site
80 $champs['nom'] = trim(entite2charset($plugin['nom']));
82 // Extraction de la compatibilite SPIP et construction de la liste des branches spip supportees
83 $champs['compatibilite_spip'] = ($plugin['compatibilite']) ?
$plugin['compatibilite'] : '';
84 $champs['branches_spip'] = ($plugin['compatibilite']) ?
compiler_branches_spip($plugin['compatibilite']) : '';
86 // Construction du tableau des dependances necessite, lib et utilise
87 $dependances['necessite'] = $plugin['necessite'];
88 $dependances['librairie'] = $plugin['lib'];
89 $dependances['utilise'] = $plugin['utilise'];
90 $champs['dependances'] = serialize($dependances);
92 // Champs non supportes par la DTD plugin et ne pouvant etre deduits d'autres balises
93 $champs['lien_demo'] = '';
94 $champs['lien_dev'] = '';
95 $champs['credit'] = '';
102 * Normalise un nom issu d'un plugin.xml
104 * @todo Supprimer cette fonction qui ne sert nulle part ?
108 * @param string $langue
109 * La langue à extraire
110 * @param bool $supprimer_numero
111 * Supprimer les numéros ?
115 function normaliser_nom($nom, $langue='', $supprimer_numero=true) {
116 include_spip('inc/texte');
118 // On extrait les traductions de l'eventuel multi
119 // Si le nom n'est pas un multi alors le tableau renvoye est de la forme '' => 'nom'
120 $noms = extraire_trads(str_replace(array('<multi>', '</multi>'), array(), $nom, $nbr_replace));
121 $multi = ($nbr_replace > 0 AND !$langue) ?
true : false;
124 foreach ($noms as $_lang => $_nom) {
128 if ($supprimer_numero)
129 $nbr_matches = preg_match(',(.+)(\s+[\d._]*)$,Um', $_nom, $matches);
132 if (!$langue OR $langue == $_lang OR count($noms) == 1)
133 $nouveau_nom .= (($multi) ?
'[' . $_lang . ']' : '') .
134 (($nbr_matches > 0) ?
trim($matches[1]) : $_nom);
138 // On renvoie un nouveau nom multi ou pas sans la valeur de la branche
139 $nouveau_nom = (($multi) ?
'<multi>' : '') . $nouveau_nom . (($multi) ?
'</multi>' : '');
146 * Normalise un lien issu d'un plugin.xml
148 * Éliminer les textes superflus dans les liens (raccourcis [XXX->http...])
149 * et normaliser l'esperluete pour éviter l'erreur d'entité indéfinie
156 function normaliser_lien($url) {
157 if (!preg_match(',https?://[^]\s]+,', $url, $r))
159 $url = str_replace('&', '&', str_replace('&', '&', $r[0]));
165 * Normalise un auteur ou une licence issue d'un plugin.xml
167 * - Élimination des multi (exclus dans la nouvelle version)
168 * - Transformation en attribut des balises A
169 * - Interprétation des balises BR et LI et de la virgule et du
170 * espace+tiret comme séparateurs
172 * @param string $texte
174 * @param string $balise
175 * Nom de la balise (auteur | licence)
177 * Tableau listant les auteurs, licences et copyright trouvés
179 function normaliser_auteur_licence($texte, $balise) {
180 include_spip('inc/filtres');
181 include_spip('inc/lien');
182 include_spip('inc/svp_outiller');
184 // On extrait le multi si besoin et on selectionne la traduction francaise
185 $t = normaliser_multi($texte);
187 $res = array('auteur' => array(), 'licence' => array(),'copyright' => array());
188 foreach(preg_split('@(<br */?>)|<li>|,|\s-|\n_*\s*|&| & | et @', $t['fr']) as $v) {
189 // On detecte d'abord si le bloc texte en cours contient un eventuel copyright
190 // -- cela generera une balise copyright et non auteur
192 if (preg_match('/(?:\©|¬©|copyright|\(c\)|©)[\s:]*([\d-]+)/i', $v, $r)) {
194 $v = str_replace($r[0], '', $v);
195 $res['copyright'][] = $copy;
198 // On detecte ensuite un lien eventuel d'un auteur
199 // -- soit sous la forme d'une href d'une ancre
200 // -- soit sous la forme d'un raccourci SPIP
201 // Dans les deux cas on garde preferentiellement le contenu de l'ancre ou du raccourci
204 if (preg_match('@<a[^>]*href=(\W)(.*?)\1[^>]*>(.*?)</a>@', $v, $r)) {
206 $v = str_replace($r[0], $r[3], $v);
208 elseif (preg_match(_RACCOURCI_LIEN
,$v, $r)) {
209 if (preg_match('/([^\w\d._-]*)(([\w\d._-]+)@([\w\d.-]+))/', $r[4], $m)) {
215 $v = ($r[1]) ?
$r[1] : str_replace($r[0], '', $v);
219 // On detecte ensuite un mail eventuel
220 if (!$mail AND preg_match('/([^\w\d._-]*)(([\w\d._-]+)@([\w\d.-]+))/', $v, $r)) {
222 $v = str_replace($r[2], '', $v);
224 // On considere alors que la premiere partie du mail peut faire office de nom d'auteur
225 if (preg_match('/(([\w\d_-]+)[.]([\w\d_-]+))@/', $r[2], $s))
226 $v = ucfirst($s[2]) . ' ' . ucfirst($s[3]);
232 // On detecte aussi si le bloc texte en cours contient une eventuelle licence
233 // -- cela generera une balise licence et non auteur
234 // cette heuristique n'est pas deterministe car la phrase de licence n'est pas connue
236 if (preg_match('/\b((gnu|free|creative\s+common|cc)*[\/|\s|-]*(apache|lgpl|agpl|gpl|fdl|mit|bsd|art\s+|attribution|by)(\s+licence|\-sharealike|-nc-nd|-nc-sa|-sa|-nc|-nd)*\s*v*(\d*[\.\d+]*))\b/i', $v, $r)) {
237 if ($licence = definir_licence($r[2], $r[3], $r[4], $r[5])) {
238 $res['licence'][] = $licence;
242 // On finalise la balise auteur ou licence si on a pas trouve de licence prioritaire
244 $href = !preg_match(',https?://,', $href, $matches) ?
"http://" . $href : $href;
245 $v = trim(textebrut($v));
246 if ((strlen($v) > 2) AND !$licence)
247 if ($balise == 'auteur')
248 $res['auteur'][] = array('nom' => $v, 'url' => $href, 'mail' => $mail);
250 $res['licence'][] = array('nom' => $v, 'url' => $href);
258 * Expanse les multi en un tableau de textes complets, un par langue
260 * @param string $texte
263 * Texte expansé par code de langue : couples (code de langue => texte)
265 function normaliser_multi($texte) {
266 include_spip('inc/filtres');
268 if (!preg_match_all(_EXTRAIRE_MULTI
, $texte, $regs, PREG_SET_ORDER
))
269 return array('fr' => $texte);
271 foreach ($regs as $reg) {
272 foreach (extraire_trads($reg[1]) as $k => $v) {
273 // Si le code de langue n'est pas precise dans le multi c'est donc fr
274 $lang = ($k) ?
$k : 'fr';
275 $trads[$lang]= str_replace($reg[0], $v, isset($trads[$k]) ?
$trads[$k] : $texte);