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

Revision 2105, 31.2 KB checked in by anarcat, 5 years ago (diff)

crude implementation of permission change in the file browser

Contributed by: Mathieu Lutfy
Sponsored by: Koumbit
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    // separer le chemin entre le repertoire et le fichier
95    $file = basename($dir);
96    $dir = dirname($dir);
97    $dir=realpath($root."/".$dir);
98    // verifier que le repertoire est dans le home de l'usgaer
99    if (substr($dir,0,strlen($root))!=$root) {
100      return false;
101    } 
102    // recomposer le chemin
103    $dir = $dir . '/' . $file;
104    if ($strip) {
105      $dir=substr($dir,strlen($root));
106    } else {
107      // si on ne strip pas, il faut enlever le chemin réel
108      // et mettre la racine d'alternc pour éviter les
109      // problèmes de lien depuis /var/alternc !
110      $dir=$root_alternc . substr($dir,strlen($root));
111    }
112    if (substr($dir,-1)=="/") {
113      return substr($dir,0,strlen($dir)-1);
114    } else
115      return $dir;
116  }
117
118  /* ----------------------------------------------------------------- */
119  /** Retourne un tableau contenant la liste des fichiers du dossier courant
120   * Ce tableau contient tous les paramètres des fichiers du dossier courant
121   * sous la forme d'un tableau indexé de tableaux associatifs comme suit :
122   * $a["name"]=nom du fichier / dossier
123   * $a["size"]=Taille totale du fichier / dossier + sous-dossier
124   * $a["date"]=Date de dernière modification
125   * $a["type"]=Type du fichier (1 pour fichier, 0 pour dossier)
126   * @param string $dir dossier relatif au dossier racine du compte du
127   * membre courant
128   * @return array le tableau contenant les fichiers de $dir, et
129   */
130  function filelist($dir="") {
131    global $db,$cuid;
132    $db->query("UPDATE browser SET lastdir='$dir' WHERE uid='$cuid';");
133    $absolute=$this->convertabsolute($dir,0);
134    if ($dir = @opendir($absolute)) {
135      while (($file = readdir($dir)) !== false) {
136        if ($file!="." && $file!="..") {
137          $c[]=array("name"=>$file, "size"=>$this->fsize($absolute."/".$file), "date"=>filemtime($absolute."/".$file), "type"=> (!is_dir($absolute."/".$file)) );
138        }
139      }
140      closedir($dir);
141    }
142    if (is_array($c)) {
143      usort ($c, array("m_bro","_sort_filelist_name"));
144      return $c;
145    } else {
146      return array();
147    }
148  }
149
150  /* ----------------------------------------------------------------- */
151  /** Retourne un tableau contenant les préférences de l'utilisateur courant
152   * Ce tableau aqssociatif contient les valeurs des champs de la table "browser"
153   * pour l'utilisateur courant.
154   * @return array Tableau des préférences de l'utilisateur courant.
155   */
156  function GetPrefs() {
157    global $db,$cuid;
158    $db->query("SELECT * FROM browser WHERE uid='$cuid';");
159    if ($db->num_rows()==0) {
160      $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');");
161      $db->query("SELECT * FROM browser WHERE uid='$cuid';");
162    }
163    $db->next_record();
164    return $db->Record;
165  }
166
167  /* ----------------------------------------------------------------- */
168  /** Modifie les préférences de l'utilisateur courant.
169   *
170   * @param integer $editsizex  Taille de l'éditeur (nombre de colonnes)
171   * @param integer $editsizey  Taille de l'éditeur (nombre de lignes)
172   * @param integer $listmode   Mode d'affichage de la liste des fichiers
173   * @param integer $showicons  Faut-il afficher / cacher les icones des fichiers
174   * @param integer $downfmt    Dans quel format faut-il télécharger les dossiers compressés
175   * @param integer $createfile Faut-il editer/revenir au browser après création d'un fichier
176   * @param integer $showtype Faut-il afficher le type mime des fichiers
177   * @param integer $editor_font  Quelle police faut-il utiliser pour l'éditeur
178   * @param integer $editor_size  Quelle taille de police faut-il utiliser pour l'éditeur
179   * @param integer $golastdir  Faut-il revenir à la racine ou au dernier dossier visité ?
180   * @return boolean TRUE
181   */
182  function SetPrefs($editsizex, $editsizey, $listmode, $showicons, $downfmt, $createfile, $showtype, $editor_font, $editor_size, $golastdir) {
183    global $db,$cuid;
184    $editsizex=intval($editsizex);      $editsizey=intval($editsizey);
185    $listmode=intval($listmode);        $showicons=intval($showicons);
186    $showtype=intval($showtype);        $downfmt=intval($downfmt);
187    $createfile=intval($createfile);    $golastdir=intval($golastdir);
188    $db->query("SELECT * FROM browser WHERE uid='$cuid';");
189    if ($db->num_rows()==0) {
190      $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);");
191    }
192    $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';");
193    return true;
194  }
195
196  /* ----------------------------------------------------------------- */
197  /** Retourne le nom du fichier icone associé au fichier donc le nom est $file
198   * <b>Note</b>: Les fichiers icones sont mis en cache sur la page courante.
199   * @param string $file Fichier dont on souhaite connaitre le fichier icone
200   * @return string Fichier icone correspondant.
201   */
202  function icon($file) {
203    global $bro_icon;
204    if (!strpos($file,".") && substr($file,0,1)!=".") {
205      return "file.png";
206    }
207    $t=explode(".",$file);
208    if (!is_array($t))
209      $ext=$t;
210    else
211      $ext=$t[count($t)-1];
212    // Now seek the extension
213    if (!$bro_icon[$ext]) {
214        return "file.png";
215    } else {
216        return $bro_icon[$ext].".png";
217    }
218  }
219
220  /* ----------------------------------------------------------------- */
221  /** Retourne le type mime associé au fichier donc le nom est $file
222   * <b>Note</b>: Les types mimes sont mis en cache sur la page courante.
223   * Le type mime est déterminé d'après l'extension du fichier.
224   * @param string $file Fichier dont on souhaite connaitre le type mime
225   * @return string Type mime / Sous type du fichier demandé
226   */
227  function mime($file) {
228    global $bro_type;
229    if (!strpos($file,".") && substr($file,0,1)!=".") {
230      return "File";
231    }
232    $t=explode(".",$file);
233    if (!is_array($t))
234      $ext=$t;
235    else
236      $ext=$t[count($t)-1];
237    // Now seek the extension
238    if (!$bro_type[$ext]) {
239        return "File";
240    } else {
241        return $bro_type[$ext];
242    }
243  }
244
245  /* ----------------------------------------------------------------- */
246  /** Retourne la taille du fichier $file
247   * si $file est un dossier, retourne la taille de ce dossier et de tous
248   * ses sous dossiers.
249   * @param string $file Fichier dont on souhaite connaitre la taille
250   * @return integer Taille du fichier en octets.
251   * TODO : create a du cache ...
252   */
253  function fsize($file) {
254    if (is_dir($file)) {
255      return "-";
256    } else {
257      return filesize($file);
258    }
259  }
260
261  /* ----------------------------------------------------------------- */
262  /** Crée le dossier $file dans le dossier (parent) $dir
263   * @param string $dir dossier dans lequel on veut créer un sous-dossier
264   * @param string $file nom du dossier à créer
265   * @return boolean TRUE si le dossier a été créé, FALSE si une erreur s'est produite.
266   */
267  function CreateDir($dir,$file) {
268    global $db,$cuid,$err;
269    $file=ssla($file);
270    $absolute=$this->convertabsolute($dir."/".$file,0);
271    if ($absolute && !file_exists($absolute)) {
272      mkdir($absolute,00777);
273      $db->query("UPDATE browser SET crff=1 WHERE uid='$cuid';");
274      return true;
275    } else {
276      $err->raise("bro",1);
277      return false;
278    }
279  }
280
281  /* ----------------------------------------------------------------- */
282  /** Crée un fichier vide dans un dossier
283   * @param string $dir Dossier dans lequel on crée le nouveau fichier
284   * @param string $file Fichier que l'on souhaite créer.
285   * @return boolean TRUE si le dossier a été créé, FALSE si une erreur s'est produite.
286   */
287  function CreateFile($dir,$file) {
288    global $db,$err,$cuid;
289    $file=ssla($file);
290    $absolute=$this->convertabsolute($dir."/".$file,0);
291    if (!$absolute) {
292      $err->raise("bro",1);
293      return false;
294    }
295    if (!file_exists($absolute)) {
296      touch($absolute);
297    }
298    $db->query("UPDATE browser SET crff=0 WHERE uid='$cuid';");
299    return true;
300  }
301
302  /* ----------------------------------------------------------------- */
303  /** Efface les fichiers du tableau $file_list dans le dossier $R
304   * @param array $file_list Liste des fichiers à effacer.
305   * @param string $R Dossier dans lequel on efface les fichiers
306   * @return boolean TRUE si les fichiers ont été effacés, FALSE si une erreur s'est produite.
307   */
308  function DeleteFile($file_list,$R) {
309    global $err, $mem;
310    $root=realpath("/var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]);
311    $absolute=$this->convertabsolute($R,0);
312    if (!$absolute && strpos($root,$absolute) === 0 && strlen($absolute) > (strlen($root)+1) ) {
313      $err->raise("bro",1);
314      return false;
315    }
316    for ($i=0;$i<count($file_list);$i++) {
317      $file_list[$i]=ssla($file_list[$i]);
318      if (!strpos($file_list[$i],"/") && file_exists($absolute."/".$file_list[$i])) { // Character / forbidden in a FILE name
319        $this->_delete($absolute."/".$file_list[$i]);
320      }
321    }
322    return true;
323  }
324
325  /* ----------------------------------------------------------------- */
326  /** Renomme les fichier de $old du dossier $R en $new
327   * @param string $R dossier dans lequel se trouve les fichiers à renommer.
328   * @param array of string $old Ancien nom des fichiers
329   * @param array of string $new Nouveau nom des fichiers
330   * @return boolean TRUE si les fichiers ont été renommés, FALSE si une erreur s'est produite.
331   */
332  function RenameFile($R,$old,$new) {
333    global $err;
334    $absolute=$this->convertabsolute($R,0);
335    if (!$absolute) {
336      $err->raise("bro",1);
337      return false;
338    }
339    $alea=".".time().rand(1000,9999);
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."/".$old[$i].$alea);
345      }
346    }
347    for ($i=0;$i<count($old);$i++) {
348      if (!strpos($old[$i],"/") && !strpos($new[$i],"/")) {  // caractère / interdit dans old ET dans new...
349        @rename($absolute."/".$old[$i].$alea,$absolute."/".$new[$i]);
350      }
351    }
352
353    return true;
354  }
355
356  /* ----------------------------------------------------------------- */
357  /** Déplace les fichier de $d du dossier $old vers $new
358   * @param array of string $d Liste des fichiers du dossier $old à déplacer
359   * @param string $old dossier dans lequel se trouve les fichiers à déplacer.
360   * @param string $new dossier vers lequel seront déplacés les fichiers.
361   * @return boolean TRUE si les fichiers ont été renommés, FALSE si une erreur s'est produite.
362   */
363  function MoveFile($d,$old,$new) {
364    global $err;
365    $old=$this->convertabsolute($old,0);
366    if (!$old) {
367      $err->raise("bro",1);
368      return false;
369    }
370    $new=$this->convertabsolute($new,0);
371    if (!$new) {
372      $err->raise("bro",1);
373      return false;
374    }
375    if ($old==$new) {
376      $err->raise("bro",2);
377      return false;
378    }
379    for ($i=0;$i<count($d);$i++) {
380      $d[$i]=ssla($d[$i]); // strip slashes if needed
381      if (!strpos($d[$i],"/") && file_exists($old."/".$d[$i]) && !file_exists($new."/".$d[$i])) { 
382        @rename($old."/".$d[$i],$new."/".$d[$i]);
383      }
384    }
385    return true;
386  }
387
388  /* ----------------------------------------------------------------- */
389  /** Change les droits d'acces aux fichier de $d du dossier $R en $p
390   * @param string $R dossier dans lequel se trouve les fichiers à renommer.
391   * @param array of string $old Ancien nom des fichiers
392   * @param array of string $new Nouveau nom des fichiers
393   * @return boolean TRUE si les fichiers ont été renommés, FALSE si une erreur s'est produite.
394   */
395  function ChangePermissions($R,$d,$perm) {
396    global $err;
397    $absolute=$this->convertabsolute($R,0);
398    if (!$absolute) {
399      $err->raise("bro",1);
400      return false;
401    }
402    for ($i=0;$i<count($d);$i++) {
403      $d[$i]=ssla($d[$i]); // strip slashes if needed
404      if (!strpos($d[$i],"/")) {  // caractère / interdit dans le nom du fichier
405        // @rename($absolute."/".$old[$i],$absolute."/".$old[$i].$alea);
406        $m = fileperms($absolute."/". $d[$i]);
407
408        // pour l'instant on se limite a "write" pour owner, puisque c'est le seul
409        // cas interessant compte tenu de la conf de Apache pour AlternC..
410        if ($perm[$i]['w']) {
411          $m = $m | 128;
412        } else {
413          $m = $m ^ 128;
414        }
415        $m = $m | ($perm[$i]['w'] ? 128 : 0); // 0600
416        chmod($absolute."/".$d[$i], $m);
417        echo "chmod " . sprintf('%o', $m) . " file, was " . sprintf('%o', fileperms($absolute."/". $d[$i])). " -- " . $perm[$i]['w'];
418      }
419    }
420
421    return true;
422  }
423
424  /* ----------------------------------------------------------------- */
425  /** Recoit un champ file upload (Global) et le stocke dans le dossier $R
426   * Le champ file-upload originel doit s'appeler "userfile" et doit
427   * bien être un fichier d'upload.
428   * @param string $R Dossier dans lequel on upload le fichier
429   * @returns the path where the file resides or false if upload failed
430   */
431  function UploadFile($R) {
432    global $_FILES,$err;
433    $absolute=$this->convertabsolute($R,0);
434    if (!$absolute) {
435      $err->raise("bro",1);
436      return false;
437    }
438    if (!strpos($_FILES['userfile']['name'],"/")) {
439      if (is_uploaded_file($_FILES['userfile']['tmp_name'])) {
440        if (!file_exists($absolute."/".$_FILES['userfile']['name'])) {
441          touch($absolute."/".$_FILES['userfile']['name']);
442        }
443        move_uploaded_file($_FILES['userfile']['tmp_name'], $absolute."/".$_FILES['userfile']['name']);
444      } else {
445            $err->log("bro","uploadfile","Tentative d'attaque : ".$_FILES['userfile']['tmp_name']);
446        return false;
447      }
448    }
449    return $absolute."/".$_FILES['userfile']['name'];
450  }
451
452  /**
453   * Extract an archive by using GNU and non-GNU tools
454   * @param string $file is the full or relative path to the archive
455   * @param string $dest is the path of the extract destination, the
456   * same directory as the archive by default
457   * @return boolean != 0 on error
458   */
459  function ExtractFile($file, $dest=null)
460  {
461    global $err;
462    $file = $this->convertabsolute($file,0);
463    if (is_null($dest)) {
464      $dest = dirname($file);
465    } else {
466      $dest = $this->convertabsolute($dest,0);
467    }
468    if (!$file || !$dest) {
469      $err->raise("bro",1);
470      return 1;
471    }
472    $file = escapeshellarg($file);
473    $dest = escapeshellarg($dest);
474#TODO new version of tar supports `tar xf ...` so there is no
475#     need to specify the compression format
476    exec("tar -xzf $file -C $dest", $void, $ret);
477    if ($ret) {
478      #print "tgz extraction failed, moving on to tbz\n";
479      exec("tar -xjf $file -C $dest", $void, $ret);
480    }
481    if ($ret) {
482      $cmd = "unzip -o $file -d $dest";
483      #print "tbz extraction failed, moving on to zip: $cmd\n";
484      exec($cmd, $void, $ret);
485    }
486    if ($ret) {
487      $err->raise("bro","could not find a way to extract file %s, unsupported format?", $file);
488    }
489
490    return $ret;
491  }
492
493
494  /**
495   * Copy many files from point A to point B
496   */
497  function CopyFile($d,$old,$new) {
498    global $err;
499    $old=$this->convertabsolute($old,0);
500    if (!$old) {
501      $err->raise("bro",1);
502      return false;
503    }
504    $new=$this->convertabsolute($new,0);
505    if (!$new) {
506      $err->raise("bro",1);
507      return false;
508    }
509    if ($old==$new) {
510      $err->raise("bro",2);
511      return false;
512    }
513    for ($i=0;$i<count($d);$i++) {
514      $d[$i]=ssla($d[$i]); // strip slashes if needed
515      if (!strpos($d[$i],"/") && file_exists($old."/".$d[$i]) && !file_exists($new."/".$d[$i])) { 
516        $this->CopyOneFile($old."/".$d[$i],$new);
517      }
518    }
519    return true;
520  }
521
522  /**
523   * Copy a source to a destination by either copying recursively a
524   * directory or by downloading a file with a URL (only http:// is
525   * supported)
526   * @param string $src is the path or URL
527   * @param string $dest is the absolute path inside the users directory
528   * @return boolean false on error
529   *
530   * Note that we assume that the inputs have been convertabsolute()'d
531   */
532  function CopyOneFile($src, $dest)
533  {
534    global $err;
535
536    /*
537     * XXX: Disabled functionality until audit is completed
538     */
539    /*
540    if (substr($src, 0, 7) == "http://") {
541      $filename = basename($src);
542      $extractdir = tempnam("/tmp", "brouteur");
543      unlink($extractdir);
544      mkdir($extractdir);
545
546      if (!$http = @fopen($src, "rb")) {
547        // Try to get a handle on $http with fsockopen instead
548        ereg('^http://([^/]+)(/.*)$', $src, $eregs);
549        $hostname = $eregs[1];
550        $path = $eregs[2];
551        $http = @fsockopen($hostname, 80);
552        @fputs($http, "GET $path HTTP/1.1\nHost: $hostname\n\n");
553      }
554      if ($http) {
555        // Save the bits
556        $f = fopen("$extractdir/$filename", "wb");
557        while (!feof($http)) {
558          $bin = fgets($http, 16384);
559          fwrite($f, $bin);
560#FIXME if (!trim($bin)) break;
561        }
562        fclose($f);
563        fclose($http);
564      } else {
565        // Dammit, try with wget than
566        exec("wget -q '$src' -O '$extractdir/$filename'", $void, $ret);
567        if ($ret) {
568          $error = _("Unable to download the web application's package.");
569          return false;
570        }
571      }
572
573      // Now extract that package
574      if (!brouteur_extract("$extractdir/$filename", $extractdir)) {
575        $error = _("Unable to extract the files");
576        return false;
577      }
578      unlink("$extractdir/$filename");
579
580      // Corrupt $src since we want to copy $extractdir/packagename
581      $hd = opendir($extractdir);
582      while ($file = readdir($hd)) {
583        if ($file != "." && $file != "..") {
584          $src = "$extractdir/$file";
585          break;
586        }
587      }
588    }
589    */
590
591    // Last step // Copy -R
592    $src = escapeshellarg($src);
593    $dest = escapeshellarg($dest);
594    // TODO: write a recursive copy function(?)
595    exec("cp -Rpf '$src' '$dest'", $void, $ret);
596    if ($ret) {
597      $err->raise("bro","Errors happened while copying the source to destination. cp return value: %d", $ret);
598      return false;
599    }
600
601    return true;
602  }
603
604  /* ----------------------------------------------------------------- */
605  /** Affiche le chemin et les liens de la racine au dossier $path
606   * Affiche autant de liens HTML (anchor) que le chemin $path contient de
607   * niveaux de dossier. Chaque lien est associé à la page web $action
608   * à laquelle on ajoute le paramètre R=+Le nom du dossier courant.
609   * @param string $path Dossier vers lequel on trace le chemin
610   * @param string $action Page web de destination des liens
611   * @return string le code HTML ainsi obtenu.
612   */
613  function PathList($path,$action) {
614    $path=$this->convertabsolute($path,1);
615    $a=explode("/",$path);
616    if (!is_array($a)) $a=array($a);
617    for($i=0;$i<count($a);$i++) {
618      if ($a[$i]) {
619        $R.=$a[$i]."/";
620        $c.="<a href=\"$action?R=".urlencode($R)."\">".$a[$i]."</a>&nbsp;/&nbsp;";
621      }
622    }
623    return $c;
624  }
625
626  /* ----------------------------------------------------------------- */
627  /** Affiche le contenu d'un fichier pour un champ VALUE de textarea
628   * Affiche le contenu du fichier $file dans le dossier $R. Le contenu
629   * du fichier est reformaté pour pouvoir entrer dans un champs TextArea
630   * @param string $R Dossier dans lequel on cherche le fichier
631   * @param string $file Fichier dont on souhaite obtenir le contenu.
632   * @return boolean retourne TRUE si le fichier a bien été émis sur
633   * echo, ou FALSE si une erreur est survenue.
634   */
635  function content($R,$file) {
636    global $err;
637    $absolute=$this->convertabsolute($R,0);
638    if (!strpos($file,"/")) {
639      $absolute.="/".$file;
640      if (file_exists($absolute)) {
641        $content = @file($absolute);
642        for($i=0;$i<count($content);$i++) {
643          echo str_replace("<","&lt;",str_replace("&","&amp;",$content[$i]));
644        }
645      }
646    } else {
647      $err->raise("bro",1);
648      return false;
649    }
650  }
651
652  /** Cache des urls pour VIEW
653   * @access private
654   */
655  var $cacheurl=array();
656
657  // Return a browsing url if available.
658  // Maintain a url cache (positive AND negative(-) cache)
659  /* ----------------------------------------------------------------- */
660  /** Retourne une url de navigation pour le fichier $name du dossier $dir
661   * Les url sont mises en caches. Il se peut qu'aucune url n'existe, ou que
662   * celle-ci soit protégée par un .htaccess.
663   * @param string $dir Dossier concerné
664   * @param string $name Fichier dont on souhaite obtenir une URL
665   * @return string URL concernée, ou FALSE si aucune URL n'est disponible pour ce fichier
666   */
667  function viewurl($dir,$name) {
668    global $db,$cuid;
669    // Is it in cache ?
670    if (substr($dir,0,1)=="/") $dir=substr($dir,1);
671    if (substr($dir,-1)=="/") $dir=substr($dir,0,-1);
672    $dir=str_replace("%2F", "/", urlencode($dir));
673    $name=urlencode($name);
674    if (!$this->cacheurl["d".$dir]) {
675      // On parcours $dir en remontant les /
676      $end="";  $beg=$dir;      $tofind=true;
677      while ($tofind) {
678        $db->query("SELECT sub,domaine FROM sub_domaines WHERE compte='$cuid'
679                         AND type=0 AND (valeur='/$beg/' or valeur='/$beg');");
680        $db->next_record();
681        if ($db->num_rows()) {
682          $tofind=false;
683          $this->cacheurl["d".$dir]="http://".$db->f("sub").ife($db->f("sub"),".").$db->f("domaine").$end;
684        }
685        if (!$beg && $tofind) {
686          $tofind=false;
687          $this->cacheurl["d".$dir]="-";
688                                // We did not find it ;(
689        }
690        if (($tt=strrpos($beg,"/"))!==false) {
691          $end=substr($beg,$tt).$end; // = /topdir$end so $end starts AND ends with /
692          $beg=substr($beg,0,$tt);
693        } else {
694          $end="/".$beg.$end;
695          $beg="/";
696        }
697      }
698    }
699    if ($this->cacheurl["d".$dir] && $this->cacheurl["d".$dir]!="-") {
700      return $this->cacheurl["d".$dir]."/".$name;
701    } else {
702      return false;
703    }
704  }
705
706  /**
707   * Return a HTML snippet representing an extraction function only if the mimetype of $name is supported
708   */
709  function is_extractable($dir,$name) {
710    if ($parts = explode(".", $name)) {
711      $ext = array_pop($parts);
712      switch ($ext) {
713      case "gz":
714      case "bz":
715      case "bz2":
716        $ext = array_pop($parts) . $ext;
717        /* FALLTHROUGH */
718      case "tar.gz":
719      case "tar.bz":
720      case "tar.bz2":
721      case "tgz":
722      case "tbz":
723      case "tbz2":
724      case "tar":
725      case "Z":
726      case "zip":
727        return true;
728      }
729    }
730    return false;
731  }
732
733  function content_send($R,$file) {
734    global $err;
735    $absolute=$this->convertabsolute($R,0);
736    if (!strpos($file,"/")) {
737      $absolute.="/".$file;
738      if (file_exists($absolute)) {
739        $content = @file($absolute);
740        for($i=0;$i<count($content);$i++) {
741          echo stripslashes($content[$i]);
742        }
743      }
744    } else {
745      $err->raise("bro",1);
746      return false;
747    }
748  }
749
750  /* ----------------------------------------------------------------- */
751  /** Sauve le fichier $file dans le dossier $R avec pour contenu $texte
752   * le contenu est issu d'un textarea, et ne DOIT PAS contenir de \ ajoutés
753   * automatiquement par addslashes
754   * @param string $file Nom du fichier à sauver. S'il existe déjà, il sera
755   *  écrasé sans confirmation.
756   * @param string $R Dossier dans lequel on modifie le fichier
757   * @param string $texte texte du fichier à sauver dedans
758   * @return boolean TRUE si tout s'est bien passé, FALSE si une erreur s'est produite.
759   */
760  function save($file,$R,$texte) {
761    global $err;
762    $absolute=$this->convertabsolute($R,0);
763    if (!strpos($file,"/")) {
764      $absolute.="/".$file;
765      if (file_exists($absolute)) {
766        $f=@fopen($absolute,"wb");
767        if ($f) {
768          fputs($f,$texte,strlen($texte));
769          fclose($f);
770        }
771      }
772    } else {
773      $err->raise("bro",1);
774      return false;
775    }
776  }
777
778  /* ----------------------------------------------------------------- */
779  /** Echo d'un flux .tar.Z contenant tout le contenu du dossier $dir
780   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
781   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
782   */
783 function DownloadZ($dir="") {
784    global $mem;
785    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
786    header("Content-Type: application/x-Z");
787    header("Content-Transfer-Encoding: binary");
788    $d=escapeshellarg(".".$this->convertabsolute($dir,1));
789    set_time_limit(0);
790    passthru("/bin/tar -cZ -C /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
791  }
792
793  /* ----------------------------------------------------------------- */
794  /** Echo d'un flux .tgz contenant tout le contenu du dossier $dir
795   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
796   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
797   */
798 function DownloadTGZ($dir="") {
799    global $mem;
800    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
801    header("Content-Type: application/x-tgz");
802    header("Content-Transfer-Encoding: binary");
803    $d=escapeshellarg(".".$this->convertabsolute($dir,1));
804    set_time_limit(0);
805    passthru("/bin/tar -cz -C /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
806  }
807
808
809  /* ----------------------------------------------------------------- */
810  /** Echo d'un flux .tar.bz2 contenant tout le contenu du dossier $dir
811   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
812   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
813   */
814 function DownloadTBZ($dir="") {
815    global $mem;
816    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
817    header("Content-Type: application/x-bzip2");
818    header("Content-Transfer-Encoding: binary");
819    $d=escapeshellarg(".".$this->convertabsolute($dir,1));
820    set_time_limit(0);
821    passthru("/bin/tar -cj -C /var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
822  }
823
824  /* ----------------------------------------------------------------- */
825  /** Echo d'un flux .ZIP contenant tout le contenu du dossier $dir
826   * @param string $dir dossier à dumper, relatif à la racine du compte du membre.
827   * @return void NE RETOURNE RIEN, et il faut Quitter le script immédiatement après
828   */
829 function DownloadZIP($dir="") {
830    global $mem;
831    header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
832    header("Content-Type: application/x-zip");
833    header("Content-Transfer-Encoding: binary");
834    $d=escapeshellarg($this->convertabsolute($dir,0));
835    set_time_limit(0);
836    passthru("/usr/bin/zip -r - $d");
837  }
838
839  /* ----------------------------------------------------------------- */
840  /** Fonction de tri perso utilisé par filelist.
841   * @access private
842   */
843  function _sort_filelist_name($a,$b) {
844    if ($a["type"] && !$b["type"]) return 1;
845    if ($b["type"] && !$a["type"]) return -1;
846    return $a["name"]>$b["name"];
847  }
848
849  /* ----------------------------------------------------------------- */
850  /** Efface $file et tous ses sous-dossiers s'il s'agit d'un dossier
851   * A UTILISER AVEC PRECAUTION !!!
852   * @param string $file Fichier ou dossier à supprimer.
853   * @access private
854   */
855  function _delete($file) {
856    // permet d'effacer de nombreux fichiers
857    @set_time_limit(0);
858    //chmod($file,0777);
859    if (is_dir($file)) {
860      $handle = opendir($file);
861      while($filename = readdir($handle)) {
862        if ($filename != "." && $filename != "..") {
863          $this->_delete($file."/".$filename);
864        }
865      }
866      closedir($handle);
867      rmdir($file);
868    } else {
869      unlink($file);
870    }
871  }
872
873
874  /* ----------------------------------------------------------------- */
875  /**
876   * Exporte toutes les informations ftp du compte AlternC
877   * @access private
878   * EXPERIMENTAL 'sid' function ;)
879   */
880  function alternc_export() {
881    global $db,$err;
882    $err->log("bro","export");
883    $str="<bro>\n";
884    $pref=$this->GetPrefs();
885    foreach ($pref as $k=>$v) {
886      $str.="  <pref>\n";
887      $str.="    <".$k.">".xml_entities($v)."</".$k.">\n";
888      $str.="  </pref>\n";
889    }
890    $str.="</bro>\n";
891   
892    return $str;
893  }
894
895
896} /* Classe BROUTEUR */
897
898?>
Note: See TracBrowser for help on using the repository browser.