3 * Gestion de l'action teleporter
5 * @plugin SVP pour SPIP
7 * @package SPIP\SVP\Actions
12 * Téléporter et déballer un composant
14 * @param string $methode
16 * @param string $source
17 * URL source du composant
19 * Chemin du répertoire où déballer le composant. Inclus le dernier segment
20 * @param array $options
24 * String : texte d'une erreur
25 * true si l'opération est correctement réalisée
27 function action_teleporter_composant_dist($methode,$source,$dest,$options=array()){
28 # Si definie a '', le chargeur est interdit ; mais on n'aurait de toutes
29 # facons jamais pu venir ici avec toutes les securisations faites :^)
31 if (!preg_match(','.substr(_DIR_LIB
,0,-1).',',$dest) && !_DIR_PLUGINS_AUTO
)
32 die('Vous ne pouvez pas télécharger, absence de _DIR_PLUGINS_AUTO');
34 // verifier que la methode est connue
35 if (!$teleporter = charger_fonction($methode,"teleporter",true)){
36 spip_log("Methode $methode inconnue pour teleporter $source vers $dest","teleport"._LOG_ERREUR
);
37 return _T('svp:erreur_teleporter_methode_inconue',array('methode' => $methode));
40 if (!$dest = teleporter_verifier_destination($d = $dest)){
41 spip_log("Rerpertoire $d non accessible pour teleporter $source vers $d","teleport"._LOG_ERREUR
);
42 return _T('svp:erreur_teleporter_destination_erreur',array('dir' => $d));
43 #$texte = "<p>"._T('plugin_erreur_droit1',array('dest'=>$dest))."</p>"
44 # . "<p>"._T('plugin_erreur_droit2').aide('install0')."</p>";
47 # destination temporaire des fichiers si besoin
48 $options['dir_tmp'] = sous_repertoire(_DIR_CACHE
, 'chargeur');
50 return $teleporter($methode,$source,$dest,$options);
55 * Vérifier et préparer l'arborescence jusqu'au répertoire parent
59 * false en cas d'échec
60 * Chemin du répertoire sinon
62 function teleporter_verifier_destination($dest){
63 $dest = rtrim($dest,"/");
64 $final = basename($dest);
65 $base = dirname($dest);
67 // on cree tout le chemin jusqu'a dest non inclus
68 while (!is_dir($base)){
69 $create[] = basename($base);
70 $base = dirname($base);
72 while (count($create)){
73 if (!is_writable($base))
75 $base = sous_repertoire($base,array_pop($create));
80 if (!is_writable($base))
83 return $base."/$final";
87 * Déplace un répertoire pour libérer l'emplacement.
89 * Si le répertoire donné existe, le déplace dans un répertoire de backup.
90 * Si ce backup existe déjà, il est supprimé auparavant.
91 * Retourne le nouveau chemin du répertoire.
94 * Chemin du répertoire à déplacer
96 * Nouveau chemin du répertoire s'il existait,
99 function teleporter_nettoyer_vieille_version($dest){
102 $dir = dirname($dest);
103 $base = basename($dest);
104 $old="$dir/.$base.bck";
106 supprimer_repertoire($old);