<?php

/**
 * Gestion du téléporteur HTTP \ Tar.
 *
 * @plugin SVP pour SPIP
 * @license GPL
 * @package SPIP\SVP\Teleporteur
 */

/**
 * Déballer le fichier au format tgz dans le répertoire $dest
 * en utilisant le dossier temporaire $tmp si besoin
 *
 * @uses  teleporter_http_charger_tgz()
 * @param string $archive
 *     Chemin du fichier tgz
 * @param string $dest
 *     Répertoire où on veut décompresser
 * @param string $tmp
 *     Répertoire de stockage temporaire
 * @return bool|string
 *     Répertoire où a été décompressé le tgz, false sinon.
 */
function teleporter_http_deballe_tgz_dist($archive, $dest, $tmp) {

	$status = teleporter_http_charger_tgz(
		[
			'archive' => $archive, // normalement l'url source mais on l'a pas ici
			'fichier' => $archive,
			'dest' => $dest,
			'tmp' => $tmp,
			'extract' => true,
			'root_extract' => true, # extraire a la racine de dest
		]
	);
	// le fichier .zip est la et bien forme
	if (
		is_array($status)
		and is_dir($status['target'])
	) {
		return $status['target'];
	} // fichier absent
	else {
		if ($status == -1) {
			spip_log("dezip de $archive impossible : fichier absent", 'teleport' . _LOG_ERREUR);

			return false;
		} // fichier la mais pas bien dezippe
		else {
			spip_log("probleme lors du dezip de $archive", 'teleport' . _LOG_ERREUR);

			return false;
		}
	}
}

/**
 * Charger un tgz à partir d'un tableau d'options descriptives
 *
 * @uses Spip\Archives\SpipArchives
 *
 * @param array $quoi
 *     Tableau d'options
 * @return array|bool|int|string
 *     En cas de réussite, Tableau décrivant le zip, avec les index suivant :
 *     - files : la liste des fichiers présents dans le zip,
 *     - size : la taille décompressée
 *     - compressed_size : la taille compressée
 *     - dirname : répertoire où les fichiers devront être décompréssés
 *     - tmpname : répertoire temporaire où les fichiers sont décompressés
 *     - target : cible sur laquelle décompresser les fichiers...
 */
function teleporter_http_charger_tgz($quoi = []) {
	if (!$quoi) {
		return false;
	}

	foreach (
		[
			'remove' => '',
			'rename' => [],
			'edit' => [],
			'root_extract' => false, # extraire a la racine de dest ?
			'tmp' => sous_repertoire(_DIR_CACHE, 'chargeur'),
		] as $opt => $def
	) {
		isset($quoi[$opt]) || ($quoi[$opt] = $def);
	}

	if (!@file_exists($fichier = $quoi['fichier'])) {
		return 0;
	}

	include_spip('inc/archives');
	$zip = new Spip\Archives\SpipArchives($fichier);

	if (!$infos = $zip->informer()) {
		spip_log(
			'charger_decompresser erreur tar ' . $zip->erreur() . ' ' . $zip->message() . ' pour paquet: ' . $quoi['archive'],
			'teleport' . _LOG_ERREUR
		);

		return $zip->message();
	}

	$racine = $infos['proprietes']['racine'];
	$quoi['remove'] = $racine;

	// si pas de racine commune, reprendre le nom du fichier zip
	// en lui enlevant la racine h+md5 qui le prefixe eventuellement
	// cf action/charger_plugin L74
	if (!strlen($nom = basename($racine))) {
		$nom = preg_replace(',^h[0-9a-f]{8}-,i', '', basename($fichier, '.tgz'));
	}

	$dir_export = $quoi['root_extract']
		? $quoi['dest']
		: $quoi['dest'] . $nom;
	$dir_export = rtrim($dir_export, '/') . '/';

	$tmpname = $quoi['tmp'] . $nom . '/';

	// choisir la cible selon si on veut vraiment extraire ou pas
	$target = $quoi['extract'] ? $dir_export : $tmpname;

	// ici, il faut vider le rep cible si il existe deja, non ?
	if (is_dir($target)) {
		supprimer_repertoire($target);
	}

	if (!$racine) {
		// mais creer le repertoire vide
		$target = sous_repertoire(dirname($target), basename($target));
		$ok = $zip->deballer($target);
	} else {
		$tmp = sous_repertoire(dirname($target), '_tmp');
		$ok = $zip->deballer($tmp);
		if ($ok) {
			rename($tmp . $racine, $target);
			supprimer_repertoire($tmp);
		}
	}

	if (!$ok) {
		spip_log(
			'charger_decompresser erreur tar ' . $zip->erreur() . ' ' . $zip->message() . ' pour paquet: ' . $quoi['archive'],
			'teleport' . _LOG_ERREUR
		);

		return $zip->message();
	}

	spip_log('charger_decompresser OK pour paquet: ' . $quoi['archive'], 'teleport');

	$size = 0;
	$list = [];
	foreach ($infos['fichiers'] as $k => $f) {
		$size += $f['size'];
		$filename = $f['filename'];
		if ($infos['proprietes']['racine'] and strpos($filename, (string) $infos['proprietes']['racine']) === 0) {
			$filename = substr($filename, strlen($infos['proprietes']['racine']));
		}
		$list[] = $filename;
	}

	// Indiquer par un fichier install.log
	// a la racine que c'est chargeur qui a installe ce plugin
	ecrire_fichier(
		$target . 'install.log',
		"installation: charger_plugin\n"
		. 'date: ' . gmdate('Y-m-d\TH:i:s\Z', time()) . "\n"
		. 'source: ' . $quoi['archive'] . "\n"
	);

	return [
		'files' => $list,
		'size' => $size,
		'compressed_size' => 0,
		'dirname' => $dir_export,
		'tmpname' => $tmpname,
		'target' => $target,
	];
}
