spip_nursit/ecrire/inc/documents.php
2023-06-01 17:30:12 +02:00

320 lines
7.8 KiB
PHP

<?php
/***************************************************************************\
* SPIP, Systeme de publication pour l'internet *
* *
* Copyright (c) 2001-2019 *
* 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 des documents et de leur emplacement sur le serveur
*
* @package SPIP\Core\Documents
*/
if (!defined('_ECRIRE_INC_VERSION')) {
return;
}
/**
* Donne le chemin du fichier relatif à `_DIR_IMG`
* pour stockage 'tel quel' dans la base de données
*
* @uses _DIR_IMG
*
* @param string $fichier
* @return string
*/
function set_spip_doc($fichier) {
if (strpos($fichier, _DIR_IMG) === 0) {
return substr($fichier, strlen(_DIR_IMG));
} else {
return $fichier;
} // ex: fichier distant
}
/**
* Donne le chemin complet du fichier
*
* @uses _DIR_IMG
*
* @param string $fichier
* @return bool|string
*/
function get_spip_doc($fichier) {
// fichier distant
if (tester_url_absolue($fichier)) {
return $fichier;
}
// gestion d'erreurs, fichier=''
if (!strlen($fichier)) {
return false;
}
$fichier = (
strncmp($fichier, _DIR_IMG, strlen(_DIR_IMG)) != 0
)
? _DIR_IMG . $fichier
: $fichier;
// fichier normal
return $fichier;
}
/**
* Créer un sous-répertoire IMG/$ext/ tel que IMG/pdf
*
* @uses sous_repertoire()
* @uses _DIR_IMG
* @uses verifier_htaccess()
*
* @param string $ext
* @return string
*/
function creer_repertoire_documents($ext) {
$rep = sous_repertoire(_DIR_IMG, $ext);
if (!$ext or !$rep) {
spip_log("creer_repertoire_documents '$rep' interdit");
exit;
}
// Cette variable de configuration peut etre posee par un plugin
// par exemple acces_restreint
if (isset($GLOBALS['meta']["creer_htaccess"]) and $GLOBALS['meta']["creer_htaccess"] == 'oui') {
include_spip('inc/acces');
verifier_htaccess($rep);
}
return $rep;
}
/**
* Efface le répertoire de manière récursive !
*
* @param string $nom
*/
function effacer_repertoire_temporaire($nom) {
if ($d = opendir($nom)) {
while (($f = readdir($d)) !== false) {
if (is_file("$nom/$f")) {
spip_unlink("$nom/$f");
} else {
if ($f <> '.' and $f <> '..'
and is_dir("$nom/$f")
) {
effacer_repertoire_temporaire("$nom/$f");
}
}
}
}
closedir($d);
@rmdir($nom);
}
//
/**
* Copier un document `$source` un dossier `IMG/$ext/$orig.$ext`
* en numérotant éventuellement si un fichier de même nom existe déjà
*
* @param string $ext
* @param string $orig
* @param string $source
* @return bool|mixed|string
*/
function copier_document($ext, $orig, $source) {
$orig = preg_replace(',\.\.+,', '.', $orig); // pas de .. dans le nom du doc
$dir = creer_repertoire_documents($ext);
$dest = preg_replace("/[^.=\w-]+/", "_",
translitteration(preg_replace("/\.([^.]+)$/", "",
preg_replace("/<[^>]*>/", '', basename($orig)))));
// ne pas accepter de noms de la forme -r90.jpg qui sont reserves
// pour les images transformees par rotation (action/documenter)
$dest = preg_replace(',-r(90|180|270)$,', '', $dest);
while (preg_match(",\.(\w+)$,", $dest, $m)) {
if (!function_exists('verifier_upload_autorise')
or !$r = verifier_upload_autorise($dest)
or $r['autozip']) {
$dest = substr($dest, 0, -strlen($m[0])) . '_' . $m[1];
break;
}
else {
$dest = substr($dest, 0, -strlen($m[0]));
$ext = $m[1] . "." . $ext;
}
}
// Si le document "source" est deja au bon endroit, ne rien faire
if ($source == ($dir . $dest . '.' . $ext)) {
return $source;
}
// sinon tourner jusqu'a trouver un numero correct
$n = 0;
while (@file_exists($newFile = $dir . $dest . ($n++ ? ('-' . $n) : '') . '.' . $ext)) {
;
}
return deplacer_fichier_upload($source, $newFile);
}
/**
* Trouver le dossier utilisé pour upload un fichier
*
* @uses autoriser()
* @uses _DIR_TRANSFERT
* @uses _DIR_TMP
* @uses sous_repertoire()
*
* @param string $type
* @return bool|string
*/
function determine_upload($type = '') {
if (!function_exists('autoriser')) {
include_spip('inc/autoriser');
}
if (!autoriser('chargerftp')
or $type == 'logos'
) # on ne le permet pas pour les logos
{
return false;
}
$repertoire = _DIR_TRANSFERT;
if (!@is_dir($repertoire)) {
$repertoire = str_replace(_DIR_TMP, '', $repertoire);
$repertoire = sous_repertoire(_DIR_TMP, $repertoire);
}
if (!$GLOBALS['visiteur_session']['restreint']) {
return $repertoire;
} else {
return sous_repertoire($repertoire, $GLOBALS['visiteur_session']['login']);
}
}
/**
* Déplacer ou copier un fichier
*
* @uses _DIR_RACINE
* @uses spip_unlink()
*
* @param string $source
* Fichier source à copier
* @param string $dest
* Fichier de destination
* @param bool $move
* - `true` : on déplace le fichier source vers le fichier de destination
* - `false` : valeur par défaut. On ne fait que copier le fichier source vers la destination.
* @return bool|mixed|string
*/
function deplacer_fichier_upload($source, $dest, $move = false) {
// Securite
if (substr($dest, 0, strlen(_DIR_RACINE)) == _DIR_RACINE) {
$dest = _DIR_RACINE . preg_replace(',\.\.+,', '.', substr($dest, strlen(_DIR_RACINE)));
} else {
$dest = preg_replace(',\.\.+,', '.', $dest);
}
if ($move) {
$ok = @rename($source, $dest);
} else {
$ok = @copy($source, $dest);
}
if (!$ok) {
$ok = @move_uploaded_file($source, $dest);
}
if ($ok) {
@chmod($dest, _SPIP_CHMOD & ~0111);
} else {
$f = @fopen($dest, 'w');
if ($f) {
fclose($f);
} else {
include_spip('inc/flock');
raler_fichier($dest);
}
spip_unlink($dest);
}
return $ok ? $dest : false;
}
/**
* Erreurs d'upload
*
* Renvoie `false` si pas d'erreur
* et `true` s'il n'y a pas de fichier à uploader.
* Pour les autres erreurs, on affiche le message d'erreur et on arrête l'action.
*
* @link http://php.net/manual/fr/features.file-upload.errors.php
* Explication sur les messages d'erreurs de chargement de fichiers.
* @uses propre()
* @uses minipres()
*
* @global string $spip_lang_right
* @param integer $error
* @param string $msg
* @param bool $return
* @return boolean|string
*/
function check_upload_error($error, $msg = '', $return = false) {
if (!$error) {
return false;
}
spip_log("Erreur upload $error -- cf. http://php.net/manual/fr/features.file-upload.errors.php");
switch ($error) {
case 4: /* UPLOAD_ERR_NO_FILE */
return true;
# on peut affiner les differents messages d'erreur
case 1: /* UPLOAD_ERR_INI_SIZE */
$msg = _T('upload_limit',
array('max' => ini_get('upload_max_filesize')));
break;
case 2: /* UPLOAD_ERR_FORM_SIZE */
$msg = _T('upload_limit',
array('max' => ini_get('upload_max_filesize')));
break;
case 3: /* UPLOAD_ERR_PARTIAL */
$msg = _T('upload_limit',
array('max' => ini_get('upload_max_filesize')));
break;
default: /* autre */
if (!$msg) {
$msg = _T('pass_erreur') . ' ' . $error
. '<br />' . propre("[->http://php.net/manual/fr/features.file-upload.errors.php]");
}
break;
}
spip_log("erreur upload $error");
if ($return) {
return $msg;
}
if (_request("iframe") == "iframe") {
echo "<div class='upload_answer upload_error'>$msg</div>";
exit;
}
include_spip('inc/minipres');
echo minipres($msg,
"<div style='text-align: " . $GLOBALS['spip_lang_right'] . "'><a href='" . rawurldecode($GLOBALS['redirect']) . "'><button type='button'>" . _T('ecrire:bouton_suivant') . "</button></a></div>");
exit;
}