New: Can delete the log file from the tool menu

htdocs/admin/tools/purge.php

@@ -1,5 +1,5 @@
 <?php
-/* Copyright (C) 2006 Laurent Destailleur  <eldy@users.sourceforge.net>
+/* Copyright (C) 2006-2009 Laurent Destailleur  <eldy@users.sourceforge.net>
  *
  * This program is free software; you can redistribute it and/or modify
  * it under the terms of the GNU General Public License as published by
@@ -17,10 +17,10 @@
  */
 
 /**
-		\file 		htdocs/admin/tools/purge.php
-		\brief      Page de purge des fichiers temporaires
-		\version    $Id$
-*/
+ *		\file 		htdocs/admin/tools/purge.php
+ *		\brief      Page to purge files (temporary or not)
+ *		\version    $Id$
+ */
 
 require("./pre.inc.php");
 include_once(DOL_DOCUMENT_ROOT."/lib/databases/".$conf->db->type.".lib.php");
@@ -29,15 +29,23 @@ include_once(DOL_DOCUMENT_ROOT.'/lib/files.lib.php');
 $langs->load("admin");
 
 if (! $user->admin)
-  accessforbidden();
+accessforbidden();
 
 if ($_GET["msg"]) $message='<div class="error">'.$_GET["msg"].'</div>';
 
+// Define filelog to discard it from purge
+$filelog='';
+if ($conf->syslog->enabled)
+{
+	$filelog=SYSLOG_FILE;
+	$filelog=eregi_replace('DOL_DATA_ROOT',DOL_DATA_ROOT,$filelog);
+}
+
 
 
 /*
-*	Actions
-*/
+ *	Actions
+ */
 if ($_POST["action"]=='purge')
 {
 	$filesarray=array();
@@ -60,14 +68,31 @@ if ($_POST["action"]=='purge')
 		}
 	}
 
