Server : Apache System : Linux webd348.cluster026.gra.hosting.ovh.net 5.15.148-ovh-vps-grsec-zfs-classid #1 SMP Thu Feb 8 09:41:04 UTC 2024 x86_64 User : hednacluml ( 122243) PHP Version : 8.3.9 Disable Function : _dyuweyrj4,_dyuweyrj4r,dl Directory :  /home/hednacluml/unienfants/plugins-dist/svp/teleporter/

Upload File : current_dir [ Writeable ] document_root [ Writeable ]

<?php

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

if (!defined('_SVN_COMMAND')) {
	define('_SVN_COMMAND', 'svn');
} // Securite : mettre le chemin absolu dans mes_options.php

/**
 * Téléporter et déballer un composant SVN
 *
 * Déployer un repository SVN depuis une source et une révision données
 *
 * @uses  teleporter_svn_read()
 * @uses  teleporter_nettoyer_vieille_version()
 *
 * @param string $methode
 *     Méthode de téléportation : http|git|svn|...
 * @param string $source
 *     URL de la source SVN
 * @param string $dest
 *     Chemin du répertoire de destination
 * @param array $options
 *     Tableau d'options. Index possibles :
 *     - revision => 'nnn'
 *     - literal => --ignore-externals
 * @return bool
 *     True si l'opération réussie, false sinon.
 */
function teleporter_svn_dist($methode, $source, $dest, $options = []) {
	if (is_dir($dest)) {
		$infos = teleporter_svn_read($dest);
		if (!$infos) {
			spip_log("Suppression de $dest qui n'est pas au format SVN", 'teleport');
			$old = teleporter_nettoyer_vieille_version($dest);
		} elseif ($infos['source'] !== $source) {
			spip_log("Suppression de $dest qui n'est pas sur le bon repository SVN", 'teleport');
			$old = teleporter_nettoyer_vieille_version($dest);
		} elseif (
			!isset($options['revision'])
			or $options['revision'] != $infos['revision']
		) {
			$command = _SVN_COMMAND . ' up ';
			if (isset($options['revision'])) {
				$command .= escapeshellarg('-r' . $options['revision']) . ' ';
			}
			if (isset($options['ignore-externals'])) {
				$command .= '--ignore-externals ';
			}

			$command .= escapeshellarg($dest);
			spip_log($command, 'teleport');
			exec($command);
		} else {
			// Rien a faire !
			spip_log("$dest deja a jour (Revision " . $options['revision'] . " SVN de $source)", 'teleport');
		}
	}

	if (!is_dir($dest)) {
		$command = _SVN_COMMAND . ' co ';
		if (isset($options['revision'])) {
			$command .= escapeshellarg('-r' . $options['revision']) . ' ';
		}
		if (isset($options['ignore-externals'])) {
			$command .= '--ignore-externals ';
		}
		$command .= escapeshellarg($source) . ' ' . escapeshellarg($dest);
		spip_log($command, 'teleport');
		exec($command);
	}

	// verifier que tout a bien marche
	$infos = teleporter_svn_read($dest);
	if (!$infos) {
		return false;
	}

	return true;
}

/**
 * Lire source et révision d'un répertoire SVN
 * et reconstruire la ligne de commande
 *
 * @param string $dest
 *     Chemin du répertoire SVN
 * @param array $options
 *     Options
 * @return array|string
 *     Chaîne vide si pas SVN ou erreur de lecture,
 *     Tableau sinon avec les index :
 *     - source : URL de la source SVN
 *     - revision : numéro de la révision SVN
 *     - dest : Chemin du répertoire
 */
function teleporter_svn_read($dest, $options = []) {

	if (!is_dir("$dest/.svn")) {
		return '';
	}

	// on veut lire ce qui est actuellement deploye
	// et reconstituer la ligne de commande pour le deployer
	exec(_SVN_COMMAND . ' info ' . escapeshellarg($dest), $output);
	$output = implode("\n", $output);

	// URL
	// URL: svn://trac.rezo.net/spip/spip
	if (!preg_match(',^URL[^:\w]*:\s+(.*)$,Uims', $output, $m)) {
		return '';
	}
	$source = $m[1];

	// Revision
	// Revision: 18763
	if (!preg_match(',^R..?vision[^:\w]*:\s+(\d+)$,Uims', $output, $m)) {
		return '';
	}

	$revision = $m[1];

	return [
		'source' => $source,
		'revision' => $revision,
		'dest' => $dest
	];
}


/**
 * Tester si la commande 'svn' est disponible
 *
 * @return bool
 *     true si on peut utiliser la commande svn
 **/
function teleporter_svn_tester() {
	static $erreurs = null;
	if (is_null($erreurs)) {
		exec(_SVN_COMMAND . ' --version', $output, $erreurs);
	}

	return !$erreurs;
}