source: alternc/trunk/bureau/class/m_bro.php @ 1738

Revision 1738, 24.8 KB checked in by nahuel, 7 years ago (diff)

Correction d'une faille permettant de creer des fichiers dans d'autres repertoires que le home du membre.

Line 
1<?php
2/*
3 $Id: m_bro.php,v 1.15 2005/12/18 09:51:32 benjamin 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/* Add the mime type list */
25@include("mime.php");
26
27/**
28* Classe de gestion du navigateur de fichiers en ligne.
29*
30* Cette classe permet de gérer les fichiers, dossiers ...
31* d'un membre hébergé.<br />
32* Copyleft {@link http://alternc.net/ AlternC Team}
33*
34* @copyright    AlternC-Team 2002-11-01 http://alternc.net/
35*
36*/
37
38
39class m_bro {
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_bro() {
77  }
78
79  /* ----------------------------------------------------------------- */
80  /** Vérifie un dossier relatif au dossier de l'utilisateur courant
81   *
82   * @param string $dir Dossier (absolu que l'on souhaite vérifier
83   * @return string Retourne le nom du dossier vérifié, relatif au
84   * dossier de l'utilisateur courant, éventuellement corrigé.
85   * ou FALSE si le dossier n'est pas dans le dossier de l'utilisateur.
86   */
87  function convertabsolute($dir,$strip=1) {
88    global $mem;
89    $root="/var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"];
90    // Sauvegarde du chemin de base.
91    $root_alternc = $root ;
92    // Passage du root en chemin réel (différent avec un lien)
93    $root=realpath($root) ;
94    $dir=realpath($root."/".$dir);
95
96    if (substr($dir,0,strlen($root))!=$root) {
97      return false;
98    } 
99    if ($strip) {
100      $dir=substr($dir,strlen($root));
101    } else {
102      // si on ne strip pas, il faut enlever le chemin réel
103      // et mettre la racine d'alternc pour éviter les
104      // problèmes de lien depuis /var/alternc !
105      $dir=$root_alternc . substr($dir,strlen($root));
106    } if (substr($dir,-1)=="/") {
107      return substr($dir,0,strlen($dir)-1);
108    } else
109      return $dir;
110  }
111
112  /* ----------------------------------------------------------------- */
113  /** Retourne un tableau contenant la liste des fichiers du dossier courant
114   * Ce tableau contient tous les paramètres des fichiers du dossier courant
115   * sous la forme d'un tableau indexé de tableaux associatifs comme suit :
116   * $a["name"]=nom du fichier / dossier
117   * $a["size"]=Taille totale du fichier / dossier + sous-dossier
118   * $a["date"]=Date de dernière modification
119   * $a["type"]=Type du fichier (1 pour fichier, 0 pour dossier)
120   * @param string $dir dossier relatif au dossier racine du compte du
121   * membre courant
122   * @return array le tableau contenant les fichiers de $dir, et
123   */
124  function filelist($dir="") {
125    global $db,$cuid;
126    $db->query("UPDATE browser SET lastdir='$dir' WHERE uid='$cuid';");
127    $absolute=$this->convertabsolute($dir,0);
128    if ($dir = @opendir($absolute)) {
129      while (($file = readdir($dir)) !== false) {
130        if ($file!="." && $file!="..") {
131          $c[]=array("name"=>$file, "size"=>$this->fsize($absolute."/".$file), "date"=>filemtime($absolute."/".$file), "type"=> (!is_dir($absolute."/".$file)) );
132        }
133      }
134      closedir($dir);
135    }
136    if (is_array($c)) {
137      usort ($c, array("m_bro","_sort_filelist_name"));
138      return $c;
139    } else {
140      return array();
141    }
142  }
143
144  /* ----------------------------------------------------------------- */
145  /** Retourne un tableau contenant les préférences de l'utilisateur courant
146   * Ce tableau aqssociatif contient les valeurs des champs de la table "browser"
147   * pour l'utilisateur courant.
148   * @return array Tableau des préférences de l'utilisateur courant.
149   */
150  function GetPrefs() {
151    global $db,$cuid;
152    $db->query("SELECT * FROM browser WHERE uid='$cuid';");
153    if ($db->num_rows()==0) {
154      $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, '$cuid','Arial, Helvetica, Sans-serif','12px');");
155      $db->query("SELECT * FROM browser WHERE uid='$cuid';");
156    }
157    $db->next_record();
158    return $db->Record;
159  }
160
161  /* ----------------------------------------------------------------- */
162  /** Modifie les préférences de l'utilisateur courant.
163   *
164   * @param integer $editsizex  Taille de l'éditeur (nombre de colonnes)
165   * @param integer $editsizey  Taille de l'éditeur (nombre de lignes)
166   * @param integer $listmode   Mode d'affichage de la liste des fichiers
167   * @param integer $showicons  Faut-il afficher / cacher les icones des fichiers
168   * @param integer $downfmt    Dans quel format faut-il télécharger les dossiers compressés
169   * @param integer $createfile Faut-il editer/revenir au browser après création d'un fichier
170   * @param integer $showtype Faut-il afficher le type mime des fichiers
171   * @param integer $editor_font  Quelle police faut-il utiliser pour l'éditeur
172   * @param integer $editor_size  Quelle taille de police faut-il utiliser pour l'éditeur
173   * @param integer $golastdir  Faut-il revenir à la racine ou au dernier dossier visité ?
174   * @return boolean TRUE
175   */
176  function SetPrefs($editsizex, $editsizey, $listmode, $showicons, $downfmt, $createfile, $showtype, $editor_font, $editor_size, $golastdir) {
177    global $db,$cuid;
178    $editsizex=intval($editsizex);      $editsizey=intval($editsizey);
179    $listmode=intval($listmode);        $showicons=intval($showicons);
180    $showtype=intval($showtype);        $downfmt=intval($downfmt);
181    $createfile=intval($createfile);    $golastdir=intval($golastdir);
182    $db->query("SELECT * FROM browser WHERE uid='$cuid';");
183    if ($db->num_rows()==0) {
184      $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);");
185    }
186    $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='$cuid';");
187    return true;
188  }
189
190  /* ----------------------------------------------------------------- */
191  /** Retourne le nom du fichier icone associé au fichier donc le nom est $file
192   * <b>Note</b>: Les fichiers icones sont mis en cache sur la page courante.
193   * @param string $file Fichier dont on souhaite connaitre le fichier icone
194   * @return string Fichier icone correspondant.
195   */
196  function icon($file) {
197    global $bro_icon;
198    if (!strpos($file,".") && substr($file,0,1)!=".") {
199      return "file.png";
200    }
201    $t=explode(".",$file);
202    if (!is_array($t))
203      $ext=$t;
204    else
205      $ext=$t[count($t)-1];
206    // Now seek the extension
207    if (!$bro_icon[$ext]) {
208        return "file.png";
209    } else {
210        return $bro_icon[$ext].".png";
211    }
212  }
213
214  /* ----------------------------------------------------------------- */
215  /** Retourne le type mime associé au fichier donc le nom est $file
216   * <b>Note</b>: Les types mimes sont mis en cache sur la page courante.
217   * Le type mime est déterminé d'après l'extension du fichier.
218   * @param string $file Fichier dont on souhaite connaitre le type mime
219   * @return string Type mime / Sous type du fichier demandé
220   */
221  function mime($file) {
222    global $bro_type;
223    if (!strpos($file,".") && substr($file,0,1)!=".") {
224      return _("File");
225    }
226    $t=explode(".",$file);
227    if (!is_array($t))
228      $ext=$t;
229    else
230      $ext=$t[count($t)-1];
231    // Now seek the extension
232    if (!$bro_type[$ext]) {
233        return _("File");
234    } else {
235        return _($bro_type[$ext]);
236    }
237  }
238
239  /* ----------------------------------------------------------------- */
240  /** Retourne la taille du fichier $file
241   * si $file est un dossier, retourne la taille de ce dossier et de tous
242   * ses sous dossiers.
243   * @param string $file Fichier dont on souhaite connaitre la taille
244   * @return integer Taille du fichier en octets.
245   * TODO : create a du cache ...
246   */
247  function fsize($file) {
248    if (is_dir($file)) {
249      return "-";
250    } else {
251      return filesize($file);
252    }
253  }
254
255  /* ----------------------------------------------------------------- */
256  /** Crée le dossier $file dans le dossier (parent) $dir
257   * @param string $dir dossier dans lequel on veut créer un sous-dossier
258   * @param string $file nom du dossier à créer
259   * @return boolean TRUE si le dossier a été créé, FALSE si une erreur s'est produite.
260   */
261  function CreateDir($dir,$file) {
262    global $db,$cuid,$err;
263    $file=ssla($file);
264    $absolute=$this->convertabsolute($dir."/".$file,0);
265    if ($absolute && !file_exists($absolute)) {
266      mkdir($absolute,00777);
267      $db->query("UPDATE browser SET crff=1 WHERE uid='$cuid';");
268      return true;
269    } else {
270      $err->raise("bro",1);
271      return false;
272    }
273  }
274
275  /* ----------------------------------------------------------------- */
276  /** Crée un fichier vide dans un dossier
277   * @param string $dir Dossier dans lequel on crée le nouveau fichier
278   * @param string $file Fichier que l'on souhaite créer.
279   * @return boolean TRUE si le dossier a été créé, FALSE si une erreur s'est produite.
280   */
281  function CreateFile($dir,$file) {
282    global $db,$err,$cuid;
283    $file=ssla($file);
284    $absolute=$this->convertabsolute($dir."/".$file,0);
285    if ($absolute && !file_exists($absolute) && checkuserpath($absolute."/".$file) != 0) {
286      touch($absolute);
287      $db->query("UPDATE browser SET crff=0 WHERE uid='$cuid';");
288      return true;
289    } else {
290      $err->raise("bro",1);
291      return false;
292    }
293  }
294
295  /* ----------------------------------------------------------------- */
296  /** Efface les fichiers du tableau $file_list dans le dossier $R
297   * @param array $file_list Liste des fichiers à effacer.
298   * @param string $R Dossier dans lequel on efface les fichiers
299   * @return boolean TRUE si les fichiers ont été effacés, FALSE si une erreur s'est produite.
300   */
301  function DeleteFile($file_list,$R) {
302    global $err, $mem;
303    $root=realpath("/var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]);
304    $absolute=$this->convertabsolute($R,0);
305    if (!$absolute && strpos($root,$absolute) === 0 && strlen($absolute) > (strlen($root)+1) ) {
306      $err->raise("bro",1);
307      return false;
308    }
309    for ($i=0;$i<count($file_list);$i++) {
310      $file_list[$i]=ssla($file_list[$i]);
311      if (!strpos($file_list[$i],"/") && file_exists($absolute."/".$file_list[$i])) { // Character / forbidden in a FILE name
312        $this->_delete($absolute."/".$file_list[$i]);
313      }
314    }
315    return true;
316  }
317
318  /* ----------------------------------------------------------------- */
319  /** Renomme les fichier de $old du dossier $R en $new
320   * @param string $R dossier dans lequel se trouve les fichiers à renommer.
321   * @param array of string $old Ancien nom des fichiers
322   * @param array of string $new Nouveau nom des fichiers
323   * @return boolean TRUE si les fichiers ont été renommés, FALSE si une erreur s'est produite.
324   */
325  function RenameFile($R,$old,$new) {
326    global $err;
327    $absolute=$this->convertabsolute($R,0);
328    if (!$absolute) {
329      $err->raise("bro",1);
330      return false;
331    }
332    $alea=".".time().rand(1000,9999);
333    for ($i=0;$i<count($old);$i++) {
334      $old[$i]=ssla($old[$i]); // strip slashes if needed
335      $new[$i]=ssla($new[$i]);
336      if (!strpos($old[$i],"/") && !strpos($new[$i],"/")) {  // caractère / interdit dans old ET dans new...
337        @rename($absolute."/".$old[$i],$absolute."/".$old[$i].$alea);
338      }
339    }
340    for ($i=0;$i<count($old);$i++) {
341      if (!strpos($old[$i],"/") && !strpos($new[$i],"/")) {  // caractère / interdit dans old ET dans new...
342        @rename($absolute."/".$old[$i].$alea,$absolute."/".$new[$i]);
343      }
344    }
345
346    return true;
347  }
348
349  /* ----------------------------------------------------------------- */
350  /** Déplace les fichier de $d du dossier $old vers $new
351   * @param array of string $d Liste des fichiers du dossier $old à déplacer
352   * @param string $old dossier dans lequel se trouve les fichiers à déplacer.
353   * @param string $new dossier vers lequel seront déplacés les fichiers.
354   * @return boolean TRUE si les fichiers ont été renommés, FALSE si une erreur s'est produite.
355   */
356  function MoveFile($d,$old,$new) {
357    global $err;
358    $old=$this->convertabsolute($old,0);
359    if (!$old) {
360      $err->raise("bro",1);
361      return false;
362    }
363    $new=$this->convertabsolute($new,0);
364    if (!$new) {
365      $err->raise("bro",1);
366      return false;
367    }
368    if ($old==$new) {
369      $err->raise("bro",2);
370      return false;
371    }
372    for ($i=0;$i<count($d);$i++) {
373      $d[$i]=ssla($d[$i]); // strip slashes if needed
374      if (!strpos($d[$i],"/") && file_exists($old."/".$d[$i]) && !file_exists($new."/".$d[$i])) { 
375        @rename($old."/".$d[$i],$new."/".$d[$i]);
376      }
377    }
378    return true;
379  }
380
381  /* ----------------------------------------------------------------- */
382  /** Recoit un champ file upload (Global) et le stocke dans le dossier $R
383   * Le champ file-upload originel doit s'appeler "userfile" et doit
384   * bien être un fichier d'upload.
385   * @param string $R Dossier dans lequel on upload le fichier
386   */
387  function UploadFile($R) {
388    global $_FILES,$err;
389    $absolute=$this->convertabsolute($R,0);
390    if (!$absolute) {
391      $err->raise("bro",1);
392      return false;
393    }
394    if (!strpos($_FILES['userfile']['name'],"/")) {
395      // move_uploaded_file($_FILES['userfile']['tmp_name'], $absolute."/".$_FILES['userfile']['name']);
396      if (is_uploaded_file($_FILES['userfile']['tmp_name'])) {
397        if (!file_exists($absolute."/".$_FILES['userfile']['name'])) {
398          touch($absolute."/".$_FILES['userfile']['name']);
399        }
400        copy($_FILES['userfile']['tmp_name'], $absolute."/".$_FILES['userfile']['name']);
401      } else {
402        $err->log("bro","uploadfile","Tentative d'attaque : ".$_FILES['userfile']['tmp_name']);
403      }
404      // TODO delete this if it works :)
405      // move_uploaded_file($_FILES['userfile']['tmp_name'], $absolute."/".$_FILES['userfile']['name']);
406    }
407  }
408
409  /* ----------------------------------------------------------------- */
410  /** Affiche le chemin et les liens de la racine au dossier $path
411   * Affiche autant de liens HTML (anchor) que le chemin $path contient de
412   * niveaux de dossier. Chaque lien est associé à la page web $action
413   * à laquelle on ajoute le paramètre R=+Le nom du dossier courant.
414   * @param string $path Dossier vers lequel on trace le chemin
415   * @param string $action Page web de destination des liens
416   * @return string le code HTML ainsi obtenu.
417   */
418  function PathList($path,$action) {
419    $path=$this->convertabsolute($path,1);
420    $a=explode("/",$path);
421    if (!is_array($a)) $a=array($a);
422    for($i=0;$i<count($a);$i++) {
423      if ($a[$i]) {
424        $R.=$a[$i]."/";
425        $c.="<a href=\"$action?R=".urlencode($R)."\">".$a[$i]."</a>&nbsp;/&nbsp;";
426      }
427    }
428    return $c;
429  }
430
431  /* ----------------------------------------------------------------- */
432  /** Affiche le contenu d'un fichier pour un champ VALUE de textarea
433   * Affiche le contenu du fichier $file dans le dossier $R. Le contenu
434   * du fichier est reformaté pour pouvoir entrer dans un champs TextArea
435   * @param string $R Dossier dans lequel on cherche le fichier
436   * @param string $file Fichier dont on souhaite obtenir le contenu.
437   * @return boolean retourne TRUE si le fichier a bien été émis sur
438   * echo, ou FALSE si une erreur est survenue.
439   */
440  function content($R,$file) {
441    global $err;
442    $absolute=$this->convertabsolute($R,0);
443    if (!strpos($file,"/")) {
444      $absolute.="/".$file;
445      if (file_exists($absolute)) {
446        $content = @file($absolute);
447        for($i=0;$i<count($content);$i++) {
448          echo str_replace("<","&lt;",str_replace("&","&amp;",$content[$i]));
449        }
450      }
451    } else {
452      $err->raise("bro",1);
453      return false;
454    }
455  }
456
457  /** Cache des urls pour VIEW
458   * @access private
459   */
460  var $cacheurl=array();
461
462  // Return a browsing url if available.
463  // Maintain a url cache (positive AND negative(-) cache)
464  /* ----------------------------------------------------------------- */
465  /** Retourne une url de navigation pour le fichier $name du dossier $dir
466   * Les url sont mises en caches. Il se peut qu'aucune url n'existe, ou que
467   * celle-ci soit protégée par un .htaccess.
468   * @param string $dir Dossier concerné
469   * @param string $name Fichier dont on souhaite obtenir une URL
470   * @return string URL concernée, ou FALSE si aucune URL n'est disponible pour ce fichier
471   */
472  function viewurl($dir,$name) {
473    global $db,$cuid;
474    // Is it in cache ?
475    if (substr($dir,0,1)=="/") $dir=substr($dir,1);
476    if (substr($dir,-1)=="/") $dir=substr($dir,0,-1);
477    if (!$this->cacheurl["d".$dir]) {
478      // On parcours $dir en remontant les /
479      $end="";  $beg=$dir;      $tofind=true;
480      while ($tofind) {
481        $db->query("SELECT sub,domaine FROM sub_domaines WHERE compte='$cuid'
482                         AND type=0 AND (valeur='/$beg/' or valeur='/$beg');");
483        $db->next_record();
484        if ($db->num_rows()) {
485          $tofind=false;
486          $this->cacheurl["d".$dir]="http://".$db->f("sub").ife($db->f("sub"),".").$db->f("domaine").$end;
487        }
488        if (!$beg && $tofind) {
489          $tofind=false;
490          $this->cacheurl["d".$dir]="-";
491                                // We did not find it ;(
492        }
493        if (($tt=strrpos($beg,"/"))!==false) {
494          $end=substr($beg,$tt).$end; // = /topdir$end so $end starts AND ends with /
495          $beg=substr($beg,0,$tt);
496        } else {
497          $end="/".$beg.$end;
498          $beg="/";
499        }
500      }
501    }
502    if ($this->cacheurl["d".$dir] && $this->cacheurl["d".$dir]!="-") {
503      return $this->cacheurl["d".$dir]."/".$name;
504    } else {
505      return false;
506    }
507  }
508
509  function content_send($R,$file) {
510    global $err;
511    $absolute=$this->convertabsolute($R,0);
512    if (!strpos($file,"/")) {
513      $absolute.="/".$file;
514      if (file_exists($absolute)) {
515        $content = @file($absolute);
516        for($i=0;$i<count($content);$i++) {
517          echo stripslashes($content[$i]);
518        }
519      }
520    } else {
521      $err->raise("bro",1);
522      return false;
523    }
524  }
525
526  /* ----------------------------------------------------------------- */
527  /** Sauve le fichier $file dans le dossier $R avec pour contenu $texte
528   * le contenu est issu d'un textarea, et ne DOIT PAS contenir de \ ajoutés
529   * automatiquement par addslashes
530   * @param string $file Nom du fichier à sauver. S'il existe déjà, il sera
531   *  écrasé sans confirmation.
532   * @param string $R Dossier dans lequel on modifie le fichier
533   * @param string $texte texte du fichier à sauver dedans
534   * @return boolean TRUE si tout s'est bien passé, FALSE si une erreur s'est produite.
535   */
536  function save($file,$R,$texte) {
537    global $err;
538    $absolute=$this->convertabsolute($R,0);
539    if (!strpos($file,"/")) {
540      $absolute.="/".$file;
541      if (file_exists($absolute)) {
542        $f=@fopen($absolute,"wb");
543        if ($f) {
544          fputs($f,$texte,strlen($texte));
545          fclose($f);
546        }
547      }
548    } else {
549      $err->raise("bro",1);
550      return false;
551    }
552  }
553
554  /* ----------------------------------------------------------------- */
555  /** Echo d'un flux .tar.Z contenant tout le contenu du dossier $dir
556   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
557   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
558   */
559 function DownloadZ($dir="") {
560    global $mem;
561    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
562    header("Content-Type: application/x-Z");
563    header("Content-Transfer-Encoding: binary");
564    $d=escapeshellarg(".".$this->convertabsolute($dir,1));
565    set_time_limit(0);
566    passthru("/bin/tar -cZ -C /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
567  }
568
569  /* ----------------------------------------------------------------- */
570  /** Echo d'un flux .tgz contenant tout le contenu du dossier $dir
571   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
572   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
573   */
574 function DownloadTGZ($dir="") {
575    global $mem;
576    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
577    header("Content-Type: application/x-tgz");
578    header("Content-Transfer-Encoding: binary");
579    $d=escapeshellarg(".".$this->convertabsolute($dir,1));
580    set_time_limit(0);
581    passthru("/bin/tar -cz -C /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
582  }
583
584
585  /* ----------------------------------------------------------------- */
586  /** Echo d'un flux .tar.bz2 contenant tout le contenu du dossier $dir
587   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
588   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
589   */
590 function DownloadTBZ($dir="") {
591    global $mem;
592    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
593    header("Content-Type: application/x-bzip2");
594    header("Content-Transfer-Encoding: binary");
595    $d=escapeshellarg(".".$this->convertabsolute($dir,1));
596    set_time_limit(0);
597    passthru("/bin/tar -cj -C /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
598  }
599
600  /* ----------------------------------------------------------------- */
601  /** Echo d'un flux .ZIP contenant tout le contenu du dossier $dir
602   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
603   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
604   */
605 function DownloadZIP($dir="") {
606    global $mem;
607    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
608    header("Content-Type: application/x-zip");
609    header("Content-Transfer-Encoding: binary");
610    $d=escapeshellarg($this->convertabsolute($dir,0));
611    set_time_limit(0);
612    passthru("/usr/bin/zip -r - $d");
613  }
614
615  /* ----------------------------------------------------------------- */
616  /** Fonction de tri perso utilisé par filelist.
617   * @access private
618   */
619  function _sort_filelist_name($a,$b) {
620    if ($a["type"] && !$b["type"]) return 1;
621    if ($b["type"] && !$a["type"]) return -1;
622    return $a["name"]>$b["name"];
623  }
624
625  /* ----------------------------------------------------------------- */
626  /** Efface $file et tous ses sous-dossiers s'il s'agit d'un dossier
627   * A UTILISER AVEC PRECAUTION !!!
628   * @param string $file Fichier ou dossier à supprimer.
629   * @access private
630   */
631  function _delete($file) {
632    // permet d'effacer de nombreux fichiers
633    @set_time_limit(0);
634    //chmod($file,0777);
635    if (is_dir($file)) {
636      $handle = opendir($file);
637      while($filename = readdir($handle)) {
638        if ($filename != "." && $filename != "..") {
639          $this->_delete($file."/".$filename);
640        }
641      }
642      closedir($handle);
643      rmdir($file);
644    } else {
645      unlink($file);
646    }
647  }
648
649
650  /* ----------------------------------------------------------------- */
651  /**
652   * Exporte toutes les informations ftp du compte AlternC
653   * @access private
654   * EXPERIMENTAL 'sid' function ;)
655   */
656  function alternc_export() {
657    global $db,$err;
658    $err->log("bro","export");
659    $str="<bro>\n";
660    $pref=$this->GetPrefs();
661    foreach ($pref as $k=>$v) {
662      $str.="  <pref>\n";
663      $str.="    <".$k.">".xml_entities($v)."</".$k.">\n";
664      $str.="  </pref>\n";
665    }
666    $str.="</bro>\n";
667   
668    return $str;
669  }
670
671
672} /* Classe BROUTEUR */
673
674?>
Note: See TracBrowser for help on using the repository browser.