www/plugins-dist/medias/medias_fonctions.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2019                                                *
   7  *  Arnaud Martin, Antoine Pitrou, Philippe Riviere, Emmanuel Saint-James  *
   8  *                                                                         *
   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 \***************************************************************************/
  12
  13 /**
  14  * Fonctions utiles pour les squelettes et déclarations de boucle
  15  * pour le compilateur
  16  *
  17  * @package SPIP\Medias\Fonctions
  18  **/
  19
  20 // sécurité
  21 if (!defined('_ECRIRE_INC_VERSION')) {
  22         return;
  23 }
  24
  25 // nettoyer les zip abandonnes par l'utilisateur
  26 if (isset($GLOBALS['visiteur_session']['zip_to_clean'])
  27         and test_espace_prive()
  28         and isset($_SERVER['REQUEST_METHOD'])
  29         and $_SERVER['REQUEST_METHOD'] !== 'POST'
  30 ) {
  31         $zip_to_clean = unserialize($GLOBALS['visiteur_session']['zip_to_clean']);
  32         if ($zip_to_clean) {
  33                 foreach ($zip_to_clean as $zip) {
  34                         if (@file_exists($zip)) {
  35                                 @unlink($zip);
  36                         }
  37                 }
  38         }
  39         session_set('zip_to_clean');
  40 }
  41
  42 // capturer un formulaire POST plus grand que post_max_size
  43 // on genere un minipres car on ne peut rien faire de mieux
  44 if (isset($_SERVER['REQUEST_METHOD'])
  45         and $_SERVER['REQUEST_METHOD'] == 'POST'
  46         and empty($_POST)
  47         and strlen($_SERVER['CONTENT_TYPE']) > 0
  48         and strncmp($_SERVER['CONTENT_TYPE'], 'multipart/form-data', 19) == 0
  49         and $_SERVER['CONTENT_LENGTH'] > medias_inigetoctets('post_max_size')
  50 ) {
  51         include_spip('inc/minipres');
  52         echo minipres(_T('medias:upload_limit', array('max' => ini_get('post_max_size'))));
  53         exit;
  54 }
  55
  56 /**
  57  * Retourne la taille en octet d'une valeur de configuration php
  58  *
  59  * @param string $var
  60  *     Clé de configuration ; valeur récupérée par `ini_get()`. Exemple `post_max_size`
  61  * @return int|string
  62  *     Taille en octet, sinon chaine vide.
  63  **/
  64 function medias_inigetoctets($var) {
  65         $last = '';
  66         $val = trim(@ini_get($var));
  67         if (is_numeric($val)) {
  68                 return $val;
  69         }
  70         // en octet si "32M"
  71         if ($val != '') {
  72                 $last = strtolower($val[strlen($val) - 1]);
  73                 $val = substr($val, 0, -1);
  74         }
  75         switch ($last) { // The 'G' modifier is available since PHP 5.1.0
  76                 case 'g':
  77                         $val *= 1024 * 1024 * 1024;
  78                         break;
  79                 case 'm':
  80                         $val *= 1024 * 1024;
  81                         break;
  82                 case 'k':
  83                         $val *= 1024;
  84                         break;
  85         }
  86
  87         return $val;
  88 }
  89
  90 /**
  91  * Afficher la puce de statut pour les documents
  92  *
  93  * @param int $id_document
  94  *     Identifiant du document
  95  * @param string $statut
  96  *     Statut du document
  97  * @return string
  98  *     Code HTML de l'image de puce
  99  */
 100 function medias_puce_statut_document($id_document, $statut) {
 101         if ($statut == 'publie') {
 102                 $puce = 'puce-verte.gif';
 103         } else {
 104                 if ($statut == 'prepa') {
 105                         $puce = 'puce-blanche.gif';
 106                 } else {
 107                         if ($statut == 'poubelle') {
 108                                 $puce = 'puce-poubelle.gif';
 109                         } else {
 110                                 $puce = 'puce-blanche.gif';
 111                         }
 112                 }
 113         }
 114
 115         return http_img_pack($puce, $statut, "class='puce'");
 116 }
 117
 118
 119 /**
 120  * Compile la boucle `DOCUMENTS` qui retourne une liste de documents multimédia
 121  *
 122  * `<BOUCLE(DOCUMENTS)>`
 123  *
 124  * @param string $id_boucle
 125  *     Identifiant de la boucle
 126  * @param array $boucles
 127  *     AST du squelette
 128  * @return string
 129  *     Code PHP compilé de la boucle
 130  **/
 131 function boucle_DOCUMENTS($id_boucle, &$boucles) {
 132         $boucle = &$boucles[$id_boucle];
 133         $id_table = $boucle->id_table;
 134
 135         // on ne veut pas des fichiers de taille nulle,
 136         // sauf s'ils sont distants (taille inconnue)
 137         array_unshift($boucle->where, array("'($id_table.taille > 0 OR $id_table.distant=\\'oui\\')'"));
 138
 139         /**
 140          * N'afficher que les modes de documents que l'on accepte
 141          * Utiliser le "pipeline medias_documents_visibles" pour en ajouter
 142          */
 143         if (!isset($boucle->modificateur['criteres']['mode'])
 144                 and !isset($boucle->modificateur['tout'])
 145         ) {
 146                 $modes = pipeline('medias_documents_visibles', array('image', 'document'));
 147                 $f = sql_serveur('quote', $boucle->sql_serveur, true);
 148                 $modes = addslashes(join(',', array_map($f, array_unique($modes))));
 149                 array_unshift($boucle->where, array("'IN'", "'$id_table.mode'", "'($modes)'"));
 150         }
 151
 152         return calculer_boucle($id_boucle, $boucles);
 153 }
 154
 155
 156 /**
 157  * Pour compat uniquement, utiliser generer_lien_entite
 158  *
 159  * @deprecated
 160  * @uses generer_lien_entite()
 161  *
 162  * @param int $id
 163  * @param string $type
 164  * @param int $longueur
 165  * @param null $connect
 166  * @return string
 167  */
 168 function lien_objet($id, $type, $longueur = 80, $connect = null) {
 169         return generer_lien_entite($id, $type, $longueur, $connect);
 170 }
 171
 172 /**
 173  * critere {orphelins} selectionne les documents sans liens avec un objet editorial
 174  *
 175  * @param string $idb
 176  * @param object $boucles
 177  * @param object $crit
 178  */
 179 function critere_DOCUMENTS_orphelins_dist($idb, &$boucles, $crit) {
 180
 181         $boucle = &$boucles[$idb];
 182         $cond = $crit->cond;
 183         $not = $crit->not ? '' : 'NOT';
 184
 185         $select = sql_get_select('DISTINCT id_document', 'spip_documents_liens as oooo');
 186         $where = "'" . $boucle->id_table . ".id_document $not IN ($select)'";
 187         if ($cond) {
 188                 $_quoi = '@$Pile[0]["orphelins"]';
 189                 $where = "($_quoi)?$where:''";
 190         }
 191
 192         $boucle->where[] = $where;
 193 }
 194
 195 /**
 196  * critere {portrait} qui selectionne
 197  * - les documents dont les dimensions sont connues
 198  * - les documents dont la hauteur est superieure a la largeur
 199  *
 200  * {!portrait} exclus ces documents
 201  *
 202  * @param string $idb
 203  * @param object $boucles
 204  * @param object $crit
 205  */
 206 function critere_DOCUMENTS_portrait_dist($idb, &$boucles, $crit) {
 207         $boucle = &$boucles[$idb];
 208         $table = $boucle->id_table;
 209         $not = ($crit->not ? 'NOT ' : '');
 210         $boucle->where[] = "'$not($table.largeur>0 AND $table.hauteur > $table.largeur)'";
 211 }
 212
 213 /**
 214  * critere {paysage} qui selectionne
 215  * - les documents dont les dimensions sont connues
 216  * - les documents dont la hauteur est inferieure a la largeur
 217  *
 218  * {!paysage} exclus ces documents
 219  *
 220  * @param string $idb
 221  * @param object $boucles
 222  * @param object $crit
 223  */
 224 function critere_DOCUMENTS_paysage_dist($idb, &$boucles, $crit) {
 225         $boucle = &$boucles[$idb];
 226         $table = $boucle->id_table;
 227         $not = ($crit->not ? 'NOT ' : '');
 228         $boucle->where[] = "'$not($table.largeur>0 AND $table.largeur > $table.hauteur)'";
 229 }
 230
 231 /**
 232  * critere {carre} qui selectionne
 233  * - les documents dont les dimensions sont connues
 234  * - les documents dont la hauteur est egale a la largeur
 235  *
 236  * {!carre} exclus ces documents
 237  *
 238  * @param string $idb
 239  * @param object $boucles
 240  * @param object $crit
 241  */
 242 function critere_DOCUMENTS_carre_dist($idb, &$boucles, $crit) {
 243         $boucle = &$boucles[$idb];
 244         $table = $boucle->id_table;
 245         $not = ($crit->not ? 'NOT ' : '');
 246         $boucle->where[] = "'$not($table.largeur>0 AND $table.largeur = $table.hauteur)'";
 247 }
 248
 249
 250 /**
 251  * Calcule la vignette d'une extension (l'image du type de fichier)
 252  *
 253  * Utile dans une boucle DOCUMENTS pour afficher une vignette du type
 254  * du document (balise `#EXTENSION`) alors que ce document a déjà une vignette
 255  * personnalisée (affichable par `#LOGO_DOCUMENT`).
 256  *
 257  * @example
 258  *     `[(#EXTENSION|vignette)]` produit une balise `<img ... />`
 259  *     `[(#EXTENSION|vignette{true})]` retourne le chemin de l'image
 260  *
 261  * @param string $extension
 262  *     L'extension du fichier, exemple : png ou pdf
 263  * @param bool $get_chemin
 264  *     false pour obtenir une balise img de l'image,
 265  *     true pour obtenir seulement le chemin du fichier
 266  * @return string
 267  *     Balise HTML <img...> ou chemin du fichier
 268  **/
 269 function filtre_vignette_dist($extension = 'defaut', $get_chemin = false) {
 270         static $vignette = false;
 271         static $balise_img = false;
 272
 273         if (!$vignette) {
 274                 $vignette = charger_fonction('vignette', 'inc');
 275                 $balise_img = charger_filtre('balise_img');
 276         }
 277
 278         $fichier = $vignette($extension, false);
 279         // retourne simplement le chemin du fichier
 280         if ($get_chemin) {
 281                 return $fichier;
 282         }
 283
 284         // retourne une balise <img ... />
 285         return $balise_img($fichier);
 286 }
 287
 288 /**
 289  * Determiner les methodes upload en fonction du env de inc-upload_document
 290  *
 291  * @param string|array $env
 292  * @return array
 293  */
 294 function medias_lister_methodes_upload($env) {
 295         if (is_string($env)) {
 296                 $env = unserialize($env);
 297         }
 298
 299         $methodes = array();
 300         // méthodes d'upload disponibles
 301         $methodes = array();
 302         $methodes['upload'] = array('label_lien'=>_T('medias:bouton_download_local'),'label_bouton'=>_T('bouton_upload'));
 303
 304         if((isset($env['mediatheque']) and $env['mediatheque'])){
 305                 $methodes['mediatheque'] = array('label_lien'=>_T('medias:bouton_download_par_mediatheque'),'label_bouton'=>_T('medias:bouton_attacher_document'));
 306         }
 307
 308         if((isset($env['proposer_ftp']) and $env['proposer_ftp'])){
 309                 $methodes['ftp'] = array('label_lien'=>_T('medias:bouton_download_par_ftp'),'label_bouton'=>_T('bouton_choisir'));
 310         }
 311         $methodes['distant'] = array('label_lien'=>_T('medias:bouton_download_sur_le_web'),'label_bouton'=>_T('bouton_choisir'));
 312
 313         // pipeline pour les méthodes d'upload
 314         $objet = isset($env['objet']) ? $env['objet'] : '';
 315         $id_objet = isset($env['id_objet']) ? $env['id_objet'] : '';
 316
 317         $methodes = pipeline('medias_methodes_upload',
 318                 array(
 319                         'args' => array('objet' => $objet, 'id_objet' => $id_objet),
 320                         'data' => $methodes
 321                 )
 322         );
 323
 324         return $methodes;
 325 }
 326
 327 function duree_en_secondes($duree, $precis = false) {
 328         $out = "";
 329         $heures = $minutes = 0;
 330         if ($duree>3600) {
 331                 $heures = intval(floor($duree/3600));
 332                 $duree -= $heures * 3600;
 333         }
 334         if ($duree>60) {
 335                 $minutes = intval(floor($duree/60));
 336                 $duree -= $minutes * 60;
 337         }
 338
 339         if ($heures>0 or $minutes>0) {
 340                 $out = _T('date_fmt_heures_minutes', array('h' => $heures, 'm' => $minutes));
 341                 if (!$heures) {
 342                         $out = preg_replace(',^0[^\d]+,Uims', '', $out);
 343                 }
 344         }
 345
 346         if (!$heures or $precis) {
 347                 $out .= intval($duree).'s';
 348         }
 349         return $out;
 350 }