source: bureau/class/m_bro.php @ 1

Revision 1, 23.9 KB checked in by anarcat, 7 years ago (diff)

[project @ Tailorization of alternc]
Tailorization of alternc

Import of the upstream sources from

Repository: /cvs
Module: alternc
Revision: 2003-03-26 17:41:29 by root

Original author: tailor@cvs
Date: 2005-08-30 16:57:40
Line 
1<?php
2/*
3 $Id: m_bro.php,v 1.1.1.1 2003/03/26 17:41:29 root Exp $
4 ----------------------------------------------------------------------
5 LICENSE
6
7 This program is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License (GPL)
9 as published by the Free Software Foundation; either version 2
10 of the License, or (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 GNU General Public License for more details.
16
17 To read the license please visit http://www.gnu.org/copyleft/gpl.html
18 ----------------------------------------------------------------------
19 Original Author of file:
20 Purpose of file:
21 ----------------------------------------------------------------------
22*/
23/**
24* Classe de gestion du navigateur de fichiers en ligne.
25*
26* Cette classe permet de gérer les fichiers, dossiers ...
27* d'un membre hébergé.<br>
28* Copyleft {@link http://alternc.net/ AlternC Team}
29*
30* @copyright    AlternC-Team 2002-11-01 http://alternc.net/
31*
32*/
33class m_bro {
34
35  /** Membre dont on gère les domaines */
36  var $uid=0;
37
38  /** Taille totale du dossier après appel à FileList */
39  var $sizetot=0;
40
41  /** Mode d'affichage des fichiers en colonne */
42  var $l_mode=array(0=>"1 column, detailed",1=>"2 columns, short",2=>"3 columns, short");
43
44  /** Mode de téléchargement d'un dossier compressé (zip,bz,tar,..) */
45  var $l_tgz=array(0=>"tgz (Linux)",1=>"tar.bz2 (Linux)",2=>"zip (Windows/Dos)",3=>"tar.Z (Unix)");
46
47  /** Faut-il afficher ou non les icones ? */
48  var $l_icons=array(0=>"No",1=>"Yes");
49
50  /** Que fait-on après la création d'un fichier ? */
51  var $l_createfile=array(0=>"Go back to the file manager",1=>"Edit the newly created file");
52
53  /** Cache des descriptions de fichier extraits de la base
54   * @access private
55   */
56  var $mime_desc=array();
57
58  /** Cache des icones extraits de la base
59   * @access private
60   */
61  var $mime_icon=array();
62
63  /** Cache des types mimes extraits de la base
64   * @access private
65   */
66  var $mime_type=array();
67
68  /** Choix des polices d'édition de fichiers */
69  var $l_editor_font=array("Arial, Helvetica, Sans-serif","Times, Bookman, Serif","Courier New, Courier, Fixed");
70
71  /** Choix des tailles de police d'édition de fichiers */
72  var $l_editor_size=array("18px","14px","12px","10px","8px","0.8em","0.9em","1em","1.1em","1.2em");
73
74  /* ----------------------------------------------------------------- */
75  /** Constructeur */
76  function m_brouteur($membre=0) {
77    $this->uid=$membre;
78  }
79
80  /* ----------------------------------------------------------------- */
81  /** Vérifie un dossier relatif au dossier de l'utilisateur courant
82   *
83   * @param string $dir Dossier (absolu que l'on souhaite vérifier
84   * @return string Retourne le nom du dossier vérifié, relatif au
85   * dossier de l'utilisateur courant, éventuellement corrigé.
86   * ou FALSE si le dossier n'est pas dans le dossier de l'utilisateur.
87   */
88  function convertabsolute($dir,$strip=1) {
89    global $mem;
90    $root="/var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"];
91    $dir=realpath($root."/".$dir);
92    if (substr($dir,0,strlen($root))!=$root) {
93      return false;
94    }
95    if ($strip) $dir=substr($dir,strlen($root));
96    if (substr($dir,-1)=="/") {
97      return substr($dir,0,strlen($dir)-1);
98    } else
99      return $dir;
100  }
101
102  /* ----------------------------------------------------------------- */
103  /** Retourne un tableau contenant la liste des fichiers du dossier courant
104   * Ce tableau contient tous les paramètres des fichiers du dossier courant
105   * sous la forme d'un tableau indexé de tableaux associatifs comme suit :
106   * $a["name"]=nom du fichier / dossier
107   * $a["size"]=Taille totale du fichier / dossier + sous-dossier
108   * $a["date"]=Date de dernière modification
109   * $a["type"]=Type du fichier (1 pour fichier, 0 pour dossier)
110   * @param string $dir dossier relatif au dossier racine du compte du
111   * membre courant
112   * @return array le tableau contenant les fichiers de $dir, et
113   * $this->sizetot contient en sortie la taille totale du dossier $dir (en octets).
114   */
115  function filelist($dir="") {
116    global $db;
117    $db->query("UPDATE browser SET lastdir='$dir' WHERE uid=".$this->uid.";");
118    $absolute=$this->convertabsolute($dir,0);
119    $this->sizetot=0;
120    if ($dir = @opendir($absolute)) {
121      while (($file = readdir($dir)) !== false) {
122        if ($file!="." && $file!="..") {
123          $size=$this->fsize($absolute."/".$file);
124          $this->sizetot+=$size;
125          $c[]=array("name"=>$file, "size"=>$size, "date"=>filemtime($absolute."/".$file), "type"=> (!is_dir($absolute."/".$file)) );
126        }
127      }
128      closedir($dir);
129    }
130    if (is_array($c)) {
131      usort ($c, "__sort_filelist_name");
132      return $c;
133    } else {
134      return array();
135    }
136  }
137
138  /* ----------------------------------------------------------------- */
139  /** Retourne un tableau contenant les préférences de l'utilisateur courant
140   * Ce tableau aqssociatif contient les valeurs des champs de la table "browser"
141   * pour l'utilisateur courant.
142   * @return array Tableau des préférences de l'utilisateur courant.
143   */
144  function GetPrefs() {
145    global $db;
146    $db->query("SELECT * FROM browser WHERE uid=".$this->uid.";");
147    if ($db->num_rows()==0) {
148      $db->query("INSERT INTO browser (editsizex, editsizey, listmode, showicons, downfmt, createfile, showtype, uid, editor_font, editor_size) VALUES (70, 21, 0, 0, 0, 0, 0, ".$this->uid.",'Arial, Helvetica, Sans-serif','12px');");
149      $db->query("SELECT * FROM browser WHERE uid=".$this->uid.";");
150    }
151    $db->next_record();
152    return $db->Record;
153  }
154
155  /* ----------------------------------------------------------------- */
156  /** Modifie les préférences de l'utilisateur courant.
157   *
158   * @param integer $editsizex  Taille de l'éditeur (nombre de colonnes)
159   * @param integer $editsizey  Taille de l'éditeur (nombre de lignes)
160   * @param integer $listmode   Mode d'affichage de la liste des fichiers
161   * @param integer $showicons  Faut-il afficher / cacher les icones des fichiers
162   * @param integer $downfmt    Dans quel format faut-il télécharger les dossiers compressés
163   * @param integer $createfile Faut-il editer/revenir au browser après création d'un fichier
164   * @param integer $showtype Faut-il afficher le type mime des fichiers
165   * @param integer $editor_font  Quelle police faut-il utiliser pour l'éditeur
166   * @param integer $editor_size  Quelle taille de police faut-il utiliser pour l'éditeur
167   * @param integer $golastdir  Faut-il revenir à la racine ou au dernier dossier visité ?
168   * @return boolean TRUE
169   */
170  function SetPrefs($editsizex, $editsizey, $listmode, $showicons, $downfmt, $createfile, $showtype, $editor_font, $editor_size, $golastdir) {
171    global $db;
172    $editsizex=intval($editsizex);      $editsizey=intval($editsizey);
173    $listmode=intval($listmode);        $showicons=intval($showicons);
174    $showtype=intval($showtype);        $downfmt=intval($downfmt);
175    $createfile=intval($createfile);    $golastdir=intval($golastdir);
176    $db->query("SELECT * FROM browser WHERE uid=".$this->uid.";");
177    if ($db->num_rows()==0) {
178      $db->query("INSERT INTO browser (editsizex, editsizey, listmode, showicons, downfmt, createfile, showtype, uid, editor_font, editor_size, golastdir) VALUES (70, 21, 0, 0, 0, 0, 0, ".$this->uid.",'Arial, Helvetica, Sans-serif','12px',1);");
179    }
180    $db->query("UPDATE browser SET editsizex=$editsizex, editsizey=$editsizey, listmode=$listmode, showicons=$showicons, downfmt=$downfmt, createfile=$createfile, showtype=$showtype, editor_font='$editor_font', editor_size='$editor_size', golastdir='$golastdir' WHERE uid=".$this->uid.";");
181    return true;
182  }
183
184  /* ----------------------------------------------------------------- */
185  /** Retourne le nom du fichier icone associé au fichier donc le nom est $file
186   * <b>Note</b>: Les fichiers icones sont mis en cache sur la page courante.
187   * @param string $file Fichier dont on souhaite connaitre le fichier icone
188   * @return string Fichier icone correspondant.
189   */
190  function icon($file) {
191    global $db;
192    if (!strpos($file,".") && substr($file,0,1)!=".") {
193      return "file.png";
194    }
195    $t=explode(".",$file);
196    if (!is_array($t))
197      $ext=$t;
198    else
199      $ext=$t[count($t)-1];
200    // Now seek the extension
201    if (!$this->mime_icon[$ext]) {
202      $db->query("SELECT * FROM mime WHERE ext='$ext';");
203      if ($db->num_rows()) {
204        $db->next_record();
205        $this->mime_icon[$ext]=$db->f("icon");
206        $this->mime_desc[$ext]=$db->f("descr");
207        $this->mime_type[$ext]=$db->f("mime");
208      }
209    }
210    if ($this->mime_icon[$ext]) {
211      return $this->mime_icon[$ext].".png";
212    } else
213      return "file.png";
214
215  }
216
217  /* ----------------------------------------------------------------- */
218  /** Retourne le type mime associé au fichier donc le nom est $file
219   * <b>Note</b>: Les types mimes sont mis en cache sur la page courante.
220   * Le type mime est déterminé d'après l'extension du fichier.
221   * @param string $file Fichier dont on souhaite connaitre le type mime
222   * @return string Type mime / Sous type du fichier demandé
223   */
224  function mime($file) {
225    global $db;
226    // TODO : Add the support for multi-language mime types
227    // (maybe in a dbm file instead of a mysql query ?).
228    if (!strpos($file,".") && substr($file,0,1)!=".") {
229      return _("File");
230    }
231    $t=explode(".",$file);
232    if (!is_array($t))
233      $ext=$t;
234    else
235      $ext=$t[count($t)-1];
236    // Now seek the extension
237    if (!$this->mime_desc[$ext]) {
238      $db->query("SELECT * FROM mime WHERE ext='$ext';");
239      if ($db->num_rows()) {
240        $db->next_record();
241        $this->mime_icon[$ext]=$db->f("icon");
242        $this->mime_desc[$ext]=$db->f("descr");
243        $this->mime_type[$ext]=$db->f("mime");
244      }
245    }
246    if ($this->mime_desc[$ext]) {
247      return $this->mime_desc[$ext];
248    } else
249      return _("File");
250
251  }
252
253  /* ----------------------------------------------------------------- */
254  /** Retourne la taille du fichier $file
255   * si $file est un dossier, retourne la taille de ce dossier et de tous
256   * ses sous dossiers.
257   * @param string $file Fichier dont on souhaite connaitre la taille
258   * @return integer Taille du fichier en octets.
259   */
260  function fsize($file) {
261    if (is_dir($file)) {
262      return exec("/usr/lib/alternc/du.pl ".$file)*1024;
263    } else {
264      return filesize($file);
265    }
266  }
267
268  /* ----------------------------------------------------------------- */
269  /** Crée le dossier $file dans le dossier (parent) $dir
270   * @param string $dir dossier dans lequel on veut créer un sous-dossier
271   * @param string $file nom du dossier à créer
272   * @return boolean TRUE si le dossier a été créé, FALSE si une erreur s'est produite.
273   */
274  function CreateDir($dir,$file) {
275    global $db;
276    $absolute=$this->convertabsolute($dir,0);
277    $file=ssla($file);
278    if (!file_exists($absolute."/".$file)) {
279      mkdir($absolute."/".$file,00777);
280    }
281    $db->query("UPDATE browser SET crff=1 WHERE uid=".$this->uid.";");
282  }
283
284  /* ----------------------------------------------------------------- */
285  /** Crée un fichier vide dans un dossier
286   * @param string $dir Dossier dans lequel on crée le nouveau fichier
287   * @param string $file Fichier que l'on souhaite créer.
288   * @return boolean TRUE si le dossier a été créé, FALSE si une erreur s'est produite.
289   */
290  function CreateFile($dir,$file) {
291    global $db,$err;
292    $absolute=$this->convertabsolute($dir,0);
293    if (!$absolute) {
294      $err->raise("bro",1);
295      return false;
296    }
297    $file=ssla($file);
298    if (!file_exists($absolute."/".$file)) {
299      touch($absolute."/".$file);
300    }
301    $db->query("UPDATE browser SET crff=0 WHERE uid=".$this->uid.";");
302  }
303
304  /* ----------------------------------------------------------------- */
305  /** Efface les fichiers du tableau $file_list dans le dossier $R
306   * @param array $file_list Liste des fichiers à effacer.
307   * @param string $R Dossier dans lequel on efface les fichiers
308   * @return boolean TRUE si les fichiers ont été effacés, FALSE si une erreur s'est produite.
309   */
310  function DeleteFile($file_list,$R) {
311    global $err;
312    $absolute=$this->convertabsolute($R,0);
313    if (!$absolute) {
314      $err->raise("bro",1);
315      return false;
316    }
317    for ($i=0;$i<count($file_list);$i++) {
318      $file_list[$i]=ssla($file_list[$i]);
319      if (!strpos($file_list[$i],"/") && file_exists($absolute."/".$file_list[$i])) { // Character / forbidden in a FILE name
320        $this->_delete($absolute."/".$file_list[$i]);
321      }
322    }
323    return true;
324  }
325
326  /* ----------------------------------------------------------------- */
327  /** Renomme les fichier de $old du dossier $R en $new
328   * @param string $R dossier dans lequel se trouve les fichiers à renommer.
329   * @param array of string $old Ancien nom des fichiers
330   * @param array of string $new Nouveau nom des fichiers
331   * @return boolean TRUE si les fichiers ont été renommés, FALSE si une erreur s'est produite.
332   */
333  function RenameFile($R,$old,$new) {
334    global $err;
335    $absolute=$this->convertabsolute($R,0);
336    if (!$absolute) {
337      $err->raise("bro",1);
338      return false;
339    }
340    for ($i=0;$i<count($old);$i++) {
341      $old[$i]=ssla($old[$i]); // strip slashes if needed
342      $new[$i]=ssla($new[$i]);
343      if (!strpos($old[$i],"/") && !strpos($new[$i],"/")) {  // caractère / interdit dans old ET dans new...
344        @rename($absolute."/".$old[$i],$absolute."/".$new[$i]);
345      }
346    }
347    return true;
348  }
349
350  /* ----------------------------------------------------------------- */
351  /** Déplace les fichier de $d du dossier $old vers $new
352   * @param array of string $d Liste des fichiers du dossier $old à déplacer
353   * @param string $old dossier dans lequel se trouve les fichiers à déplacer.
354   * @param string $new dossier vers lequel seront déplacés les fichiers.
355   * @return boolean TRUE si les fichiers ont été renommés, FALSE si une erreur s'est produite.
356   */
357  function MoveFile($d,$old,$new) {
358    global $err;
359    $old=$this->convertabsolute($old,0);
360    if (!$old) {
361      $err->raise("bro",1);
362      return false;
363    }
364    $new=$this->convertabsolute($new,0);
365    if (!$new) {
366      $err->raise("bro",1);
367      return false;
368    }
369    if ($old==$new) {
370      $err->raise("bro",2);
371      return false;
372    }
373    for ($i=0;$i<count($d);$i++) {
374      $d[$i]=ssla($d[$i]); // strip slashes if needed
375      if (!strpos($d[$i],"/") && file_exists($old."/".$d[$i]) && !file_exists($new."/".$d[$i])) { 
376        @rename($old."/".$d[$i],$new."/".$d[$i]);
377      }
378    }
379    return true;
380  }
381
382  /* ----------------------------------------------------------------- */
383  /** Recoit un champ file upload (Global) et le stocke dans le dossier $R
384   * Le champ file-upload originel doit s'appeler "userfile" et doit
385   * bien être un fichier d'upload.
386   * @param string $R Dossier dans lequel on upload le fichier
387   */
388  function UploadFile($R) {
389    global $_FILES,$err;
390    $absolute=$this->convertabsolute($R,0);
391    if (!$absolute) {
392      $err->raise("bro",1);
393      return false;
394    }
395    if (!strpos($_FILES['userfile']['name'],"/")) {
396      move_uploaded_file($_FILES['userfile']['tmp_name'], $absolute."/".$_FILES['userfile']['name']);
397    }
398  }
399
400  /* ----------------------------------------------------------------- */
401  /** Affiche le chemin et les liens de la racine au dossier $path
402   * Affiche autant de liens HTML (anchor) que le chemin $path contient de
403   * niveaux de dossier. Chaque lien est associé à la page web $action
404   * à laquelle on ajoute le paramètre R=+Le nom du dossier courant.
405   * @param string $path Dossier vers lequel on trace le chemin
406   * @param string $action Page web de destination des liens
407   * @return string le code HTML ainsi obtenu.
408   */
409  function PathList($path,$action) {
410    $path=$this->convertabsolute($path,1);
411    $a=explode("/",$path);
412    if (!is_array($a)) $a=array($a);
413    for($i=0;$i<count($a);$i++) {
414      if ($a[$i]) {
415        $R.=$a[$i]."/";
416        $c.="<a href=\"$action?R=$R\">".$a[$i]."</a>&nbsp;/&nbsp;";
417      }
418    }
419    return $c;
420  }
421
422  /* ----------------------------------------------------------------- */
423  /** Affiche le contenu d'un fichier pour un champ VALUE de textarea
424   * Affiche le contenu du fichier $file dans le dossier $R. Le contenu
425   * du fichier est reformaté pour pouvoir entrer dans un champs TextArea
426   * @param string $R Dossier dans lequel on cherche le fichier
427   * @param string $file Fichier dont on souhaite obtenir le contenu.
428   * @return boolean retourne TRUE si le fichier a bien été émis sur
429   * echo, ou FALSE si une erreur est survenue.
430   */
431  function content($R,$file) {
432    global $err;
433    $absolute=$this->convertabsolute($R,0);
434    if (!strpos($file,"/")) {
435      $absolute.="/".$file;
436      if (file_exists($absolute)) {
437        $content = @file($absolute);
438        for($i=0;$i<count($content);$i++) {
439          echo str_replace("<","&lt;",str_replace("&","&amp;",$content[$i]));
440        }
441      }
442    } else {
443      $err->raise("bro",1);
444      return false;
445    }
446  }
447
448  /** Cache des urls pour VIEW
449   * @access private
450   */
451  var $cacheurl=array();
452
453  // Return a browsing url if available.
454  // Maintain a url cache (positive AND negative(-) cache)
455  /* ----------------------------------------------------------------- */
456  /** Retourne une url de navigation pour le fichier $name du dossier $dir
457   * Les url sont mises en caches. Il se peut qu'aucune url n'existe, ou que
458   * celle-ci soit protégée par un .htaccess.
459   * @param string $dir Dossier concerné
460   * @param string $name Fichier dont on souhaite obtenir une URL
461   * @return string URL concernée, ou FALSE si aucune URL n'est disponible pour ce fichier
462   */
463  function viewurl($dir,$name) {
464    global $db;
465    // Is it in cache ?
466    if (substr($dir,0,1)=="/") $dir=substr($dir,1);
467    if (substr($dir,-1)=="/") $dir=substr($dir,0,strlen($dir)-1);;
468    if (!$this->cacheurl["d".$dir]) {
469      // On parcours $dir en remontant les /
470      $end="";  $beg=$dir;      $tofind=true;
471      while ($tofind) {
472        $db->query("SELECT sub,domaine FROM sub_domaines WHERE compte=".$this->uid."
473                         AND type=0 AND (valeur='/$beg/' or valeur='/$beg');");
474        $db->next_record();
475        if ($db->num_rows()) {
476          $tofind=false;
477          $this->cacheurl["d".$dir]="http://".$db->f("sub").ife($db->f("sub"),".").$db->f("domaine").$end;
478        }
479        if (!$beg && $tofind) {
480          $tofind=false;
481          $this->cacheurl["d".$dir]="-";
482                                // We did not find it ;(
483        }
484        if (($tt=strrpos($beg,"/"))!==false) {
485          $end=substr($beg,$tt).$end; // = /topdir$end so $end starts AND ends with /
486          $beg=substr($beg,0,$tt);
487        } else {
488          $end="/".$beg.$end;
489          $beg="/";
490        }
491      }
492    }
493    if ($this->cacheurl["d".$dir] && $this->cacheurl["d".$dir]!="-") {
494      return $this->cacheurl["d".$dir]."/".$name;
495    } else {
496      return false;
497    }
498  }
499
500  // Is it still in use ? TODO : Check if this function is still used :)
501  /* ----------------------------------------------------------------- */
502  function content_send($R,$file) {
503    global $err;
504    $absolute=$this->convertabsolute($R,0);
505    if (!strpos($file,"/")) {
506      $absolute.="/".$file;
507      if (file_exists($absolute)) {
508        $content = @file($absolute);
509        for($i=0;$i<count($content);$i++) {
510          echo stripslashes($content[$i]);
511        }
512      }
513    } else {
514      $err->raise("bro",1);
515      return false;
516    }
517  }
518
519  /* ----------------------------------------------------------------- */
520  /** Sauve le fichier $file dans le dossier $R avec pour contenu $texte
521   * le contenu est issu d'un textarea, et ne DOIT PAS contenir de \ ajoutés
522   * automatiquement par addslashes
523   * @param string $file Nom du fichier à sauver. S'il existe déjà, il sera
524   *  écrasé sans confirmation.
525   * @param string $R Dossier dans lequel on modifie le fichier
526   * @param string $texte texte du fichier à sauver dedans
527   * @return boolean TRUE si tout s'est bien passé, FALSE si une erreur s'est produite.
528   */
529  function save($file,$R,$texte) {
530    global $err;
531    $absolute=$this->convertabsolute($R,0);
532    if (!strpos($file,"/")) {
533      $absolute.="/".$file;
534      if (file_exists($absolute)) {
535        $f=@fopen($absolute,"wb");
536        if ($f) {
537          fputs($f,$texte,strlen($texte));
538          fclose($f);
539        }
540      }
541    } else {
542      $err->raise("bro",1);
543      return false;
544    }
545  }
546
547  /* ----------------------------------------------------------------- */
548  /** Echo d'un flux .tar.Z contenant tout le contenu du dossier $dir
549   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
550   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
551   */
552  function DownloadZ($dir="") {
553    global $mem;
554    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tar.Z");
555    header("Content-Type: application/x-Z");
556    header("Content-Transfer-Encoding: binary");
557    $d=escapeshellarg(substr($this->convertabsolute($dir,0),1));
558    passthru("/bin/tar -cZ -C /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
559  }
560
561  /* ----------------------------------------------------------------- */
562  /** Echo d'un flux .tgz contenant tout le contenu du dossier $dir
563   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
564   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
565   */
566  function DownloadTGZ($dir="") {
567    global $mem;
568    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
569    header("Content-Type: application/x-tgz");
570    header("Content-Transfer-Encoding: binary");
571    $d=escapeshellarg(substr($this->convertabsolute($dir,0),1));
572    passthru("/bin/tar -cz -C /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
573  }
574
575
576  /* ----------------------------------------------------------------- */
577  /** Echo d'un flux .tar.bz2 contenant tout le contenu du dossier $dir
578   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
579   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
580   */
581  function DownloadTBZ($dir="") {
582    global $mem;
583    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tar.bz2");
584    header("Content-Type: application/x-bzip2");
585    header("Content-Transfer-Encoding: binary");
586    $d=escapeshellarg(substr($this->convertabsolute($dir,0),1));
587    passthru("/bin/tar -cj -C /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
588  }
589
590  /* ----------------------------------------------------------------- */
591  /** Echo d'un flux .ZIP contenant tout le contenu du dossier $dir
592   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
593   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
594   */
595  function DownloadZIP($dir="") {
596    global $mem;
597    header("Content-Disposition: attachment; filename=".$mem->user["login"].".zip");
598    header("Content-Type: application/x-zip");
599    header("Content-Transfer-Encoding: binary");
600    $d=escapeshellarg($this->convertabsolute("/var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/".$dir,0));
601    passthru("/usr/bin/zip -r - /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/$d");
602  }
603
604  /* ----------------------------------------------------------------- */
605  /** Efface $file et tous ses sous-dossiers s'il s'agit d'un dossier
606   * A UTILISER AVEC PRECAUTION !!!
607   * @param string $file Fichier ou dossier à supprimer.
608   * @access private
609   */
610  function _delete($file) {
611    // permet d'effacer de nombreux fichiers
612    //settimelimit(0);
613    //chmod($file,0777);
614    if (is_dir($file)) {
615      $handle = opendir($file);
616      while($filename = readdir($handle)) {
617        if ($filename != "." && $filename != "..") {
618          $this->_delete($file."/".$filename);
619        }
620      }
621      closedir($handle);
622      rmdir($file);
623    } else {
624      unlink($file);
625    }
626  }
627
628
629} /* Classe BROUTEUR */
630
631/* ----------------------------------------------------------------- */
632/** Fonction de tri perso utilisé par filelist.
633 * @access private
634 */
635function __sort_filelist_name($a,$b) {
636  if ($a["type"] && !$b["type"]) return 1;
637  if ($b["type"] && !$a["type"]) return -1;
638  return $a["name"]>$b["name"];
639}
640
641?>
Note: See TracBrowser for help on using the repository browser.