<?php

/***************************************************************************\
 *  SPIP, Systeme de publication pour l'internet                           *
 *                                                                         *
 *  Copyright (c) 2001-2005                                                *
 *  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.   *
\***************************************************************************/


// Uploader un document, une image ou un logo,
// supprimer cet element, creer les vignettes, etc.

include ("ecrire/inc_version.php3");
include_ecrire('inc_presentation.php3');	# regler la langue en cas d'erreur
include_ecrire('inc_getdocument.php3');		# diverses fonctions de ce fichier
include_ecrire("inc_charsets.php3");		# pour le nom de fichier
include_ecrire("inc_meta.php3");			# ne pas faire confiance au cache
											# (alea_ephemere a peut-etre change)
include_ecrire("inc_admin.php3");			# verifier_action_auteur
include_ecrire("inc_abstract_sql.php3");	# spip_insert
include_ecrire('inc_documents.php3');		# fichiers_upload()


// Recuperer les variables d'upload
if (!$_FILES)
	$_FILES = &$HTTP_POST_FILES;
if (!is_array($_FILES))
	$_FILES = array();
foreach ($_FILES as $id => $file) {
	if ($file['error'] == 4 /* UPLOAD_ERR_NO_FILE */)
		unset ($_FILES[$id]);
}

// Si on est en mode 'document', les images doivent etre installees
// comme documents dans le portfolio
if ($forcer_document) $mode = 'document';


//
// Le switch principal : quelle est l'action demandee
//


// appel de config-fonction
if ($test_vignette)
	$retour_image = tester_vignette($test_vignette);

/**
	OBSOLETE

// Creation de vignette depuis le portfolio (ou autre)
else if ($vignette) {
	if ($creer_vignette == 'oui' AND
	verifier_action_auteur("vign $vignette",
	$hash, $hash_id_auteur))
		creer_fichier_vignette($vignette);
	else
		$retour_image = creer_fichier_vignette($vignette, true); # obsolete
}

**/


