Context Navigation

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

Revision 3150, 33.2 KB checked in by squidly, 12 months ago (diff)
Modification des fonctions d'export de compte pour exporter en XML + ajout de l'export de la classe mail

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 grer les fichiers, dossiers ...
31	* d'un membre hberg.<br />
32	* Copyleft {@link http://alternc.net/ AlternC Team}
33	*
34	* @copyright AlternC-Team 2002-11-01 http://alternc.net/
35	*
36	*/
37
38
39	class 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 tlchargement 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 aprs la cration 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	/** Vrifie un dossier relatif au dossier de l'utilisateur courant
81	*
82	* @param string $dir Dossier (absolu que l'on souhaite vrifier
83	* @return string Retourne le nom du dossier vrifi, 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=$this->get_user_root($mem->user["login"]);
90	// Sauvegarde du chemin de base.
91	$root_alternc = $root ;
92	// Passage du root en chemin rel (diffrent 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 rel
108	// et mettre la racine d'alternc pour viter les
109	// problmes 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	/** Retourne le chemin complet vers la racine du repertoire de l'utilisateur.
119	* Returns the complete path to the root of the user's directory.
120	*
121	* @param string $login Username
122	* @return string Returns the complete path to the root of the user's directory.
123	*/
124	function get_user_root($login) {
125	return "/var/alternc/html/".substr($login,0,1)."/".$login;
126	}
127
128	/** Retourne le chemin complet vers la racine du repertoire de l'utilisateur.
129	* Returns the complete path to the root of the user's directory.
130	*
131	* @param string $uid User id.
132	* @return string Returns the complete path to the root of the user's directory.
133	*/
134	function get_userid_root($uid) {
135	global $admin;
136
137	// FIXME [ML] Comment faire ca correctement?
138	// C'est utilise' dans class/m_dom.php quand un utilisateur ajoute un domaine dans son compte
139	// et nous devons savoir quel est le chemin complet vers la racine de son compte..
140
141	$old_enabled = $admin->enabled;
142	$admin->enabled = true;
143	$member = $admin->get($uid);
144	$admin->enabled = $old_enabled;
145
146	return $this->get_user_root($member['login']);
147	}
148
149	/* ----------------------------------------------------------------- */
150	/** Retourne un tableau contenant la liste des fichiers du dossier courant
151	* Ce tableau contient tous les paramtres des fichiers du dossier courant
152	* sous la forme d'un tableau index de tableaux associatifs comme suit :
153	* $a["name"]=nom du fichier / dossier
154	* $a["size"]=Taille totale du fichier / dossier + sous-dossier
155	* $a["date"]=Date de dernire modification
156	* $a["type"]=Type du fichier (1 pour fichier, 0 pour dossier)
157	* @param string $dir dossier relatif au dossier racine du compte du
158	* membre courant
159	* @return array le tableau contenant les fichiers de $dir, et
160	*/
161	function filelist($dir="", $showdirsize = false) {
162	global $db,$cuid;
163	$db->query("UPDATE browser SET lastdir='$dir' WHERE uid='$cuid';");
164	$absolute=$this->convertabsolute($dir,0);
165	if ($dir = @opendir($absolute)) {
166	while (($file = readdir($dir)) !== false) {
167	if ($file!="." && $file!="..") {
168	$c[]=array("name"=>$file, "size"=>$this->fsize($absolute."/".$file, $showdirsize), "date"=>filemtime($absolute."/".$file), "type"=> (!is_dir($absolute."/".$file)) );
169	}
170	}
171	closedir($dir);
172	}
173	if (isset ($c) && is_array($c)) {
174	usort ($c, array("m_bro","_sort_filelist_name"));
175	return $c;
176	} else {
177	return array();
178	}
179	}
180
181	/* ----------------------------------------------------------------- */
182	/** Retourne un tableau contenant les prfrences de l'utilisateur courant
183	* Ce tableau aqssociatif contient les valeurs des champs de la table "browser"
184	* pour l'utilisateur courant.
185	* @return array Tableau des prfrences de l'utilisateur courant.
186	*/
187	function GetPrefs() {
188	global $db,$cuid;
189	$db->query("SELECT * FROM browser WHERE uid='$cuid';");
190	if ($db->num_rows()==0) {
191	$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');");
192	$db->query("SELECT * FROM browser WHERE uid='$cuid';");
193	}
194	$db->next_record();
195	return $db->Record;
196	}
197
198	/* ----------------------------------------------------------------- */
199	/** Modifie les prfrences de l'utilisateur courant.
200	*
201	* @param integer $editsizex Taille de l'diteur (nombre de colonnes)
202	* @param integer $editsizey Taille de l'diteur (nombre de lignes)
203	* @param integer $listmode Mode d'affichage de la liste des fichiers
204	* @param integer $showicons Faut-il afficher / cacher les icones des fichiers
205	* @param integer $downfmt Dans quel format faut-il tlcharger les dossiers compresss
206	* @param integer $createfile Faut-il editer/revenir au browser aprs cration d'un fichier
207	* @param integer $showtype Faut-il afficher le type mime des fichiers
208	* @param integer $editor_font Quelle police faut-il utiliser pour l'diteur
209	* @param integer $editor_size Quelle taille de police faut-il utiliser pour l'diteur
210	* @param integer $golastdir Faut-il revenir la racine ou au dernier dossier visit ?
211	* @return boolean TRUE
212	*/
213	function SetPrefs($editsizex, $editsizey, $listmode, $showicons, $downfmt, $createfile, $showtype, $editor_font, $editor_size, $golastdir) {
214	global $db,$cuid;
215	$editsizex=intval($editsizex); $editsizey=intval($editsizey);
216	$listmode=intval($listmode); $showicons=intval($showicons);
217	$showtype=intval($showtype); $downfmt=intval($downfmt);
218	$createfile=intval($createfile); $golastdir=intval($golastdir);
219	$db->query("SELECT * FROM browser WHERE uid='$cuid';");
220	if ($db->num_rows()==0) {
221	$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);");
222	}
223	$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';");
224	return true;
225	}
226
227	/* ----------------------------------------------------------------- */
228	/** Retourne le nom du fichier icone associ au fichier donc le nom est $file
229	* <b>Note</b>: Les fichiers icones sont mis en cache sur la page courante.
230	* @param string $file Fichier dont on souhaite connaitre le fichier icone
231	* @return string Fichier icone correspondant.
232	*/
233	function icon($file) {
234	global $bro_icon;
235	if (!strpos($file,".") && substr($file,0,1)!=".") {
236	return "file.png";
237	}
238	$t=explode(".",$file);
239	if (!is_array($t))
240	$ext=$t;
241	else
242	$ext=$t[count($t)-1];
243	// Now seek the extension
244	if (!$bro_icon[$ext]) {
245	return "file.png";
246	} else {
247	return $bro_icon[$ext].".png";
248	}
249	}
250
251	/* ----------------------------------------------------------------- */
252	/** Retourne le type mime associ au fichier donc le nom est $file
253	* <b>Note</b>: Les types mimes sont mis en cache sur la page courante.
254	* Le type mime est dtermin d'aprs l'extension du fichier.
255	* @param string $file Fichier dont on souhaite connaitre le type mime
256	* @return string Type mime / Sous type du fichier demand
257	*/
258	function mime($file) {
259	global $bro_type;
260	if (!strpos($file,".") && substr($file,0,1)!=".") {
261	return "File";
262	}
263	$t=explode(".",$file);
264	if (!is_array($t))
265	$ext=$t;
266	else
267	$ext=$t[count($t)-1];
268	// Now seek the extension
269	if (!$bro_type[$ext]) {
270	return "File";
271	} else {
272	return $bro_type[$ext];
273	}
274	}
275
276	/* ----------------------------------------------------------------- */
277	/** Retourne la taille du fichier $file
278	* si $file est un dossier, retourne la taille de ce dossier et de tous
279	* ses sous dossiers.
280	* @param string $file Fichier dont on souhaite connaitre la taille
281	* @param boolean $showdirsize recursively compute the directory size.
282	* @return integer Taille du fichier en octets.
283	*/
284	function fsize($file, $showdirsize = false) {
285	if (is_dir($file)) {
286	if ($showdirsize) {
287	return $this->dirsize($file);
288	} else {
289	return "-";
290	}
291	} else {
292	return filesize($file);
293	}
294	}
295
296
297	/* ----------------------------------------------------------------- */
298	/** Returns the size of a directory, by adding all it's files sizes
299	* @param string $dir the directory whose size we want to compute
300	* @return integer the total size in bytes.
301	*/
302	function dirsize($dir) {
303	$totalsize = 0;
304
305	if ($handle = opendir($dir)) {
306	while (false !== ($file = readdir($handle))) {
307	$nextpath = $dir . '/' . $file;
308
309	if ($file != '.' && $file != '..' && !is_link($nextpath)) {
310	if (is_dir($nextpath)) {
311	$totalsize += $this->dirsize($nextpath);
312	} elseif (is_file ($nextpath)) {
313	$totalsize += filesize($nextpath);
314	}
315	}
316	}
317	closedir($handle);
318	}
319	return $totalsize;
320	}
321
322	/* ----------------------------------------------------------------- */
323	/** Cre le dossier $file dans le dossier (parent) $dir
324	* @param string $dir dossier dans lequel on veut crer un sous-dossier
325	* @param string $file nom du dossier crer
326	* @return boolean TRUE si le dossier a t cr, FALSE si une erreur s'est produite.
327	*/
328	function CreateDir($dir,$file) {
329	global $db,$cuid,$err;
330	$file=ssla($file);
331	$absolute=$this->convertabsolute($dir."/".$file,0);
332	#echo "$absolute";
333	if ($absolute && (!file_exists($absolute))) {
334	if (!mkdir($absolute,00777)) {
335	$err->raise("bro",4);
336	return false;
337	}
338	$db->query("UPDATE browser SET crff=1 WHERE uid='$cuid';");
339	return true;
340	} else {
341	$err->raise("bro",1);
342	return false;
343	}
344	}
345
346
347	/* ----------------------------------------------------------------- */
348	/** Cre un fichier vide dans un dossier
349	* @param string $dir Dossier dans lequel on cre le nouveau fichier
350	* @param string $file Fichier que l'on souhaite crer.
351	* @return boolean TRUE si le dossier a t cr, FALSE si une erreur s'est produite.
352	*/
353	function CreateFile($dir,$file) {
354	global $db,$err,$cuid;
355	$file=ssla($file);
356	$absolute=$this->convertabsolute($dir."/".$file,0);
357	if (!$absolute \|\| file_exists($absolute)) {
358	$err->raise("bro",1);
359	return false;
360	}
361	if (!file_exists($absolute)) {
362	if (!@touch($absolute)) {
363	$err->raise("bro",3);
364	return false;
365	}
366	}
367	$db->query("UPDATE browser SET crff=0 WHERE uid='$cuid';");
368	return true;
369	}
370
371
372	/* ----------------------------------------------------------------- */
373	/** Efface les fichiers du tableau $file_list dans le dossier $R
374	* @param array $file_list Liste des fichiers effacer.
375	* @param string $R Dossier dans lequel on efface les fichiers
376	* @return boolean TRUE si les fichiers ont t effacs, FALSE si une erreur s'est produite.
377	*/
378	function DeleteFile($file_list,$R) {
379	global $err, $mem;
380	$root=realpath("/var/alternc/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]);
381	$absolute=$this->convertabsolute($R,0);
382	if (!$absolute && strpos($root,$absolute) === 0 && strlen($absolute) > (strlen($root)+1) ) {
383	$err->raise("bro",1);
384	return false;
385	}
386	for ($i=0;$i<count($file_list);$i++) {
387	$file_list[$i]=ssla($file_list[$i]);
388	if (!strpos($file_list[$i],"/") && file_exists($absolute."/".$file_list[$i])) { // Character / forbidden in a FILE name
389	$this->_delete($absolute."/".$file_list[$i]);
390	}
391	}
392	return true;
393	}
394
395
396	/* ----------------------------------------------------------------- */
397	/** Renomme les fichier de $old du dossier $R en $new
398	* @param string $R dossier dans lequel se trouve les fichiers renommer.
399	* @param array of string $old Ancien nom des fichiers
400	* @param array of string $new Nouveau nom des fichiers
401	* @return boolean TRUE si les fichiers ont t renomms, FALSE si une erreur s'est produite.
402	*/
403	function RenameFile($R,$old,$new) {
404	global $err;
405	$absolute=$this->convertabsolute($R,0);
406	if (!$absolute) {
407	$err->raise("bro",1);
408	return false;
409	}
410	$alea=".".time().rand(1000,9999);
411	for ($i=0;$i<count($old);$i++) {
412	$old[$i]=ssla($old[$i]); // strip slashes if needed
413	$new[$i]=ssla($new[$i]);
414	if (!strpos($old[$i],"/") && !strpos($new[$i],"/")) { // caractre / interdit dans old ET dans new...
415	@rename($absolute."/".$old[$i],$absolute."/".$old[$i].$alea);
416	}
417	}
418	for ($i=0;$i<count($old);$i++) {
419	if (!strpos($old[$i],"/") && !strpos($new[$i],"/")) { // caractre / interdit dans old ET dans new...
420	@rename($absolute."/".$old[$i].$alea,$absolute."/".$new[$i]);
421	}
422	}
423
424	return true;
425	}
426
427
428	/* ----------------------------------------------------------------- */
429	/** Dplace les fichier de $d du dossier $old vers $new
430	* @param array of string $d Liste des fichiers du dossier $old dplacer
431	* @param string $old dossier dans lequel se trouve les fichiers dplacer.
432	* @param string $new dossier vers lequel seront dplacs les fichiers.
433	* @return boolean TRUE si les fichiers ont t renomms, FALSE si une erreur s'est produite.
434	*/
435	function MoveFile($d,$old,$new) {
436	global $err;
437	$old=$this->convertabsolute($old,0);
438	if (!$old) {
439	$err->raise("bro",1);
440	return false;
441	}
442
443	if ($new[0] != '/') {
444	$new = $old . '/' . $new;
445	} else {
446	$new = $this->convertabsolute($new,0);
447	}
448
449	if (!$new) {
450	$err->raise("bro",1);
451	return false;
452	}
453	if ($old==$new) {
454	$err->raise("bro",2);
455	return false;
456	}
457	for ($i=0;$i<count($d);$i++) {
458	$d[$i]=ssla($d[$i]); // strip slashes if needed
459	if (!strpos($d[$i],"/") && file_exists($old."/".$d[$i]) && !file_exists($new."/".$d[$i])) {
460	@rename($old."/".$d[$i],$new."/".$d[$i]);
461	}
462	}
463	return true;
464	}
465
466	/* ----------------------------------------------------------------- */
467	/** Change les droits d'acces aux fichier de $d du dossier $R en $p
468	* @param string $R dossier dans lequel se trouve les fichiers renommer.
469	* @param array of string $old Ancien nom des fichiers
470	* @param array of string $new Nouveau nom des fichiers
471	* @param $verbose boolean shall we 'echo' what we did ?
472	* @return boolean TRUE si les fichiers ont t renomms, FALSE si une erreur s'est produite.
473	*/
474	function ChangePermissions($R,$d,$perm,$verbose=true) {
475	global $err;
476	$absolute=$this->convertabsolute($R,0);
477	if (!$absolute) {
478	$err->raise("bro",1);
479	return false;
480	}
481	for ($i=0;$i<count($d);$i++) {
482	$d[$i]=ssla($d[$i]); // strip slashes if needed
483	if (!strpos($d[$i],"/")) { // caractre / interdit dans le nom du fichier
484	$m = fileperms($absolute."/". $d[$i]);
485
486	// pour l'instant on se limite a "write" pour owner, puisque c'est le seul
487	// cas interessant compte tenu de la conf de Apache pour AlternC..
488	if ($perm[$i]['w']) {
489	$m = $m \| 128;
490	} else {
491	$m = $m ^ 128;
492	}
493	$m = $m \| ($perm[$i]['w'] ? 128 : 0); // 0600
494	chmod($absolute."/".$d[$i], $m);
495	if ($verbose) {
496	echo "chmod " . sprintf('%o', $m) . " file, was " . sprintf('%o', fileperms($absolute."/". $d[$i])). " -- " . $perm[$i]['w'];
497	}
498	}
499	}
500
501	return true;
502	}
503
504	/* ----------------------------------------------------------------- */
505	/** Recoit un champ file upload (Global) et le stocke dans le dossier $R
506	* Le champ file-upload originel doit s'appeler "userfile" et doit
507	* bien tre un fichier d'upload.
508	* @param string $R Dossier dans lequel on upload le fichier
509	* @returns the path where the file resides or false if upload failed
510	*/
511	function UploadFile($R) {
512	global $_FILES,$err;
513	$absolute=$this->convertabsolute($R,0);
514	if (!$absolute) {
515	$err->raise("bro",1);
516	return false;
517	}
518	if (!strpos($_FILES['userfile']['name'],"/")) {
519	if (is_uploaded_file($_FILES['userfile']['tmp_name'])) {
520	if (!file_exists($absolute."/".$_FILES['userfile']['name'])) {
521	@touch($absolute."/".$_FILES['userfile']['name']);
522	}
523	if (@move_uploaded_file($_FILES['userfile']['tmp_name'], $absolute."/".$_FILES['userfile']['name'])) {
524	return $absolute."/".$_FILES['userfile']['name'];
525	} else {
526	$err->raise("bro",3);
527	return false;
528	}
529	} else {
530	$err->log("bro","uploadfile","Tentative d'attaque : ".$_FILES['userfile']['tmp_name']);
531	return false;
532	}
533	}
534	return $absolute."/".$_FILES['userfile']['name'];
535	}
536
537	/**
538	* Extract an archive by using GNU and non-GNU tools
539	* @param string $file is the full or relative path to the archive
540	* @param string $dest is the path of the extract destination, the
541	* same directory as the archive by default
542	* @return boolean != 0 on error
543	*/
544	function ExtractFile($file, $dest=null)
545	{
546	global $err;
547	$file = $this->convertabsolute($file,0);
548	if (is_null($dest)) {
549	$dest = dirname($file);
550	} else {
551	$dest = $this->convertabsolute($dest,0);
552	}
553	if (!$file \|\| !$dest) {
554	$err->raise("bro",1);
555	return 1;
556	}
557	$file = escapeshellarg($file);
558	$dest = escapeshellarg($dest);
559	// TODO new version of tar supports `tar xf ...` so there is no
560	// need to specify the compression format
561	exec("tar -xf $file -C $dest", $void, $ret);
562	if ($ret) {
563	exec("tar -xjf $file -C $dest", $void, $ret);
564	}
565	if ($ret) {
566	$cmd = "unzip -o $file -d $dest";
567	exec($cmd, $void, $ret);
568	}
569	if ($ret) {
570	$cmd = "gunzip $file";
571	exec($cmd, $void, $ret);
572	}
573	if ($ret) {
574	$err->raise("bro","could not find a way to extract file %s, unsupported format?", $file);
575	}
576
577	return $ret;
578	}
579
580
581	/**
582	* Copy many files from point A to point B
583	*/
584	function CopyFile($d,$old,$new) {
585	global $err;
586	$old=$this->convertabsolute($old,0);
587	if (!$old) {
588	$err->raise("bro",1);
589	return false;
590	}
591	$new=$this->convertabsolute($new,0);
592	if (!$new) {
593	$err->raise("bro",1);
594	return false;
595	}
596	if ($old==$new) {
597	$err->raise("bro",2);
598	return false;
599	}
600	for ($i=0;$i<count($d);$i++) {
601	$d[$i]=ssla($d[$i]); // strip slashes if needed
602	if (!strpos($d[$i],"/") && file_exists($old."/".$d[$i]) && !file_exists($new."/".$d[$i])) {
603	$this->CopyOneFile($old."/".$d[$i],$new);
604	}
605	}
606	return true;
607	}
608
609	/**
610	* Copy a source to a destination by either copying recursively a
611	* directory or by downloading a file with a URL (only http:// is
612	* supported)
613	* @param string $src is the path or URL
614	* @param string $dest is the absolute path inside the users directory
615	* @return boolean false on error
616	*
617	* Note that we assume that the inputs have been convertabsolute()'d
618	*/
619	function CopyOneFile($src, $dest)
620	{
621	global $err;
622	$src = escapeshellarg($src);
623	$dest = escapeshellarg($dest);
624	exec("cp -Rpf $src $dest", $void, $ret);
625	if ($ret) {
626	$err->raise("bro","Errors happened while copying the source to destination. cp return value: %d", $ret);
627	return false;
628	}
629
630	return true;
631	}
632
633	/* ----------------------------------------------------------------- */
634	/** Affiche le chemin et les liens de la racine au dossier $path
635	* Affiche autant de liens HTML (anchor) que le chemin $path contient de
636	* niveaux de dossier. Chaque lien est associ la page web $action
637	* laquelle on ajoute le paramtre R=+Le nom du dossier courant.
638	* @param string $path Dossier vers lequel on trace le chemin
639	* @param string $action Page web de destination des liens
640	* @return string le code HTML ainsi obtenu.
641	*/
642	function PathList($path,$action) {
643	$path=$this->convertabsolute($path,1);
644	$a=explode("/",$path);
645	if (!is_array($a)) $a=array($a);
646	$c='';
647	$R='';
648	for($i=0;$i<count($a);$i++) {
649	if ($a[$i]) {
650	$R.=$a[$i]."/";
651	$c.="<a href=\"$action?R=".urlencode($R)."\">".$a[$i]."</a> / ";
652	}
653	}
654	return $c;
655	}
656
657	/* ----------------------------------------------------------------- */
658	/** Affiche le contenu d'un fichier pour un champ VALUE de textarea
659	* Affiche le contenu du fichier $file dans le dossier $R. Le contenu
660	* du fichier est reformat pour pouvoir entrer dans un champs TextArea
661	* @param string $R Dossier dans lequel on cherche le fichier
662	* @param string $file Fichier dont on souhaite obtenir le contenu.
663	* @return boolean retourne TRUE si le fichier a bien t mis sur
664	* echo, ou FALSE si une erreur est survenue.
665	*/
666	function content($R,$file) {
667	global $err;
668	$absolute=$this->convertabsolute($R,0);
669	if (!strpos($file,"/")) {
670	$absolute.="/".$file;
671	if (file_exists($absolute)) {
672	$f=fopen($absolute,"rb");
673	if ($f) {
674	while ($s=fgets($f,1024)) {
675	echo str_replace("<","<",str_replace("&","&",$s));
676	}
677	fclose($f);
678	} else {
679	$err->raise("bro",6);
680	return false;
681	}
682	} else {
683	$err->raise("bro",6);
684	return false;
685	}
686	} else {
687	$err->raise("bro",1);
688	return false;
689	}
690	}
691
692	/** Cache des urls pour VIEW
693	* @access private
694	*/
695	var $cacheurl=array();
696
697	// Return a browsing url if available.
698	// Maintain a url cache (positive AND negative(-) cache)
699	/* ----------------------------------------------------------------- */
700	/** Retourne une url de navigation pour le fichier $name du dossier $dir
701	* Les url sont mises en caches. Il se peut qu'aucune url n'existe, ou que
702	* celle-ci soit protge par un .htaccess.
703	* @param string $dir Dossier concern
704	* @param string $name Fichier dont on souhaite obtenir une URL
705	* @return string URL concerne, ou FALSE si aucune URL n'est disponible pour ce fichier
706	*/
707	function viewurl($dir,$name) {
708	global $db,$cuid;
709	// Is it in cache ?
710	if (substr($dir,0,1)=="/") $dir=substr($dir,1);
711	if (substr($dir,-1)=="/") $dir=substr($dir,0,-1);
712	$dir=str_replace("%2F", "/", urlencode($dir));
713	$name=urlencode($name);
714	if (!$this->cacheurl["d".$dir]) {
715	// On parcours $dir en remontant les /
716	$end=""; $beg=$dir; $tofind=true;
717	while ($tofind) {
718	$db->query("SELECT sub,domaine FROM sub_domaines WHERE compte='$cuid'
719	AND type=0 AND (valeur='/$beg/' or valeur='/$beg');");
720	$db->next_record();
721	if ($db->num_rows()) {
722	$tofind=false;
723	$this->cacheurl["d".$dir]="http://".$db->f("sub").ife($db->f("sub"),".").$db->f("domaine").$end;
724	}
725	if (!$beg && $tofind) {
726	$tofind=false;
727	$this->cacheurl["d".$dir]="-";
728	// We did not find it ;(
729	}
730	if (($tt=strrpos($beg,"/"))!==false) {
731	$end=substr($beg,$tt).$end; // = /topdir$end so $end starts AND ends with /
732	$beg=substr($beg,0,$tt);
733	} else {
734	$end="/".$beg.$end;
735	$beg="/";
736	}
737	}
738	}
739	if ($this->cacheurl["d".$dir] && $this->cacheurl["d".$dir]!="-") {
740	return $this->cacheurl["d".$dir]."/".$name;
741	} else {
742	return false;
743	}
744	}
745
746
747	/**
748	* Return a HTML snippet representing an extraction function only if the mimetype of $name is supported
749	*/
750	function is_extractable($dir,$name) {
751	if ($parts = explode(".", $name)) {
752	$ext = array_pop($parts);
753	switch ($ext) {
754	case "gz":
755	case "bz":
756	case "bz2":
757	$ext = array_pop($parts) . $ext;
758	/* FALLTHROUGH */
759	case "tar.gz":
760	case "tar.bz":
761	case "tar.bz2":
762	case "tgz":
763	case "tbz":
764	case "tbz2":
765	case "tar":
766	case "Z":
767	case "zip":
768	return true;
769	}
770	}
771	return false;
772	}
773
774
775	/* ------------------------------------------------------------------ */
776	/** Echoes the content of the file $file located in directory $R
777	*/
778	function content_send($R,$file) {
779	global $err;
780	$absolute=$this->convertabsolute($R,0);
781	if (!strpos($file,"/")) {
782	$absolute.="/".$file;
783	if (file_exists($absolute)) {
784	readfile($absolute);
785	}
786	} else {
787	$err->raise("bro",1);
788	return false;
789	}
790	}
791
792
793	/* ----------------------------------------------------------------- */
794	/** Sauve le fichier $file dans le dossier $R avec pour contenu $texte
795	* le contenu est issu d'un textarea, et ne DOIT PAS contenir de \ ajouts
796	* automatiquement par addslashes
797	* @param string $file Nom du fichier sauver. S'il existe dj, il sera
798	* cras sans confirmation.
799	* @param string $R Dossier dans lequel on modifie le fichier
800	* @param string $texte texte du fichier sauver dedans
801	* @return boolean TRUE si tout s'est bien pass, FALSE si une erreur s'est produite.
802	*/
803	function save($file,$R,$texte) {
804	global $err;
805	$absolute=$this->convertabsolute($R,0);
806	if (!strpos($file,"/")) {
807	$absolute.="/".$file;
808	if (file_exists($absolute)) {
809	$f=@fopen($absolute,"wb");
810	if ($f) {
811	fputs($f,$texte,strlen($texte));
812	fclose($f);
813	} else {
814	$err->raise("bro",5);
815	return false;
816	}
817	}
818	} else {
819	$err->raise("bro",1);
820	return false;
821	}
822	}
823
824
825	/* ----------------------------------------------------------------- */
826	/** Echo d'un flux .tar.Z contenant tout le contenu du dossier $dir
827	* @param string $dir dossier dumper, relatif la racine du compte du membre.
828	* @return void NE RETOURNE RIEN, et il faut Quitter le script immdiatement aprs
829	*/
830	function DownloadZ($dir="") {
831	global $mem,$L_ALTERNC_LOC;
832	header("Content-Disposition: attachment; filename=".$mem->user["login"].".Z");
833	header("Content-Type: application/x-Z");
834	header("Content-Transfer-Encoding: binary");
835	$d=escapeshellarg(".".$this->convertabsolute($dir,1));
836	set_time_limit(0);
837	passthru("/bin/tar -cZ -C ".$L_ALTERNC_LOC."/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
838	}
839
840
841	/* ----------------------------------------------------------------- */
842	/** Echo d'un flux .tgz contenant tout le contenu du dossier $dir
843	* @param string $dir dossier dumper, relatif la racine du compte du membre.
844	* @return void NE RETOURNE RIEN, et il faut Quitter le script immdiatement aprs
845	*/
846	function DownloadTGZ($dir="") {
847	global $mem,$L_ALTERNC_LOC;
848	header("Content-Disposition: attachment; filename=".$mem->user["login"].".tgz");
849	header("Content-Type: application/x-tgz");
850	header("Content-Transfer-Encoding: binary");
851	$d=escapeshellarg(".".$this->convertabsolute($dir,1));
852	set_time_limit(0);
853	passthru("/bin/tar -cz -C ".$L_ALTERNC_LOC."/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
854	}
855
856
857	/* ----------------------------------------------------------------- */
858	/** Echo d'un flux .tar.bz2 contenant tout le contenu du dossier $dir
859	* @param string $dir dossier dumper, relatif la racine du compte du membre.
860	* @return void NE RETOURNE RIEN, et il faut Quitter le script immdiatement aprs
861	*/
862	function DownloadTBZ($dir="") {
863	global $mem,$L_ALTERNC_LOC;
864	header("Content-Disposition: attachment; filename=".$mem->user["login"].".tar.bz2");
865	header("Content-Type: application/x-bzip2");
866	header("Content-Transfer-Encoding: binary");
867	$d=escapeshellarg(".".$this->convertabsolute($dir,1));
868	set_time_limit(0);
869	passthru("/bin/tar -cj -C ".$L_ALTERNC_LOC."/html/".substr($mem->user["login"],0,1)."/".$mem->user["login"]."/ $d");
870	}
871
872
873	/* ----------------------------------------------------------------- */
874	/** Echo d'un flux .ZIP contenant tout le contenu du dossier $dir
875	* @param string $dir dossier dumper, relatif la racine du compte du membre.
876	* @return void NE RETOURNE RIEN, et il faut Quitter le script immdiatement aprs
877	*/
878	function DownloadZIP($dir="") {
879	global $mem,$L_ALTERNC_LOC;
880	header("Content-Disposition: attachment; filename=".$mem->user["login"].".zip");
881	header("Content-Type: application/x-zip");
882	header("Content-Transfer-Encoding: binary");
883	$d=escapeshellarg($this->convertabsolute($dir,0));
884	set_time_limit(0);
885	passthru("/usr/bin/zip -r - $d");
886	}
887
888
889	/* ----------------------------------------------------------------- */
890	/** Fonction de tri perso utilis par filelist.
891	* @access private
892	*/
893	function _sort_filelist_name($a,$b) {
894	if ($a["type"] && !$b["type"]) return 1;
895	if ($b["type"] && !$a["type"]) return -1;
896	return $a["name"]>$b["name"];
897	}
898
899
900	/* ----------------------------------------------------------------- */
901	/** Efface $file et tous ses sous-dossiers s'il s'agit d'un dossier
902	* A UTILISER AVEC PRECAUTION !!!
903	* @param string $file Fichier ou dossier supprimer.
904	* @access private
905	*/
906	function _delete($file) {
907	// permet d'effacer de nombreux fichiers
908	@set_time_limit(0);
909	//chmod($file,0777);
910	if (is_dir($file)) {
911	$handle = opendir($file);
912	while($filename = readdir($handle)) {
913	if ($filename != "." && $filename != "..") {
914	$this->_delete($file."/".$filename);
915	}
916	}
917	closedir($handle);
918	rmdir($file);
919	} else {
920	unlink($file);
921	}
922	}
923	/----------------------------------------------------------/
924	/** Function d'exportation de configuration appelé par la classe m_export via un hooks
925	*Produit en sorti un tableau formatté ( pour le moment) en HTML
926	*
927	*/
928
929	function alternc_export_conf() {
930	global $db,$err;
931	$err->log("bro","export_conf");
932	$str="<table border=\"1\"><caption> Browser </caption>\n";
933	$str=" <browser>\n";
934	$pref=$this->GetPrefs();
935
936	$i=1;
937	foreach ($pref as $k=>$v) {
938	if (($i % 2)==0){
939	$str.=" <$k>$v</$k>\n";
940	}
941	$i++;
942	}
943	$str.=" </browser>\n";
944
945	return $str;
946	}
947
948	/----------------------------------------------------------/
949	/** Function d'exportation des données appelé par la classe m_export via un hooks
950	*@param : le chemin destination du tarball produit.
951	*/
952	function alternc_export_data($dir){
953	global $mem,$L_ALTERNC_LOC,$err;
954	$err->log("bro","export_data");
955	$dir.="html/";
956	if(!is_dir($dir)){
957	if(!mkdir($dir))
958	$err->raise("bro",4);
959	}
960	$timestamp=date("H:i:s");
961
962	if(exec("/bin/tar cvf - ".$L_ALTERNC_LOC."/html/".substr($mem->user['login'],0,1)."/".$mem->user['login']."/ \| gzip -9c > ".$dir."/".$mem->user['login']."_html_".$timestamp.".tar.gz")){
963	$err->log("bro","export_data_succes");
964	}else{
965	$err->log("bro","export_data_failed");
966
967	}
968
969	}
970
971
972
973	} /* Classe BROUTEUR */
974
975	?>

Note: See TracBrowser for help on using the repository browser.

Download in other formats: