3 * Gestion du téléporteur HTTP \ Zip.
5 * @plugin SVP pour SPIP
7 * @package SPIP\SVP\Teleporteur
12 * Déballer le fichier au format zip dans le répertoire $dest
13 * en utilisant le dossier temporaire $tmp si besoin
15 * @param string $archive
16 * Chemin du fichier zip
18 * Répertoire où on veut décompresser
20 * Répertoire de stockage temporaire
22 * Répertoire où a été décompressé le zip, false sinon.
24 function teleporter_http_deballe_zip_dist($archive, $dest, $tmp){
25 $status = teleporter_http_charger_zip(
27 'archive' => $archive, // normalement l'url source mais on l'a pas ici
28 'fichier' => $archive,
32 'root_extract' => true, # extraire a la racine de dest
35 // le fichier .zip est la et bien forme
37 AND is_dir($status['target'])) {
38 return $status['target'];
41 else if ($status == -1) {
42 spip_log("dezip de $archive impossible : fichier absent","teleport"._LOG_ERREUR
);
45 // fichier la mais pas bien dezippe
47 spip_log("probleme lors du dezip de $archive","teleport"._LOG_ERREUR
);
54 * Charger un zip à partir d'un tableau d'options descriptives
58 * @return array|bool|int|string
59 * En cas de réussite, Tableau décrivant le zip, avec les index suivant :
60 * - files : la liste des fichiers présents dans le zip,
61 * - size : la taille décompressée
62 * - compressed_size : la taille compressée
63 * - dirname : répertoire où les fichiers devront être décompréssés
64 * - tmpname : répertoire temporaire où les fichiers sont décompressés
65 * - target : cible sur laquelle décompresser les fichiers...
67 function teleporter_http_charger_zip($quoi = array()){
71 foreach (array( 'remove' => 'spip',
74 'root_extract' => false, # extraire a la racine de dest ?
75 'tmp' => sous_repertoire(_DIR_CACHE
, 'chargeur')
78 isset($quoi[$opt]) ||
($quoi[$opt] = $def);
81 if (!@file_exists
($fichier = $quoi['fichier']))
84 include_spip('inc/pclzip');
85 $zip = new PclZip($fichier);
86 $list = $zip->listContent();
88 $racine = http_deballe_recherche_racine($list);
89 $quoi['remove'] = $racine;
91 // si pas de racine commune, reprendre le nom du fichier zip
92 // en lui enlevant la racine h+md5 qui le prefixe eventuellement
93 // cf action/charger_plugin L74
94 if (!strlen($nom = basename($racine)))
95 $nom = preg_replace(",^h[0-9a-f]{8}-,i","",basename($fichier, '.zip'));
97 $dir_export = $quoi['root_extract']
99 : $quoi['dest'] . $nom;
100 $dir_export = rtrim($dir_export,'/').'/';
102 $tmpname = $quoi['tmp'].$nom.'/';
104 // choisir la cible selon si on veut vraiment extraire ou pas
105 $target = $quoi['extract'] ?
$dir_export : $tmpname;
107 // ici, il faut vider le rep cible si il existe deja, non ?
109 supprimer_repertoire($target);
111 // et enfin on extrait
116 PCLZIP_OPT_SET_CHMOD
, _SPIP_CHMOD
,
117 PCLZIP_OPT_REPLACE_NEWER
,
118 PCLZIP_OPT_REMOVE_PATH
, $quoi['remove']
120 if ($zip->error_code
< 0) {
121 spip_log('charger_decompresser erreur zip ' . $zip->error_code
.' pour paquet: ' . $quoi['archive'],"teleport"._LOG_ERREUR
);
122 return //$zip->error_code
123 $zip->errorName(true);
126 spip_log('charger_decompresser OK pour paquet: ' . $quoi['archive'],"teleport");
128 $size = $compressed_size = 0;
129 $removex = ',^'.preg_quote($quoi['remove'], ',').',';
130 foreach ($list as $a => $f) {
132 $compressed_size +
= $f['compressed_size'];
133 $list[$a] = preg_replace($removex,'',$f['filename']);
136 // Indiquer par un fichier install.log
137 // a la racine que c'est chargeur qui a installe ce plugin
138 ecrire_fichier($target.'install.log',
139 "installation: charger_plugin\n"
140 ."date: ".gmdate('Y-m-d\TH:i:s\Z', time())."\n"
141 ."source: ".$quoi['archive']."\n"
148 'compressed_size' => $compressed_size,
149 'dirname' => $dir_export,
150 'tmpname' => $tmpname,