3 /***************************************************************************\
4 * SPIP, Systeme de publication pour l'internet *
6 * Copyright (c) 2001-2016 *
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 // inclure les fonctions bases du core
16 include_once _DIR_RESTREINT
. "inc/documents.php";
18 include_spip('inc/actions'); // *action_auteur et determine_upload
20 // Constante indiquant le charset probable des documents non utf-8 joints
22 if (!defined('CHARSET_JOINT')) define('CHARSET_JOINT', 'iso-8859-1');
24 // Filtre pour #FICHIER permettant d'incruster le contenu d'un document
25 // Si 2e arg fourni, conversion dans le charset du site si possible
27 // http://code.spip.net/@contenu_document
28 function contenu_document($arg, $charset='')
30 if (is_numeric($arg)) {
31 $r = sql_fetsel("fichier,distant", "spip_documents", "id_document=".intval($arg));
34 $f = ($r['distant'] =='oui') ? _DIR_RACINE
. copie_locale($f) : get_spip_doc($f);
37 if (!@file_exists
($f=$arg)){
38 if (!$f = copie_locale($f))
40 $f = _DIR_RACINE
. $f;
44 $r = spip_file_get_contents($f);
47 include_spip('inc/charsets');
48 if ($charset !== 'auto') {
49 $r = importer_charset($r, $charset);
50 } elseif ($GLOBALS['meta']['charset'] == 'utf-8' AND !is_utf8($r))
51 $r = importer_charset($r, CHARSET_JOINT
);
56 // http://code.spip.net/@generer_url_document_dist
57 function generer_url_document_dist($id_document, $args='', $ancre='') {
59 include_spip('inc/autoriser');
60 if (!autoriser('voir', 'document', $id_document)) return '';
62 $r = sql_fetsel("fichier,distant", "spip_documents", "id_document=".intval($id_document));
68 if ($r['distant'] == 'oui') return $f;
70 // Si droit de voir tous les docs, pas seulement celui-ci
71 // il est inutilement couteux de rajouter une protection
72 $r = (autoriser('voir', 'document'));
73 if (($r AND $r !== 'htaccess'))
74 return get_spip_doc($f);
76 include_spip('inc/securiser_action');
78 // cette action doit etre publique !
79 return generer_url_action('acceder_document',
80 $args . ($args ?
"&" : '')
82 . ($ancre ?
"&ancre=$ancre" : '')
83 . '&cle=' . calculer_cle_action($id_document.','.$f)
84 . '&file=' . rawurlencode($f)
89 // Affiche le document avec sa vignette par defaut
91 // Attention : en mode 'doc', si c'est un fichier graphique on prefere
92 // afficher une vue reduite, quand c'est possible (presque toujours, donc)
93 // En mode 'image', l'image conserve sa taille
95 // A noter : dans le portfolio prive on pousse le vice jusqu'a reduire la taille
96 // de la vignette -> c'est a ca que sert la variable $portfolio
97 // http://code.spip.net/@vignette_automatique
98 function vignette_automatique($img, $doc, $lien, $x=0, $y=0, $align='', $class='spip_logos')
100 include_spip('inc/distant');
101 include_spip('inc/texte');
102 include_spip('inc/filtres_images_mini');
103 $e = $doc['extension'];
105 if ($img = image_du_document($doc)) {
106 if (!$x AND !$y) // eviter une double reduction
107 $img = image_reduire($img);
110 $f = charger_fonction('vignette','inc');
111 $img = $f($e, false);
112 $size = @getimagesize
($img);
113 $img = "<img src='$img' ".$size[3]." />";
117 $size = @getimagesize
($img);
118 $img = "<img src='$img' ".$size[3]." />";
120 // on appelle image_reduire independamment de la presence ou non
121 // des librairies graphiques
122 // la fonction sait se debrouiller et faire de son mieux dans tous les cas
124 $img = image_reduire($img, $x, $y);
126 $img = inserer_attribut($img, 'alt', '');
127 $img = inserer_attribut($img, 'class', $class);
128 if ($align) $img = inserer_attribut($img, 'align', $align);
130 if (!$lien) return $img;
132 $titre = supprimer_tags(typo($doc['titre']));
133 $titre = " - " .taille_en_octets($doc['taille'])
134 . ($titre ?
" - $titre" : "");
136 $type = sql_fetsel('titre, mime_type','spip_types_documents', "extension = " . sql_quote($e));
138 $mime = $type['mime_type'];
139 $titre = attribut_html(couper($type['titre'] . $titre, 80));
141 return "<a href='$lien' type='$mime' title='$titre'>$img</a>";
144 // Trouve une image caracteristique d'un document.
145 // Si celui-ci est une image et que les outils graphiques sont dispos,
146 // retourner le document (en exploitant sa copie locale s'il est distant).
147 // Autrement retourner la vignette fournie par SPIP pour ce type MIME
148 // Resultat: un fichier local existant
150 function image_du_document($document)
152 $e = $document['extension'];
153 if ($e AND (strpos($GLOBALS['meta']['formats_graphiques'], $e) !== false)
154 AND (!test_espace_prive() OR $GLOBALS['meta']['creer_preview']=='oui')
155 AND $document['fichier']) {
156 if ($document['distant'] == 'oui') {
157 $image = _DIR_RACINE
.copie_locale($document['fichier']);
160 $image = get_spip_doc($document['fichier']);
161 if (@file_exists
($image)) return $image;
168 * Afficher un document dans la colonne de gauche
171 * Utiliser l'inclusion prévue ou une véritable
172 * déclaration d'objet éditorial (la colonne document
173 * est alors affichée automatiquement sur la page d'édition de l'objet)
176 * Identifiant de l'objet, ou id_auteur négatif pour un nouvel objet
177 * @param string $type
179 * @param null $script
182 * Code HTML permettant de gérer des documents
184 function afficher_documents_colonne($id, $type="article", $script=NULL) {
185 return recuperer_fond('prive/objets/editer/colonne_document', array('objet'=>$type,'id_objet'=>$id));
190 * Affiche le code d'un raccourcis de document, tel que <doc123|left>
192 * Affiche un code de raccourcis de document, et l'insère
193 * dans le textarea principal de l'objet (champ 'texte') sur un double-clic
196 * Type de raccourcis : doc,img,emb...
198 * Identifiant du document
199 * @param string $align
200 * Alignement du document : left,center,right
203 * Texte du raccourcis
205 function affiche_raccourci_doc($doc, $id, $align) {
207 $pipe = $onclick = "";
211 $onclick = "\nondblclick=\"barre_inserer('\\x3C$doc$id$pipe>', $('textarea[name=texte]')[0]);\"\ntitle=\"". str_replace('&', '&', entites_html(_T('medias:double_clic_inserer_doc')))."\"";
216 return "\n<div style='text-align: $align'$onclick><$doc$id$pipe></div>\n";