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/actions'); // *action_auteur et determine_upload
16 include_spip('inc/date');
18 // donne le chemin du fichier relatif a _DIR_IMG
19 // pour stockage 'tel quel' dans la base de donnees
20 // http://doc.spip.org/@set_spip_doc
21 function set_spip_doc($fichier) {
22 if (strpos($fichier, _DIR_IMG
) === 0)
23 return substr($fichier, strlen(_DIR_IMG
));
25 return $fichier; // ex: fichier distant
28 // donne le chemin complet du fichier
29 // http://doc.spip.org/@get_spip_doc
30 function get_spip_doc($fichier) {
32 if (preg_match(',^\w+://,', $fichier))
35 // gestion d'erreurs, fichier=''
36 if (!strlen($fichier))
39 $fichier = (strpos($fichier, _DIR_IMG
) === false)
47 // Constante indiquant le charset probable des documents non utf-8 joints
49 if (!defined('CHARSET_JOINT')) define('CHARSET_JOINT', 'iso-8859-1');
51 // Filtre pour #FICHIER permettant d'incruster le contenu d'un document
52 // Si 2e arg fourni, conversion dans le charset du site si possible
54 // http://doc.spip.org/@contenu_document
55 function contenu_document($arg, $charset='')
57 if (is_numeric($arg)) {
58 $r = sql_fetsel("fichier,distant", "spip_documents", "id_document=".sql_quote($arg));
61 $f = ($r['distant'] =='oui') ? _DIR_RACINE
. copie_locale($f) : get_spip_doc($f);
64 if (!@file_exists
($f=$arg)){
65 if (!$f = copie_locale($f))
67 $f = _DIR_RACINE
. $f;
71 $r = spip_file_get_contents($f);
74 include_spip('inc/charset');
75 if ($charset !== 'auto') {
76 $r = importer_charset($r, $charset);
77 } elseif ($GLOBALS['meta']['charset'] == 'utf-8' AND !is_utf8($r))
78 $r = importer_charset($r, CHARSET_JOINT
);
83 // http://doc.spip.org/@generer_url_document_dist
84 function generer_url_document_dist($id_document, $args='', $ancre='') {
86 include_spip('inc/autoriser');
87 if (!autoriser('voir', 'document', $id_document)) return '';
89 $r = sql_fetsel("fichier,distant", "spip_documents", "id_document=".sql_quote($id_document));
95 if ($r['distant'] == 'oui') return $f;
97 // Si droit de voir tous les docs, pas seulement celui-ci
98 // il est inutilement couteux de rajouter une protection
100 $r = autoriser('voir', 'document');
102 if ($r AND $r !== 'htaccess') return get_spip_doc($f);
104 return generer_acceder_document($f, $id_document, $args, $ancre);
107 // cette action doit etre publique !
108 function generer_acceder_document($file, $id_document, $args='', $ancre='')
110 include_spip('inc/securiser_action');
112 return generer_url_action('acceder_document',
113 $args . ($args ?
"&" : '')
114 . 'arg='.$id_document
115 . ($ancre ?
"&ancre=$ancre" : '')
116 . '&cle=' . calculer_cle_action($id_document.','.$file)
117 . '&file=' . rawurlencode($file)
121 // http://doc.spip.org/@document_et_vignette
122 function document_et_vignette($document, $url, $portfolio=false) {
123 $image = $document['id_vignette'];
126 $image = sql_fetsel("*", "spip_documents", "id_document = ".$image);
128 if (!$portfolio OR !($GLOBALS['meta']['creer_preview'] == 'oui')) {
129 $x = $image['largeur'];
130 $y = $image['hauteur'];
135 $image = get_spip_doc($image['fichier']);
142 if (!$url) $url = generer_url_document_dist($document['id_document'], 'document');
143 return vignette_automatique($image, $document, $url, $x, $y, '', "miniature_document");
147 // Affiche le document avec sa vignette par defaut
149 // Attention : en mode 'doc', si c'est un fichier graphique on prefere
150 // afficher une vue reduite, quand c'est possible (presque toujours, donc)
151 // En mode 'image', l'image conserve sa taille
153 // A noter : dans le portfolio prive on pousse le vice jusqu'a reduire la taille
154 // de la vignette -> c'est a ca que sert la variable $portfolio
155 // http://doc.spip.org/@vignette_automatique
156 function vignette_automatique($img, $doc, $lien, $x=0, $y=0, $align='', $class='spip_logos')
158 include_spip('inc/distant');
159 include_spip('inc/texte');
160 include_spip('inc/filtres_images_mini');
161 $e = $doc['extension'];
163 if ($img = image_du_document($doc)) {
164 if (!$x AND !$y) // eviter une double reduction
165 $img = image_reduire($img);
168 $f = charger_fonction('vignette','inc');
169 $img = $f($e, false);
170 $size = @getimagesize
($img);
171 $img = "<img src='$img' ".$size[3]." />";
175 $size = @getimagesize
($img);
176 $img = "<img src='$img' ".$size[3]." />";
178 // on appelle image_reduire independamment de la presence ou non
179 // des librairies graphiques
180 // la fonction sait se debrouiller et faire de son mieux dans tous les cas
182 $img = image_reduire($img, $x, $y);
184 $img = inserer_attribut($img, 'alt', '');
185 $img = inserer_attribut($img, 'class', $class);
186 if ($align) $img = inserer_attribut($img, 'align', $align);
188 if (!$lien) return $img;
190 $titre = supprimer_tags(typo($doc['titre']));
191 $titre = " - " .taille_en_octets($doc['taille'])
192 . ($titre ?
" - $titre" : "");
194 $type = sql_fetsel('titre, mime_type','spip_types_documents', "extension = " . sql_quote($e));
196 $mime = $type['mime_type'];
197 $titre = attribut_html(couper($type['titre'] . $titre, 80));
199 return "<a href='$lien' type='$mime' title='$titre'>$img</a>";
202 // Trouve une image caracteristique d'un document.
203 // Si celui-ci est une image et que les outils graphiques sont dispos,
204 // retourner le document (en exploitant sa copie locale s'il est distant).
205 // Autrement retourner la vignette fournie par SPIP pour ce type MIME
206 // Resultat: un fichier local existant
208 function image_du_document($document)
210 $e = $document['extension'];
211 if ((strpos($GLOBALS['meta']['formats_graphiques'], $e) !== false)
212 AND (!test_espace_prive() OR $GLOBALS['meta']['creer_preview']=='oui')
213 AND $document['fichier']) {
214 if ($document['distant'] == 'oui') {
215 $image = _DIR_RACINE
.copie_locale($document['fichier']);
218 $image = get_spip_doc($document['fichier']);
219 if (@file_exists
($image)) return $image;
225 // Afficher un document dans la colonne de gauche
228 // http://doc.spip.org/@afficher_documents_colonne
229 function afficher_documents_colonne($id, $type="article",$script=NULL) {
230 include_spip('inc/autoriser');
232 // il faut avoir les droits de modif sur l'article pour pouvoir uploader !
233 if (!autoriser('joindredocument',$type,$id))
236 include_spip('inc/presentation'); // pour l'aide quand on appelle afficher_documents_colonne depuis un squelette
237 // seuls cas connus : article, breve ou rubrique
239 $script = $type.'s_edit';
240 if (!test_espace_prive())
241 $script = parametre_url(self(),"show_docs",'');
243 $id_document_actif = _request('show_docs');
245 $joindre = charger_fonction('joindre', 'inc');
247 define('_INTERFACE_DOCUMENTS', true);
248 if (!_INTERFACE_DOCUMENTS
249 OR $GLOBALS['meta']["documents_$type"]=='non') {
251 // Ajouter nouvelle image
252 $ret = "<div id='images'>\n"
255 'icone' => 'image-24.gif',
256 'fonction' => 'creer.gif',
257 'titre' => majuscules(_T('bouton_ajouter_image')).aide("ins_img"),
259 'args' => "id_$type=$id",
261 'intitule' => _T('info_telecharger'),
266 'iframe_script' => generer_url_ecrire("documents_colonne","id=$id&type=$type",true)
270 if (!_INTERFACE_DOCUMENTS
) {
271 //// Images sans documents
272 $res = sql_select("D.id_document", "spip_documents AS D LEFT JOIN spip_documents_liens AS T ON T.id_document=D.id_document", "T.id_objet=" . intval($id) . " AND T.objet=" . sql_quote($type) . " AND D.mode='image'", "", "D.id_document");
274 $ret .= "\n<div id='liste_images'>";
276 while ($doc = sql_fetch($res)) {
277 $id_document = $doc['id_document'];
278 $deplier = ($id_document_actif==$id_document);
279 $ret .= afficher_case_document($id_document, $id, $script, $type, $deplier);
282 $ret .= "</div><br /><br />\n";
286 /// Ajouter nouveau document
287 $bouton = !_INTERFACE_DOCUMENTS
288 ?
majuscules(_T('bouton_ajouter_document')).aide("ins_doc")
289 : (_T('bouton_ajouter_image_document')).aide("ins_doc");
291 $ret .= "<div id='documents'></div>\n<div id='portfolio'></div>\n";
292 if ($GLOBALS['meta']["documents_$type"]!='non') {
293 $ret .= $joindre(array(
294 'cadre' => _INTERFACE_DOCUMENTS ?
'relief' : 'enfonce',
295 'icone' => 'doc-24.gif',
296 'fonction' => 'creer.gif',
299 'args' => "id_$type=$id",
301 'intitule' => _T('info_telecharger'),
302 'mode' => _INTERFACE_DOCUMENTS ?
'choix' : 'document',
306 'iframe_script' => generer_url_ecrire("documents_colonne","id=$id&type=$type",true)
310 // Afficher les documents lies
311 $ret .= "<br /><div id='liste_documents'>\n";
313 //// Documents associes
314 $res = sql_select("D.id_document", "spip_documents AS D LEFT JOIN spip_documents_liens AS T ON T.id_document=D.id_document", "T.id_objet=" . intval($id) . " AND T.objet=" . sql_quote($type)
315 . ((!_INTERFACE_DOCUMENTS
)
316 ?
" AND D.mode='document'"
317 : " AND D.mode IN ('image','document')"
318 ), "", "D.mode, D.id_document");
320 while($row = sql_fetch($res))
321 $ret .= afficher_case_document($row['id_document'], $id, $script, $type, ($id_document_actif==$row['id_document']));
324 if (test_espace_prive()){
325 $ret .= http_script('', "async_upload.js")
326 . http_script('$("form.form_upload").async_upload(async_upload_article_edit)');
333 // Affiche le raccourci <doc123|left>
334 // et l'insere quand on le clique
336 // http://doc.spip.org/@affiche_raccourci_doc
337 function affiche_raccourci_doc($doc, $id, $align) {
343 if ($GLOBALS['browser_barre'])
344 $onclick = "\nondblclick=\"barre_inserer('\\x3C$doc$id$pipe>', $('textarea[name=texte]')[0]);\"\ntitle=\"". str_replace('&', '&', entites_html(_T('double_clic_inserer_doc')))."\"";
350 ((++
$num > 1) ?
"" : http_script('', "spip_barre.js"))
351 . "\n<div style='text-align: $align'$onclick><$doc$id$pipe></div>\n";
355 // Est-ce que le document est inclus dans le texte ?
356 // http://doc.spip.org/@est_inclus
357 function est_inclus($id_document) {
358 return isset($GLOBALS['doublons_documents_inclus']) ?
359 in_array($id_document,$GLOBALS['doublons_documents_inclus']) : false;
363 // Afficher un document sous forme de bloc depliable
364 // en donnant un apercu
365 // et en indiquer le raccourci permettant l'incrustation
366 // Pour les distant, donner un bouton pour rappatriement (trombone)
367 // Pour les images, donnner les boutons de rotations
370 // http://doc.spip.org/@afficher_case_document
371 function afficher_case_document($id_document, $id, $script, $type, $deplier=false) {
372 global $spip_lang_right;
374 $document = sql_fetsel("D.id_document, D.id_vignette,D.extension,D.titre,D.descriptif,D.fichier,D.largeur,D.hauteur,D.taille,D.mode,D.distant, D.date, L.vu", "spip_documents AS D INNER JOIN spip_documents_liens AS L ON L.id_document=D.id_document", "L.id_objet=".intval($id)." AND objet=".sql_quote($type)." AND L.id_document=".intval($id_document));
376 if (!$document) return "";
378 $id_vignette = $document['id_vignette'];
379 $extension = $document['extension'];
380 $descriptif = $document['descriptif'];
381 $fichier = $document['fichier'];
382 $largeur = $document['largeur'];
383 $hauteur = $document['hauteur'];
384 $mode = $document['mode'];
385 $distant = $document['distant'];
386 $titre = $document['titre'];
387 $legender = charger_fonction('legender', 'inc');
390 $r = sql_fetsel("titre,inclus", "spip_types_documents", "extension=".sql_quote($extension));
392 $type_inclus = $r['inclus'];
393 $type_titre = $r['titre'];
396 if ($mode == 'document') {
398 if ($distant == 'oui') {
399 include_spip('inc/tourner');
400 $dist = "\n<div class='verdana1' style='float: $spip_lang_right; text-align: $spip_lang_right;'>"
401 . "\n<img src='" . chemin_image('attachment.gif') . "'\n\talt=\"$fichier\"\n\ttitle=\"$fichier\" />\n"
402 . bouton_copier_local($document, $type, $id, $id_document, $script)
406 if (est_inclus($id_document))
407 $raccourci = affiche_raccourci_doc('doc', $id_document, '');
409 $vign= (($type_inclus == "embed" OR $type_inclus == "image") AND $largeur > 0 AND $hauteur > 0);
410 $raccourci = $vign ?
("<b>"._T('info_inclusion_vignette')."</b><br />") : '';
412 $raccourci .= "<div style='color: 333333'>"
413 . affiche_raccourci_doc('doc', $id_document, 'left')
414 . affiche_raccourci_doc('doc', $id_document, 'center')
415 . affiche_raccourci_doc('doc', $id_document, 'right')
419 $raccourci .= "<div style='padding:2px; ' class='arial1 spip_xx-small'>";
420 $raccourci .= "<b>"._T('info_inclusion_directe')."</b><br />";
421 $raccourci .= "<div style='color: 333333'>"
422 . affiche_raccourci_doc('emb', $id_document, 'left')
423 . affiche_raccourci_doc('emb', $id_document, 'center')
424 . affiche_raccourci_doc('emb', $id_document, 'right')
426 $raccourci .= "</div>";
430 $icone = 'doc-24.gif';
433 } else if ($mode == 'image') {
435 $icone = 'image-24.gif';
437 $ninclus = ($type_inclus !== 'image');
438 $doc = ($descriptif OR $titre) ?
'doc' : 'img';
440 if (est_inclus($id_document))
441 $raccourci = affiche_raccourci_doc($doc, $id_document, '');
444 affiche_raccourci_doc($doc, $id_document, 'left')
445 . affiche_raccourci_doc($doc, $id_document, 'center')
446 . affiche_raccourci_doc($doc, $id_document, 'right');
453 $cadre = basename($fichier);
455 preg_match('@^[^/]*/*([^/]*)@', $fichier, $cadre);
458 $cadre = lignes_longues($cadre, 20);
459 // encapsuler chaque document dans un container pour permettre son remplacement en ajax
461 . debut_cadre($style, $icone, '', $cadre, "document$id_document")
463 ("\n<div style='text-align: center'>"
465 . document_et_vignette($document, '', true)
467 . "\n<div class='verdana1' style='text-align: center; color: black;'>\n"
468 . ($type_titre ?
$type_titre :
469 ( _T('info_document').' '.majuscules($extension)))
472 . "\n<div style='padding:2px;' class='arial1 spip_xx-small'>"
475 . $legender($id_document, $document, $script, $type, $id, "document$id_document", $deplier)
480 // Etablit la liste des documents orphelins, c'est-a-dire qui ne sont lies
481 // a rien ; renvoie un tableau (id_document)
482 // ici on ne join pas avec la table objet pour voir si l'objet existe vraiment
483 // on considere que c'est le role d'optimiser que de nettoyer les liens morts
484 // sinon eventuellement appeler avant une fonction nettoyer_liens_documents
485 // http://doc.spip.org/@lister_les_documents_orphelins
486 function lister_les_documents_orphelins() {
487 $s = sql_select("D.id_document, D.id_vignette", "spip_documents AS D LEFT JOIN spip_documents_liens AS L ON D.id_document=L.id_document", "(L.id_objet IS NULL)");
489 $orphelins = array();
490 while ($t = sql_fetch($s)) {
491 $orphelins[$t['id_document']] = true;
492 // la vignette d'un orphelin est orpheline
493 if ($t['id_vignette'])
494 $orphelins[$t['id_vignette']] = true;
498 // les vignettes qui n'appartiennent a aucun document sont aussi orphelines
499 $s = sql_select("V.id_document", "spip_documents AS V LEFT JOIN spip_documents AS D ON V.id_document=D.id_vignette", "V.mode='vignette' AND D.id_document IS NULL");
500 while ($t = sql_fetch($s))
501 $orphelins[$t['id_document']] = true;
503 return array_keys(array_filter($orphelins));
506 // Supprimer les documents de la table spip_documents,
507 // ainsi que les fichiers correspondants dans IMG/
508 // Fonction a n'appeler que sur des documents orphelins
509 // http://doc.spip.org/@supprimer_documents
510 function supprimer_documents($liste = array()) {
514 $in = sql_in('id_document', $liste);
516 // Supprimer les fichiers locaux et les copies locales
518 $s = sql_select("fichier, distant", "spip_documents", $in);
519 while ($t = sql_fetch($s)) {
520 if ($t['distant'] == 'oui') {
521 include_spip('inc/distant');
522 if ($local = copie_locale($t['fichier'], 'test'))
523 spip_log("efface $local = ".$t['fichier']);
524 supprimer_fichier($local);
527 if (@file_exists
($f = get_spip_doc($t['fichier']))) {
528 spip_log("efface $f");
529 supprimer_fichier($f);
534 // Supprimer les entrees dans spip_documents et associees
535 sql_delete('spip_documents', $in);
536 // en principe il ne devrait rien y avoir ici si les documents sont bien orphelins
537 sql_delete('spip_documents_liens', $in);