3 * Gestion du téléporteur HTTP.
5 * @plugin SVP pour SPIP
7 * @package SPIP\SVP\Teleporteur
11 * Téléporter et déballer un composant HTTP
13 * @param string $methode
14 * Méthode de téléportation : http|git|svn|...
15 * @param string $source
16 * URL de la source HTTP
18 * Chemin du répertoire de destination
19 * @param array $options
21 * Doit au moins avoir l'index :
22 * - dir_tmp : Indique un répertoire temporaire pour stocker
23 * les fichiers. Par exemple défini avec : sous_repertoire(_DIR_CACHE, 'chargeur');
25 * Texte d'erreur si erreur,
26 * True si l'opération réussie.
28 function teleporter_http_dist($methode,$source,$dest,$options=array()){
30 $tmp = $options['dir_tmp'];
31 # on ne se contente pas du basename qui peut etre un simple v1
32 # exemple de l'url http://nodeload.github.com/kbjr/Git.php/zipball/v0.1.1-rc
33 $fichier = $tmp . (basename($dest)."-".substr(md5($source),0,8)."-".basename($source));
35 $res = teleporter_http_recuperer_source($source,$fichier);
39 list($fichier,$extension) = $res;
40 if (!$deballe = charger_fonction("http_deballe_".preg_replace(",\W,","_",$extension),"teleporter",true))
41 return _T('svp:erreur_teleporter_format_archive_non_supporte',array('extension' => $extension));
43 $old = teleporter_nettoyer_vieille_version($dest);
45 if (!$target = $deballe($fichier, $dest, $tmp)){
46 // retablir l'ancien sinon
49 return _T('svp:erreur_teleporter_echec_deballage_archive',array('fichier' => $fichier));
56 * Récupérer la source et détecter son extension
58 * @param string $source
59 * URL de la source HTTP
60 * @param string $dest_tmp
61 * Répertoire de destination
62 * @return array|string
63 * - Texte d'erreur si une erreur survient,
64 * - Liste sinon (répertoire de destination temporaire, extension du fichier source)
66 function teleporter_http_recuperer_source($source,$dest_tmp){
68 # securite : ici on repart toujours d'une source neuve
69 if (file_exists($dest_tmp))
70 spip_unlink($dest_tmp);
74 # si on ne dispose pas encore du fichier
75 # verifier que le zip en est bien un (sans se fier a son extension)
76 # en chargeant son entete car l'url initiale peut etre une simple
77 # redirection et ne pas comporter d'extension .zip
78 include_spip('inc/distant');
79 $head = recuperer_page($source, false, true, 0);
81 if (preg_match(",^Content-Type:\s*?(.*)$,Uims",$head,$m)
82 AND include_spip('base/typedoc')){
84 // passer du mime a l'extension !
85 if ($e = array_search($mime,$GLOBALS['tables_mime']))
90 // cas des extensions incertaines car mime-type ambigu
91 OR in_array($extension,array('bin','gz'))){
92 if (preg_match(",^Content-Disposition:\s*attachment;\s*filename=(.*)['\"]?$,Uims",$head,$m)
93 AND $e=teleporter_http_extension($m[1])){
96 // au cas ou, si le content-type n'est pas la
97 // mais que l'extension est explicite
99 $extension = teleporter_http_extension($source);
103 # format de fichier inconnu
105 spip_log("Type de fichier inconnu pour la source $source","teleport"._LOG_ERREUR
);
106 return _T('svp:erreur_teleporter_type_fichier_inconnu',array('source' => $source));
109 $dest_tmp = preg_replace(";\.[\w]{2,3}$;i","",$dest_tmp).".$extension";
111 include_spip('inc/distant');
112 $dest_tmp = copie_locale($source,'force',$dest_tmp);
114 OR !file_exists($dest_tmp = _DIR_RACINE
. $dest_tmp)) {
115 spip_log("Chargement impossible de la source $source","teleport"._LOG_ERREUR
);
116 return _T('svp:erreur_teleporter_chargement_source_impossible',array('source' => $source));
119 return array($dest_tmp,$extension);
123 * Retrouve l'extension d'un fichier
126 * Retourne tgz pour un fichier .tar.gz
128 * @param string $file
131 * Extension du fichier, sinon vide
133 function teleporter_http_extension($file){
134 $e = pathinfo($file, PATHINFO_EXTENSION
);
136 // cas particuliers : redresser .tar.gz
138 AND preg_match(',tar\.gz,i',$file))
145 * Cherche la plus longue racine commune à tous les fichiers
148 * Liste de chemin de fichiers
150 * Chemin commun entre tous les fichiers
152 function http_deballe_recherche_racine($list){
153 // on cherche la plus longue racine commune a tous les fichiers
154 // pour l'enlever au deballage
157 foreach($list as $n) {
159 foreach(explode('/', $n['filename']) as $n => $x) {
162 $sofar = join('/',$p);
163 $paths[$n][$sofar]++
;
166 $max_n = min($n,$max_n);
169 $total = $paths[0][''];
171 while (isset($paths[$i])
172 AND count($paths[$i]) <= 1
173 AND array_values($paths[$i]) == array($total))
178 $racine = array_keys($paths[$i-1]);
179 $racine = array_pop($racine).'/';