3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2014 *
7 * Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James *
9 * Ce programme est un logiciel libre distribue sous licence GNU/GPL. *
10 * Pour plus de details voir le fichier COPYING.txt ou l'aide en ligne. *
11 \***************************************************************************/
13 if (!defined('_ECRIRE_INC_VERSION')) return;
15 include_spip('inc/getdocument');
16 include_spip('inc/documents');
18 // Joindre un document ou un Zip a deballer (fonction pour action/joindre)
19 // Distinguer les deux cas pour commencer
21 // http://doc.spip.org/@inc_ajouter_documents_dist
22 function inc_ajouter_documents_dist ($sources, $file, $type, $id, $mode, $id_document, &$actifs, $hout='', $redirect='', $iframe_redirect='')
24 if (is_array($sources))
25 return liste_archive_jointe($sources, $file, $type, $id, $mode, $id_document, $hout, $redirect, $iframe_redirect);
27 return ajouter_un_document($sources, $file, $type, $id, $mode, $id_document, $actifs, $hout);
32 * Choisir le mode du document : image/document
33 * fonction surchargeable
35 * @param unknown_type $fichier
36 * @param unknown_type $type_image
37 * @param unknown_type $largeur
38 * @param unknown_type $hauteur
40 function inc_choisir_mode_document_dist($fichier, $type_lien, $type_image, $largeur, $hauteur){
42 // si ce n'est pas une image, c'est forcement un document
43 if (!in_array($type_image, array('gif', 'png', 'jpg')))
46 // si on a pas le droit d'ajouter de document a l'objet, c'est donc un mode image
47 if ($type_lien AND isset($GLOBALS['meta']["documents_$type_lien"]) AND ($GLOBALS['meta']["documents_$type_lien"]=='non'))
51 // _INTERFACE_DOCUMENTS
52 // en fonction de la taille de l'image
53 // par defaut l'affectation en fonction de la largeur de l'image
54 // est desactivee car pas comprehensible par le novice
55 // il suffit de faire dans mes_options
56 // define('_LARGEUR_MODE_IMAGE', 450);
57 // pour beneficier de cette detection auto
58 if (!defined('_LARGEUR_MODE_IMAGE')) define('_LARGEUR_MODE_IMAGE', 0);
60 if (!_LARGEUR_MODE_IMAGE
)
64 AND $largeur < _LARGEUR_MODE_IMAGE
)
71 // Ajouter un document (au format $_FILES)
73 # $source, # le fichier sur le serveur (/var/tmp/xyz34)
74 # $nom_envoye, # son nom chez le client (portequoi.pdf)
75 # $type_lien, # lie a un article, une breve ou une rubrique ?
76 # $id_lien, # identifiant de l'article (ou rubrique) lie
77 # $mode, # 'image' => image en mode image
78 # # 'vignette' => personnalisee liee a un document
79 # 'document' => doc ou image en mode document
80 # 'distant' => lien internet
81 # $id_document, # pour une vignette, l'id_document de maman
82 # $actifs # les documents dont il faudra ouvrir la boite de dialogue
84 // http://doc.spip.org/@ajouter_un_document
85 function ajouter_un_document($source, $nom_envoye, $type_lien, $id_lien, $mode, $id_document, &$documents_actifs, $titrer=false) {
87 include_spip('inc/modifier');
89 // Documents distants : pas trop de verifications bloquantes, mais un test
90 // via une requete HEAD pour savoir si la ressource existe (non 404), si le
91 // content-type est connu, et si possible recuperer la taille, voire plus.
93 if ($mode == 'distant') {
94 include_spip('inc/distant');
95 if ($a = recuperer_infos_distantes($source)) {
97 # NB: dans les bonnes conditions (fichier autorise et pas trop gros)
98 # $a['fichier'] est une copie locale du fichier
100 $type_image = $a['type_image'];
102 unset($a['type_image']);
105 $a['date'] = date('Y-m-d H:i:s');
106 $a['distant'] = 'oui';
107 $a['mode'] = 'document';
108 $a['fichier'] = set_spip_doc($source);
111 spip_log("Echec du lien vers le document $source, abandon");
114 } else { // pas distant
116 $type_image = ''; // au pire
117 // tester le type de document :
118 // - interdit a l'upload ?
119 // - quelle extension dans spip_types_documents ?
120 // - est-ce "inclus" comme une image ?
121 list($nom_envoye, $ext, $titre, $inclus) = corriger_extension_et_nom($nom_envoye, $titrer);
123 if ($inclus !== false) {
124 $type_inclus_image = ($inclus == 'image');
125 $fichier = copier_document($ext, $nom_envoye, $source);
128 /* STOCKER LES DOCUMENTS INCONNUS AU FORMAT .ZIP */
129 $type_inclus_image = false;
131 if (!sql_countsel("spip_types_documents", "extension='zip' AND upload='oui'")) {
132 spip_log("Extension $ext interdite a l'upload");
137 if (!$tmp_dir = tempnam(_DIR_TMP
, 'tmp_upload')) return;
138 spip_unlink($tmp_dir); @mkdir
($tmp_dir);
139 $tmp = $tmp_dir.'/'.translitteration($nom_envoye);
140 $nom_envoye .= '.zip'; # conserver l'extension dans le nom de fichier, par exemple toto.js => toto.js.zip
141 deplacer_fichier_upload($source, $tmp);
142 include_spip('inc/pclzip');
143 $source = _DIR_TMP
. 'archive.zip';
144 $archive = new PclZip($source);
145 $v_list = $archive->create($tmp,
146 PCLZIP_OPT_REMOVE_PATH
, $tmp_dir,
147 PCLZIP_OPT_ADD_PATH
, '');
148 effacer_repertoire_temporaire($tmp_dir);
150 spip_log("Echec creation du zip ");
153 $fichier = copier_document($ext, $nom_envoye, $source);
154 spip_unlink($source);
157 // Prevoir traitement specifique pour videos
158 // (http://www.getid3.org/ peut-etre
162 } else if ($ext == "svg") {
163 // recuperer les dimensions et supprimer les scripts
164 list($largeur,$hauteur)= traite_svg($fichier);
166 // Si c'est une image, recuperer sa taille et son type (detecte aussi swf)
167 $size_image = @getimagesize
($fichier);
168 $largeur = intval($size_image[0]);
169 $hauteur = intval($size_image[1]);
170 $type_image = decoder_type_image($size_image[2]);
173 // Quelques infos sur le fichier
174 if (!$fichier OR !@file_exists
($fichier)
175 OR !$taille = @intval
(filesize($fichier))) {
176 spip_log ("Echec copie du fichier $fichier");
180 // _INTERFACE_DOCUMENTS
181 // Si mode == 'choix', fixer le mode image/document
182 if ($mode == 'choix') {
183 $choisir_mode_document = charger_fonction('choisir_mode_document','inc');
184 $mode = $choisir_mode_document($fichier, $type_lien, $type_image, $largeur, $hauteur);
189 if (_DOC_MAX_SIZE
> 0
190 AND $taille > _DOC_MAX_SIZE
*1024) {
191 spip_unlink ($fichier);
192 check_upload_error(6,
193 _T('info_logo_max_poids',
194 array('maxi' => taille_en_octets(_DOC_MAX_SIZE
*1024),
195 'actuel' => taille_en_octets($taille))));
197 if ($mode == 'image') {
198 spip_log ("le format de $fichier ne convient pas pour une image");
199 spip_unlink($fichier);
204 if (_IMG_MAX_SIZE
> 0
205 AND $taille > _IMG_MAX_SIZE
*1024) {
206 spip_unlink ($fichier);
207 check_upload_error(6,
208 _T('info_logo_max_poids',
209 array('maxi' => taille_en_octets(_IMG_MAX_SIZE
*1024),
210 'actuel' => taille_en_octets($taille))));
213 if (_IMG_MAX_WIDTH
* _IMG_MAX_HEIGHT
214 AND ($size_image[0] > _IMG_MAX_WIDTH
215 OR $size_image[1] > _IMG_MAX_HEIGHT
)) {
216 spip_unlink ($fichier);
217 check_upload_error(6,
218 _T('info_logo_max_taille',
221 _T('info_largeur_vignette',
222 array('largeur_vignette' => _IMG_MAX_WIDTH
,
223 'hauteur_vignette' => _IMG_MAX_HEIGHT
)),
225 _T('info_largeur_vignette',
226 array('largeur_vignette' => $size_image[0],
227 'hauteur_vignette' => $size_image[1]))
232 // Si on veut uploader une vignette, il faut qu'elle ait ete bien lue
233 if ($mode == 'vignette') {
234 if (!$type_inclus_image) {
235 spip_log ("le format de $fichier ne convient pas pour une image"); # SVG
236 spip_unlink($fichier);
240 if (!($largeur OR $hauteur)) {
241 spip_log('erreur upload vignette '.$fichier);
242 spip_unlink($fichier);
245 } elseif (!in_array($mode, array('distant', 'image', 'document'))) {
246 if ($type_image AND $type_inclus_image)
252 'date' => date('Y-m-d H:i:s'),
256 'largeur' => $largeur,
257 'hauteur' => $hauteur,
260 'fichier' => set_spip_doc($fichier));
263 if (($id_document=intval($id_document)) AND $mode!='vignette') {
265 // Mise a jour des descripteurs d'un vieux doc
268 unset($a['distant']);
271 sql_updateq('spip_documents', $a, "id_document=$id_document");
275 // Installer le document dans la base
276 // attention piege semantique : les images s'installent en mode 'vignette'
277 // note : la fonction peut "mettre a jour un document" si on lui
278 // passe "mode=document" et "id_document=.." (pas utilise)
280 // Envoyer aux plugins
281 $a = pipeline('pre_insertion',
284 'table' => 'spip_documents',
290 if (strlen($a['fichier']) > 255) {
291 spip_log("Upload avec nom > 255 : " . $a['fichier']);
294 $id = sql_insertq("spip_documents", $a);
296 pipeline('post_insertion',
299 'table' => 'spip_documents',
300 'id_objet' => $id_document
306 spip_log ("ajout du document $source $nom_envoye (M '$mode' T '$type_lien' L '$id_lien' D '$id')");
309 AND preg_match('/^[a-z0-9_]+$/i', $type_lien) # securite
311 sql_insertq('spip_documents_liens',
312 array('id_document' => $id,
313 'id_objet' => $id_lien,
314 'objet' => $type_lien));
315 } else spip_log("Pb d'insertion $id_lien $type_lien");
318 sql_updateq("spip_documents", array("id_vignette" => $id, "mode" => 'document'), "id_document=$id_document");
320 } else $id_document = $id;
323 // Appliquer l'exif orientation
324 // http://trac.rezo.net/trac/spip/ticket/1494
325 define('_TOURNER_SELON_EXIF', false); # par defaut non, risque memoire
326 if (defined('_TOURNER_SELON_EXIF')
327 AND _TOURNER_SELON_EXIF
328 AND $mode == 'document'
329 AND $a['distant'] == 'non'
330 AND $a['extension'] == 'jpg') {
331 include_spip('action/tourner');
332 tourner_selon_exif_orientation($id_document, $fichier);
336 // pour que le retour vers ecrire/ active le bon doc.
337 $documents_actifs[$fichier] = $id_document;
338 // Notifications, gestion des revisions, reindexation...
339 pipeline('post_edition',
342 'operation' => 'ajouter_document',
343 'table' => 'spip_documents',
345 'type_image' => $type_image
354 // http://doc.spip.org/@verifier_compactes
355 function verifier_compactes($zip) {
356 if (!$list = $zip->listContent()) return array();
357 // si pas possible de decompacter: installer comme fichier zip joint
358 // Verifier si le contenu peut etre uploade (verif extension)
359 $aff_fichiers = array();
360 foreach ($list as $file) {
361 if (accepte_fichier_upload($f = $file['stored_filename']))
362 $aff_fichiers[$f] = $file;
363 else spip_log("chargement de $f interdit");
365 ksort($aff_fichiers);
366 return $aff_fichiers;
370 // Convertit le type numerique retourne par getimagesize() en extension fichier
373 // http://doc.spip.org/@decoder_type_image
374 function decoder_type_image($type, $strict = false) {
383 return $strict ?
"" : "swf";
397 // http://doc.spip.org/@traite_svg
398 function traite_svg($file)
400 $texte = spip_file_get_contents($file);
402 // Securite si pas admin : virer les scripts et les references externes
403 // sauf si on est en mode javascript 'ok' (1), cf. inc_version
404 if ($GLOBALS['filtrer_javascript'] < 1
405 AND !autoriser('televerser','script')) {
406 include_spip('inc/texte');
407 $new = trim(safehtml($texte));
408 // petit bug safehtml
409 if (substr($new,0,2) == ']>') $new = ltrim(substr($new,2));
410 if ($new != $texte) ecrire_fichier($file, $texte = $new);
413 $width = $height = 150;
414 if (preg_match(',<svg[^>]+>,', $texte, $s)) {
416 if (preg_match(',\WviewBox\s*=\s*.\s*(\d+)\s+(\d+)\s+(\d+)\s+(\d+),i', $s, $r)){
420 // si la taille est en centimetre, estimer le pixel a 1/64 de cm
421 if (preg_match(',\Wwidth\s*=\s*.(\d+)([^"\']*),i', $s, $r)){
424 if ($r[2] == 'cm') $width <<=6;
427 if (preg_match(',\Wheight\s*=\s*.(\d+)([^"\']*),i', $s, $r)){
430 if ($r[2] == 'cm') $height <<=6;
435 return array($width, $height);
438 // Regexp synthetisant un titre a partir d'un nom de fichier.
439 // Exemple: squelette-de-Mozart-vers-5-ans.jpg => squelette de Mozart vers 5 ans
440 define('_REGEXP_TITRER_DOCUMENT', ',[[:punct:][:space:]]+,u');
442 function corriger_extension_et_nom($nom, $titrer=false)
444 preg_match(",^(.*)\.([^.]+)$,", $nom, $match);
445 @list
(,$titre,$ext) = $match;
446 // les navigateur devraient savoir que ceci est mime-type text
447 if (!$ext AND (strtolower($nom) === 'makefile'))
449 // securite : pas de . en dehors de celui separant l'extension
450 // sinon il est possible d'injecter du php dans un toto.php.txt
451 else $nom = str_replace('.','-',$titre).'.'.$ext;
454 $titre = is_string($titre) ?
$titre : preg_replace("%".$titre."%", ' ', $titre ?
$titre : $nom);
456 $ext = corriger_extension(strtolower($ext));
457 $row = sql_fetsel("inclus", "spip_types_documents", "extension=" . sql_quote($ext) . " AND upload='oui'");
458 return array($nom, $ext, $titre, $row ?
$row['inclus'] : false);
462 // Corrige l'extension du fichier dans quelques cas particuliers
463 // (a passer dans ecrire/base/typedoc)
464 // A noter : une extension 'pdf ' passe dans la requete de controle
465 // mysql> SELECT * FROM spip_types_documents WHERE extension="pdf ";
466 // http://doc.spip.org/@corriger_extension
467 function corriger_extension($ext) {
468 $ext = preg_replace(',[^a-z0-9],i', '', $ext);
485 // Cherche dans la base le type-mime du tableau representant le document
486 // et corrige le nom du fichier ; retourne array(extension, nom corrige)
487 // s'il ne trouve pas, retourne '' et le nom inchange
488 // http://doc.spip.org/@fixer_extension_document
489 function fixer_extension_document($doc) {
491 $name = $doc['name'];
492 if (preg_match(',\.([^.]+)$,', $name, $r)
493 AND $t = sql_fetsel("extension", "spip_types_documents",
494 "extension=" . sql_quote(corriger_extension($r[1])))) {
495 $extension = $t['extension'];
496 $name = preg_replace(',\.[^.]*$,', '', $doc['name']).'.'.$extension;
498 // les navigateur devraient savoir que ceci est mime-type text
499 if (strtolower($name) === 'makefile') $doc['type'] = 'txt';
500 if ($t = sql_getfetsel("extension", "spip_types_documents",
501 "mime_type=" . sql_quote($doc['type']))) {
502 $name = preg_replace(',\.[^.]*$,', '', $doc['name']).'.'.$t;
505 return array($extension,$name);
508 // Afficher un formulaire de choix: decompacter et/ou garder tel quel
509 // et reconstruire un generer_action_auteur.
510 // Passer ca en squelette un de ces jours.
512 // http://doc.spip.org/@liste_archive_jointe
513 function liste_archive_jointe($valables, $zip, $type, $id, $mode, $id_document, $hash, $redirect, $iframe_redirect)
515 include_spip('inc/layer');
517 $arg = (intval($id) .'/' .intval($id_document) . "/$mode/$type");
519 $texte = "<div style='text-align: left'>
520 <input type='hidden' name='redirect' value='$redirect' />
521 <input type='hidden' name='iframe_redirect' value='$iframe_redirect' />
522 <input type='hidden' name='hash' value='$hash' />
523 <input type='hidden' name='chemin' value='$zip' />
524 <input type='hidden' name='arg' value='$arg' />
525 <input type='radio' checked='checked' name='sousaction5' id='sousaction5_5' value='5' onchange='jQuery(\"#options_deballe_zip\").slideUp();' />" .
526 "<label for='sousaction5_5'>" . _T('upload_zip_telquel'). "</label>" .
528 "<input type='radio' name='sousaction5' id='sousaction5_6' value='6' onchange='jQuery(\"#options_deballe_zip\").slideDown();' />".
529 "<label for='sousaction5_6'>" . _T('upload_zip_decompacter') . "</label>" .
531 liste_archive_taille($valables) .
534 . debut_block_depliable(false,'options_deballe_zip')
535 . "<input type='checkbox' name='sousaction4' id='sousaction4_4' value='4' />".
536 "<label for='sousaction4_4'>" . _T('upload_zip_conserver') . "</label>" .
537 "<br /><input type='checkbox' name='titrer' id='titrer' />"
538 . "<label for='titrer'>" . _T('upload_zip_titrer') .
544 . "<div style='text-align: right;'><input type='submit' value='".
545 _T('bouton_valider').
549 _T('upload_fichier_zip_texte') .
551 _T('upload_fichier_zip_texte2') .
553 generer_form_action('joindre', $texte,' method="post"');
555 if(_request("iframe")=="iframe") {
556 return "<p>build form $iframe_redirect</p>" .
557 "<div class='upload_answer upload_zip_list'>" .
560 } else { return minipres(_T('upload_fichier_zip'), $texte); }
563 // http://doc.spip.org/@liste_archive_taille
564 function liste_archive_taille($files) {
566 foreach ($files as $nom => $file) {
567 $date = date_interface(date("Y-m-d H:i:s", $file['mtime']));
569 $taille = taille_en_octets($file['size']);
570 $res .= "<li title=\"".texte_backend($title)."\"><b>$nom</b> – $taille<br /> $date</li>\n";