//
// Ajout d'un document ou d'une image
//
else if ($ajout_doc == 'oui') {

	// Autorisation ?
	if (!verifier_action_auteur("ajout_doc", $hash, $hash_id_auteur))
		die ('Interdit');

	//
	// Cas d'un fichier ou d'un repertoire installe dans ecrire/upload/
	//
	if ($_POST['image2']
	AND !strstr($_POST['image2'], '..')
	AND $_POST['ok_ftp']
	) {
		$upload = _DIR_TRANSFERT.$_POST['image2'];

		// lire le repertoire upload et remplir $_FILES
		if (is_dir($upload)) {
			$fichiers = fichiers_upload($upload);

			$_FILES = array();
			foreach ($fichiers as $fichier) {
				$_FILES[] = array (
					'name' => basename($fichier),
					'tmp_name' => $fichier
				);
			}
		}

		// seul un fichier est demande
		else
			$_FILES = array(
				array ('name' => basename($upload),
				'tmp_name' => $upload)
			);
	}
	
	// Cas d'un document distant reference sur internet
	else if (preg_match(',^https?://....+,i', $_POST['image_url'])) {
		$_FILES = array(
			array('name' => basename($_POST['image_url']),
			'tmp_name' => $_POST['image_url'])
		);
		$mode = 'distant';
	}

	//
	// Upload d'un ZIP
	//
	if (function_exists('gzopen') AND !($mode == 'distant')) {

		// traiter la reponse de l'utilisateur ('telquel' ou 'decompacter')
		if ($_POST['source_zip']
		AND !strstr($_POST['source_zip'], '..')) # securite
		{
			$_FILES = array(
				array('name' => basename($_POST['source_zip']),
					'tmp_name' => $_POST['source_zip'])
			);
		}
	
		// traiter le zip si c'en est un tout seul
		if (count($_FILES) == 1
		AND $action_zip!='telquel') {
			$desc = array_pop($_FILES); # recuperer la description
			$_FILES = array($desc);
	
			if (preg_match('/\.zip$/i', $desc['name'])
			OR ($desc['type'] == 'application/zip')) {
	
				// on pose le fichier dans le repertoire zip et on met
				// a jour $_FILES (nota : copier_document n'ecrase pas
				// un fichier avec lui-meme : ca autorise a boucler)
				$zip = copier_document("zip",
					$desc['name'],
					$desc['tmp_name']
				);
				if (!$zip) die ('Erreur upload zip'); # pathologique
				$desc['tmp_name'] = $zip;	# nouvel emplacement du fichier
				$_FILES = array($desc);
	
				// Est-ce qu'on sait le lire ?
				require_once(_DIR_RESTREINT . 'pclzip.lib.php');
				$archive = new PclZip($zip);
				$contenu = verifier_compactes($archive);
	
				// si non, on le force comme document
				if (!$contenu) {
					$forcer_document = 'oui';
				}
	
				// si le deballage est demande
				else if ($action_zip == 'decompacter') {
					// 1. on deballe
					define('_tmp_dir', creer_repertoire_documents($hash));
					$archive->extract(
						PCLZIP_OPT_PATH, _tmp_dir,
						PCLZIP_CB_PRE_EXTRACT, 'callback_deballe_fichier'
						);
					$contenu = verifier_compactes($archive);
					// 2. on supprime le fichier temporaire
					@unlink($zip);
	
					$_FILES = array();
					foreach ($contenu as $fichier) {
						$_FILES[] = array(
							'name' => basename($fichier),
							'tmp_name' => _tmp_dir.basename($fichier));
					}
				}
	
				// sinon on demande une reponse
				else {
					$link = new Link('spip_image.php3');
					$link->addVar('ajout_doc', 'oui');
					$link->addVar('redirect', $redirect);
					$link->addVar('id_article', $id_article);
					$link->addVar('mode', $mode);
					$link->addVar('type', $type);
					$link->addVar('hash', $hash);
					$link->addVar('hash_id_auteur', $hash_id_auteur);
					$link->addVar('source_zip', $zip);
					afficher_compactes($desc, $contenu, $link);
					exit;
				}
			}
		}
	}
	// Fin du bloc ZIP


	//
	// Traiter la liste des fichiers
	//
	$documents_actifs = array();

	foreach ($_FILES as $file) {

		// afficher l'erreur 'fichier trop gros' ou autre
		check_upload_error($file['error']);

		spip_log ("ajout du document ".$file['name'].", $mode ($type $id_article $id_document)");
		ajouter_un_document (
			$file['tmp_name'],	# le fichier sur le serveur (/var/tmp/xyz34)
			$file['name'],		# son nom chez le client (portequoi.pdf)
			$type,				# lie a un article, une breve ou une rubrique ?
			$id_article,		# identifiant de l'article (ou rubrique) lie
			$mode,				# 'vignette' => image en mode image
								# ou vignette personnalisee liee a un document
								# 'document' => doc ou image en mode document
								# 'distant' => lien internet
			$id_document,		# pour une vignette, l'id_document de maman
			$documents_actifs	# tableau des id_document "actifs" (par ref)
		);
	}	// foreach $_FILES

	// Nettoyer le repertoire temporaire d'extraction des fichiers
	if (defined('_tmp_dir'))
		effacer_repertoire_temporaire(_tmp_dir);
}

// Ajout d'un logo
else if ($ajout_logo == "oui" and $logo) {
	if ($desc = array_pop($_FILES)
	AND verifier_action_auteur("ajout_logo $logo",
	$hash, $hash_id_auteur))
		ajout_logo($desc, $logo);
}

// Suppression d'un logo
else if ($image_supp) {
	if (verifier_action_auteur("supp_logo $image_supp",
	$hash, $hash_id_auteur))
		effacer_logo($image_supp);
}

// Suppression d'un document et de sa vignette
else if ($doc_supp) {
	if (verifier_action_auteur("supp_doc $doc_supp",
	$hash, $hash_id_auteur))
		supprime_document_et_vignette($doc_supp);
}

// Rotation d'une image
else if ($doc_rotate) {
	if (verifier_action_auteur("rotate $doc_rotate",
	$hash, $hash_id_auteur))
		tourner_document($var_rot, $doc_rotate, $convert_command);
}


//
// Retour a l'envoyeur
//

// si nous sommes diriges vers une vignette
if ($retour_image) {
	redirige_par_entete($retour_image);

} else {
	$link = new Link(_DIR_RESTREINT_ABS . $redirect);
	if ($documents_actifs) {
		$show_docs = join('-',$documents_actifs);
		$link->addVar('show_docs',$show_docs);
	}

	redirige_par_entete($link->getUrl($ancre));
}

?>