Bifurcation pour faire mes petits pull requests
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

299 lines
9.5 KiB

<?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2018 *
* Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
* *
* Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
* Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
\***************************************************************************/
/**
* Gestion d'administration d'un SPIP
*
* @param SPIP\Core\Admin
**/
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
/**
* Teste qu'un utilisateur a des droits sur les fichiers du site et
* exécute l'action (en base) demandée si c'est le cas.
*
* Demande / vérifie le droit de création de répertoire par le demandeur;
* Mémorise dans les meta que ce script est en cours d'exécution.
* Si elle y est déjà c'est qu'il y a eu suspension du script, on reprend.
*
* @uses debut_admin()
* @uses admin_verifie_session()
* @uses fin_admin()
*
* @param string $script
* Script d'action (en base) à exécuter si on a des droits d'accès aux fichiers
* @param string $titre
* Titre de l'action demandée
* @param string $comment
* Commentaire supplémentaire
* @param bool $anonymous
* ?
* @return string
* Code HTML de la page (pour vérifier les droits),
* sinon code HTML de la page après le traitement effectué.
**/
function inc_admin_dist($script, $titre, $comment = '', $anonymous = false) {
$reprise = true;
if (!isset($GLOBALS['meta'][$script])
or !isset($GLOBALS['meta']['admin'])
) {
$reprise = false;
$res = debut_admin($script, $titre, $comment);
if ($res) {
return $res;
}
spip_log("meta: $script " . join(',', $_POST));
ecrire_meta($script, serialize($_POST));
}
$res = admin_verifie_session($script, $anonymous);
if ($res) {
return $res;
}
$base = charger_fonction($script, 'base');
$base($titre, $reprise);
fin_admin($script);
return '';
}
/**
* Gestion dans la meta "admin" du script d'administation demandé,
* pour éviter des exécutions en parallèle, notamment après Time-Out.
*
* Cette meta contient le nom du script et, à un hachage près, du demandeur.
* Le code de ecrire/index.php dévie toute demande d'exécution d'un script
* vers le script d'administration indiqué par cette meta si elle est là.
*
* Au niveau de la fonction inc_admin, on controle la meta 'admin'.
*
* - Si la meta n'est pas là, c'est le début on la crée.
* - Sinon, si le hachage actuel est le même que celui en base,
* c'est une reprise, on continue.
* - Sinon, si le hachage diffère à cause du connect, c'est une arrivée
* inoppotune, on refuse sa connexion.
* - Enfin, si hachage diffère pour une autre raison, c'est que l'operation
* se passe mal, on la stoppe
*
* @uses fichier_admin()
*
* @param string $script
* Script d'action (en base)
* @param bool $anonymous
* ?
* @return string
* Code HTML si message d'erreur, '' sinon;
*/
function admin_verifie_session($script, $anonymous = false) {
include_spip('base/abstract_sql');
$pref = sprintf('_%d_', $GLOBALS['visiteur_session']['id_auteur']);
$signal = fichier_admin($script, "$script$pref");
$valeur = sql_getfetsel('valeur', 'spip_meta', "nom='admin'");
if ($valeur === null) {
ecrire_meta('admin', $signal, 'non');
} else {
if (!$anonymous and ($valeur != $signal)) {
if (!preg_match('/^(.*)_(\d+)_/', $GLOBALS['meta']['admin'], $l)
or intval($l[2]) != $GLOBALS['visiteur_session']['id_auteur']
) {
include_spip('inc/minipres');
spip_log("refus de lancer $script, priorite a $valeur");
return minipres(_T('info_travaux_texte'), '', array('status' => 503));
}
}
}
$journal = 'spip';
if (autoriser('configurer')) {
// c'est une action webmestre, soit par ftp soit par statut webmestre
$journal = 'webmestre';
}
// on pourrait statuer automatiquement les webmestres a l'init d'une action auth par ftp ... ?
spip_log("admin $pref" . ($valeur ? ' (reprise)' : ' (init)'), $journal);
return '';
}
/**
* Retourne l'emplacement du répertoire où sera testé l'accès utilisateur
*
* Dans le répertoire temporaire si on est admin, sinon dans le répertoire
* de transfert des admins restreints
*
* @return string
* Chemin du répertoire.
**/
function dir_admin() {
if (autoriser('configurer')) {
return _DIR_TMP;
} else {
return _DIR_TRANSFERT . $GLOBALS['visiteur_session']['login'] . '/';
}
}
/**
* Retourne le nom d'un fichier de teste d'authentification par accès
* aux fichiers
*
* Le nom calculé est un hash basé sur l’heure, l’action et l’auteur.
*
* @param string $action
* Nom du script d'action (en base)
* @param string $pref
* Préfixe au nom du fichier calculé
* @return string
* Nom du fichier
**/
function fichier_admin($action, $pref = 'admin_') {
return $pref .
substr(md5($action . (time() & ~2047) . $GLOBALS['visiteur_session']['login']), 0, 10);
}
/**
* Demande la création d'un répertoire (pour tester l'accès de l'utilisateur)
* et sort ou quitte sans rien faire si le répertoire est déjà là.
*
* Si l'on est webmestre, la plupart des actions n'ont pas besoin
* de tester la création du répertoire (toutes sauf repair ou delete_all).
* On considère qu'un webmestre a déjà du prouver ses droits sur les fichiers.
* Dans ce cas, on quitte sans rien faire également.
*
* @uses dir_admin()
* @uses fichier_admin()
*
* @param string $script
* Script d'action (en base) à exécuter ensuite
* @param string $action
* Titre de l'action demandée
* @param string $corps
* Commentaire supplémentaire
* @return string
* Code HTML de la page (pour vérifier les droits),
* sinon chaîne vide si déjà fait.
**/
function debut_admin($script, $action = '', $corps = '') {
if ((!$action) || !(autoriser('webmestre') or autoriser('chargerftp'))) {
include_spip('inc/minipres');
return minipres();
} else {
$dir = dir_admin();
$signal = fichier_admin($script);
if (@file_exists($dir . $signal)) {
spip_log("Action admin: $action");
return '';
}
include_spip('inc/minipres');
// Si on est un super-admin, un bouton de validation suffit
// sauf dans les cas destroy
if ((autoriser('webmestre') or $script === 'repair')
and $script != 'delete_all'
) {
if (_request('validation_admin') == $signal) {
spip_log("Action super-admin: $action");
return '';
}
$corps .= '<input type="hidden" name="validation_admin" value="' . $signal . '" />';
$suivant = _T('bouton_valider');
$js = '';
} else {
// cet appel permet d'assurer un copier-coller du nom du repertoire a creer dans tmp (esj)
// l'insertion du script a cet endroit n'est pas xhtml licite
// mais evite de l'embarquer dans toutes les pages minipres
$corps .= http_script('', 'spip_barre.js');
$corps .= '<fieldset><legend>'
. _T('info_authentification_ftp')
. aider('ftp_auth')
. "</legend>\n<label for='fichier'>"
. _T('info_creer_repertoire')
. "</label>\n"
. "<span id='signal' class='formo'>" . $signal . '</span>'
. "<input type='hidden' id='fichier' name='fichier' value='"
. $signal
. "' />"
. _T('info_creer_repertoire_2', array('repertoire' => joli_repertoire($dir)))
. '</fieldset>';
$suivant = _T('bouton_recharger_page');
// code volontairement tordu:
// provoquer la copie dans le presse papier du nom du repertoire
// en remettant a vide le champ pour que ca marche aussi en cas
// de JavaScript inactif.
$js = " onload='var range=document.createRange(); var signal = document.getElementById(\"signal\"); var userSelection = window.getSelection(); range.setStart(signal,0); range.setEnd(signal,1); userSelection.addRange(range);'";
}
// admin/xxx correspond
// a exec/base_xxx de preference
// et exec/xxx sinon (compat)
if (tester_url_ecrire("base_$script")) {
$script = "base_$script";
}
$form = copy_request($script, $corps, $suivant);
$info_action = _T('info_action', array('action' => "$action"));
return minipres($info_action, $form, $js);
}
}
/**
* Clôture la phase d'administration en supprimant le répertoire
* testant l'accès au fichiers ainsi que les metas d'exécution
*
* @param string $action
* Nom de l'action (en base) qui a été exécutée
**/
function fin_admin($action) {
$signal = dir_admin() . fichier_admin($action);
spip_unlink($signal);
if ($action != 'delete_all') {
effacer_meta($action);
effacer_meta('admin');
spip_log("efface les meta admin et $action ");
}
}
/**
* Génère un formulaire avec les données postées
*
* Chaque donnée est mise en input hidden pour
* les soumettre avec la validation du formulaire.
*
* @param string $script
* Nom du script (pour l'espace privé) de destination
* @param string $suite
* Corps du formulaire
* @param string $submit
* Texte du bouton de validation
* @return string
* Code HTML du formulaire
**/
function copy_request($script, $suite, $submit = '') {
include_spip('inc/filtres');
foreach (array_merge($_POST, $_GET) as $n => $c) {
if (!in_array($n, array('fichier', 'exec', 'validation_admin')) and !is_array($c)) {
$suite .= "\n<input type='hidden' name='" . spip_htmlspecialchars($n) . "' value='" .
entites_html($c) .
"' />";
}
}
return generer_form_ecrire($script, $suite, '', $submit);
}