ecrire/inc/joindre.php

   1 <?php
   2
   3 /***************************************************************************\
   4  *  SPIP, Systeme de publication pour l'internet                           *
   5  *                                                                         *
   6  *  Copyright (c) 2001-2007                                                *
   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 if (!defined("_ECRIRE_INC_VERSION")) return;
  14
  15 include_spip('inc/actions'); // *action_auteur et determine_upload
  16 include_spip('base/abstract_sql');
  17
  18 //
  19 // Construire un formulaire pour telecharger un fichier
  20 //
  21
  22 // http://doc.spip.org/@inc_joindre_dist
  23 function inc_joindre_dist($script, $args, $id=0, $intitule='', $mode='', $type='', $ancre='', $id_document=0,$iframe_script='') {
  24         global $spip_lang_right;
  25         $vignette_de_doc = ($mode == 'vignette' AND $id_document>0);
  26         $distant = ($mode == 'document' AND $type);
  27         if ($intitule) $intitule = "<span>$intitule</span><br />";
  28
  29         $dir_ftp = '';
  30         if (!_DIR_RESTREINT AND !$vignette_de_doc AND $GLOBALS['flag_upload']) {
  31                 if($dir = determine_upload()) {
  32                         // quels sont les docs accessibles en ftp ?
  33                         $l = texte_upload_manuel($dir, '', $mode);
  34                         // s'il n'y en a pas, on affiche un message d'aide
  35                         // en mode document, mais pas en mode vignette
  36                         if ($l OR ($mode == 'document'))
  37                                 $dir_ftp = afficher_transferer_upload($l, $dir);
  38                 }
  39         }
  40
  41   // Add the redirect url when uploading via iframe
  42
  43   $iframe = "";
  44   if($iframe_script)
  45     $iframe = "<input type='hidden' name='iframe_redirect' value='".rawurlencode($iframe_script)."' />\n";
  46
  47         // Un menu depliant si on a une possibilite supplementaire
  48
  49         if ($dir_ftp OR $distant OR $vignette_de_doc) {
  50                 $bloc = "ftp_$mode" .'_'. intval($id_document);
  51                 $debut = "\n\t<div style='float:".$GLOBALS['spip_lang_left'].";position:relative'>"
  52                         . bouton_block_invisible($bloc) ."</div>\n";
  53                 $milieu = debut_block_invisible($bloc);
  54                 $fin = "\n\t" . fin_block();
  55
  56         } else $debut = $milieu = $fin = '';
  57
  58         // Lien document distant, jamais en mode image
  59         if ($distant) {
  60                 $distant = "<br />\n<div style='border: 1px #303030 solid; padding: 4px; color: #505050;'>" .
  61                         "\n\t<img src='"._DIR_IMG_PACK.'attachment.gif' .
  62                         "' style='float: $spip_lang_right;' alt=\"\" />\n" .
  63                         _T('info_referencer_doc_distant') .
  64                         "<br />\n\t<input name='url' class='fondo' value='http://' />" .
  65                         "\n\t<div align='$spip_lang_right'><input name='sousaction2' type='submit' value='".
  66                         _T('bouton_choisir').
  67                         "' class='fondo' /></div>" .
  68                         "\n</div>";
  69         }
  70
  71         $res = "<input name='fichier' type='file' class='forml spip_xx-small' size='15' />"
  72         . "\n\t\t<input type='hidden' name='ancre' value='$ancre' />"
  73         . "\n\t\t<div align='$spip_lang_right'><input name='sousaction1' type='submit' value='"
  74         . _T('bouton_telecharger')
  75         . "' class='fondo' /></div>";
  76
  77         if ($vignette_de_doc)
  78                 $res = $milieu . $res;
  79         else
  80                 $res = $res . $milieu;
  81
  82         return generer_action_auteur('joindre',
  83                 (intval($id) .'/' .intval($id_document) . "/$mode/$type"),
  84                 (_DIR_RESTREINT)?$script:generer_url_ecrire($script, $args, true),
  85                 "$iframe$debut$intitule$res$dir_ftp$distant$fin",
  86                 " method='post' enctype='multipart/form-data' class='form_upload'");
  87 }
  88
  89
  90 //
  91 // Retourner le code HTML d'utilisation de fichiers envoyes
  92 //
  93
  94 // http://doc.spip.org/@texte_upload_manuel
  95 function texte_upload_manuel($dir, $inclus = '', $mode = 'document') {
  96         $fichiers = preg_files($dir);
  97         $exts = array();
  98         $dirs = array();
  99         $texte_upload = array();
 100         foreach ($fichiers as $f) {
 101                 $f = preg_replace(",^$dir,",'',$f);
 102                 if (ereg("\.([^.]+)$", $f, $match)) {
 103                         $ext = strtolower($match[1]);
 104                         if (!isset($exts[$ext])) {
 105                                 if ($ext == 'jpeg') $ext = 'jpg'; # cf. corriger_extension dans inc/getdocument
 106                                 if (spip_abstract_fetsel('extension', 'spip_types_documents', "extension='$ext'" . (!$inclus ? '':  " AND inclus='$inclus'")))
 107                                         $exts[$ext] = 'oui';
 108                                 else $exts[$ext] = 'non';
 109                         }
 110
 111                         $k = 2*substr_count($f,'/');
 112                         $n = strrpos($f, "/");
 113                         if ($n === false)
 114                           $lefichier = $f;
 115                         else {
 116                           $lefichier = substr($f, $n+1, strlen($f));
 117                           $ledossier = substr($f, 0, $n);
 118                           if (!in_array($ledossier, $dirs)) {
 119                                 $texte_upload[] = "\n<option value=\"$ledossier\">"
 120                                 . str_repeat("&nbsp;",$k)
 121                                 ._T('tout_dossier_upload', array('upload' => $ledossier))
 122                                 ."</option>";
 123                                 $dirs[]= $ledossier;
 124                           }
 125                         }
 126
 127                         if ($exts[$ext] == 'oui')
 128                           $texte_upload[] = "\n<option value=\"$f\">" .
 129                             str_repeat("&nbsp;",$k+2) .
 130                             $lefichier .
 131                             "</option>";
 132                 }
 133         }
 134
 135         $texte = join('', $texte_upload);
 136
 137         if ($mode == "document" AND count($texte_upload)>1) {
 138                 $texte = "\n<option value=\"/\" style='font-weight: bold;'>"
 139                                 ._T('info_installer_tous_documents')
 140                                 ."</option>" . $texte;
 141         }
 142
 143         return $texte;
 144 }
 145
 146
 147 // http://doc.spip.org/@afficher_transferer_upload
 148 function afficher_transferer_upload($texte_upload, $dir)
 149 {
 150         $doc = array('upload' => '<b>' . joli_repertoire($dir) . '</b>');
 151         if (!$texte_upload) {
 152                 return "\n<div style='border: 1px #303030 solid; padding: 4px; color: #505050;'>" .
 153                         _T('info_installer_ftp', $doc) .
 154                         aide("ins_upload") .
 155                         "</div>";
 156                 }
 157         else {  return
 158                 "\n<div style='color: #505050;'>"
 159                 ._T('info_selectionner_fichier', $doc)
 160                 ."&nbsp;:<br />\n" .
 161                 "\n<select name='chemin' size='1' class='fondl'>" .
 162                 $texte_upload .
 163                 "\n</select>" .
 164                 "\n<div align='".
 165                 $GLOBALS['spip_lang_right'] .
 166                 "'><input name='sousaction3' type='submit' value='" .
 167                 _T('bouton_choisir').
 168                 "' class='fondo' /></div>" .
 169                 "</div>\n";
 170         }
 171 }
 172 ?>