+	if ($_POST["choice"]=='logfile')
+	{
+		$filesarray[]=array('fullname'=>$filelog,'type'=>'file');
+	}
+
 	$count=0;
 	if (sizeof($filesarray))
 	{
+
 		foreach($filesarray as $key => $value)
 		{
 			//print "x ".$filesarray[$key]['fullname']."<br>\n";
+			if ($filesarray[$key]['type'] == 'dir')
+			{
 				$count+=dol_delete_dir_recursive($filesarray[$key]['fullname']);
 			}
+			elseif ($filesarray[$key]['type'] == 'file')
+			{
+				// If (file that is not logfile) or (if logfile with option logfile)
+				if ($filesarray[$key]['fullname'] != $filelog || $_POST["choice"]=='logfile')
+				{
+					$count+=dol_delete_file($filesarray[$key]['fullname']);
+				}
+			}
+		}
 
 		// Update cachenbofdoc
 		if ($conf->ecm->enabled && $_POST["choice"]=='allfiles')
@@ -85,8 +110,8 @@ if ($_POST["action"]=='purge')
 
 
 /*
-* Affichage page
-*/
+ * View
+ */
 
 llxHeader();
 
@@ -109,13 +134,25 @@ print '<input type="hidden" name="token" value="'.$_SESSION['newtoken'].'">';
 
 print '<input type="hidden" name="action" value="purge">';
 
-print '<table class="border" width="100%"><tr><td>';
+print '<table class="border" width="100%">';
+
+print '<tr><td>';
+
 print '<input type="radio" name="choice" value="tempfiles"';
 print (! $_POST["choice"] || $_POST["choice"]=='tempfiles') ? ' checked="true"' : '';
 print '> '.$langs->trans("PurgeDeleteTemporaryFiles").'<br>';
+
 print '<input type="radio" name="choice" value="allfiles"';
 print ($_POST["choice"] && $_POST["choice"]=='allfiles') ? ' checked="true"' : '';
 print '> '.$langs->trans("PurgeDeleteAllFilesInDocumentsDir",$dolibarr_main_data_root).'<br>';
+
+if ($conf->syslog->enabled)
+{
+	print '<input type="radio" name="choice" value="logfile"';
+	print ($_POST["choice"] && $_POST["choice"]=='logfile') ? ' checked="true"' : '';
+	print '> '.$langs->trans("PurgeDeleteLogFile",$filelog).'<br>';
+}
+
 print '</td></tr></table>';
 
 print '<br>';

htdocs/langs/en_US/admin.lang

@@ -108,6 +108,7 @@ SystemToolsAreaDesc=This area provides administration features. Use the menu to
 PurgeAreaDesc=This page allows you to delete all files built or stored by Dolibarr (temporary files or all files in <b>%s</b> directory). Using this feature is not necessary. It is provided for users whose Dolibarr is hosted by a provider that does not offer permissions to delete files built by the web server.
 PurgeDeleteTemporaryFiles=Delete all temporary files (no risk to loose data)
 PurgeDeleteAllFilesInDocumentsDir=Delete all files in directory <b>%s</b>. Temporary files but also files attached to elements (third parties, invoices, ...) and uploaded into the ECM module will be deleted.
+PurgeDeleteLogFile=Delete log file <b>%s</b> defined for Syslog module.
 PurgeRunNow=Purge now
 PurgeNothingToDelete=no directory to delete.
 PurgeNDirectoriesDeleted=<b>%s</b> files or directories deleted.
@@ -684,7 +685,7 @@ NoEventOrNoAuditSetup=No security event has been recorded yet. This can be norma
 NoEventFoundWithCriteria=No security event has been found for such search criterias.
 SeeLocalSendMailSetup=See your local sendmail setup
 BackupDesc=To make a complete backup of Dolibarr, you must:
-BackupDesc2=* Save content of documents directory (<b>%s</b>) that contains all uplaoded and generated files (you can make a zip for exeample).
+BackupDesc2=* Save content of documents directory (<b>%s</b>) that contains all uploaded and generated files (you can make a zip for exeample).
 BackupDesc3=* Save content of your database with a dump. for this, you can use following assistant.
 BackupDescX=Archived directory should be stored in a secure place.
 BackupDescY=The generated dump file should be stored in a secure place.

htdocs/langs/fr_FR/admin.lang

@@ -108,6 +108,7 @@ SystemToolsAreaDesc = Cet espace offre des fonctions d'administration diverses.
 PurgeAreaDesc = Cette page vous permet d'effacer tous les fichiers construits ou stockés par Dolibarr (fichiers temporaires ou tous les fichiers du répertoire <b>%s</b>). L'utilisation de cette fonction n'est pas nécessaire. Elle est fournie pour les utilisateurs qui héberge Dolibarr chez un hébergeur qui n'offre pas les permissions de supprimer les fichiers sauvegardés par le serveur Web.
 PurgeDeleteTemporaryFiles = Effacer tous les fichiers temporaires (pas de risque de perte de données)
 PurgeDeleteAllFilesInDocumentsDir = Effacer tous les fichiers du répertoire <b>%s</b>. Les fichiers temporaires mais aussi les fichiers joints aux éléments (tiers, factures, ...) ou dans le module GED seront effacées.
+PurgeDeleteLogFile = Effacer le fichier log <b>%s</b> défini pour le module Syslog.
 PurgeRunNow = Lancer la purge maintenant
 PurgeNothingToDelete = Aucun répertoire à supprimer.
 PurgeNDirectoriesDeleted = <b>%s</b> fichiers ou répertoires supprimés.

htdocs/lib/files.lib.php

@@ -33,7 +33,7 @@
  *  \param		$sortcriteria	Sort criteria ("name","date","size")
  *  \param		$sortorder		Sort order (SORT_ASC, SORT_DESC)
  *	\param		$mode			0=Return array with only keys needed, 1=Force all keys to be loaded
- *  \return		array			Array of array('name'=>xxx,'date'=>yyy,'size'=>zzz)
+ *  \return		array			Array of array('name'=>'xxx','fullname'=>'/abc/xxx','date'=>'yyy','size'=>99,'type'=>'dir|file')
  */
 function dol_dir_list($path, $types="all", $recursive=0, $filter="", $excludefilter="", $sortcriteria="name", $sortorder=SORT_ASC, $mode=0)
 {
@@ -73,7 +73,8 @@ function dol_dir_list($path, $types="all", $recursive=0, $filter="", $excludefil
 						"name" => $file,
 						"fullname" => $path.'/'.$file,
 						"date" => $filedate,
-						"size" => $filesize
+						"size" => $filesize,
+						"type" => 'dir'
 						);
 					}
 
@@ -94,7 +95,8 @@ function dol_dir_list($path, $types="all", $recursive=0, $filter="", $excludefil
 						"name" => $file,
 						"fullname" => $path.'/'.$file,
 						"date" => $filedate,
-						"size" => $filesize
+						"size" => $filesize,
+						"type" => 'file'
 						);
 					}
 				}

htdocs/lib/functions.lib.php

@@ -2017,7 +2017,7 @@ function print_fleche_navigation($page,$file,$options='',$nextpage,$betweenarrow
 
 
 /**
- *	\brief  Effacement d'un fichier
+ *	\brief  	Remove a file
  *	\param		file			Fichier a effacer ou masque de fichier a effacer
  *	\param		boolean			true if file deleted, false if error
  */
@@ -2052,6 +2052,7 @@ function dol_delete_dir($dir)
  */
 function dol_delete_dir_recursive($dir,$count=0)
 {
+	//dol_syslog("functions.lib:dol_delete_dir_recursive ".$dir,LOG_DEBUG);
 	if ($handle = opendir("$dir"))
 	{
 		while (false !== ($item = readdir($handle)))