* * 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 * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. * * $Id$ * $Source$ */ /** \file htdocs/admin/tools/purge.php \brief Page de purge des fichiers temporaires \version $Revision$ */ require("./pre.inc.php"); include_once $dolibarr_main_document_root."/lib/databases/".$conf->db->type.".lib.php"; $langs->load("admin"); if (! $user->admin) accessforbidden(); if ($_GET["msg"]) $message='
'.$_GET["msg"].'
'; /* * Actions */ if ($_POST["action"]=='purge') { $filesarray=array(); if ($_POST["choice"]=='tempfiles') { // Delete temporary files if ($dolibarr_main_data_root) { $filesarray=dolibarr_dir_list($dolibarr_main_data_root,"directories",1,'temp'); } } if ($_POST["choice"]=='allfiles') { // Delete all files if ($dolibarr_main_data_root) { $filesarray=dolibarr_dir_list($dolibarr_main_data_root,"all",0); } } $count=0; if (sizeof($filesarray)) { foreach($filesarray as $key => $value) { //print "x ".$filesarray[$key]['fullname']."
\n"; $count+=dol_delete_dir_recursive($filesarray[$key]['fullname']); } } if ($count) $message=$langs->trans("PurgeNDirectoriesDeleted",$count); else $message=$langs->trans("PurgeNothingToDelete"); $message='
'.$message.'
'; } /* * Affichage page */ llxHeader(); $html=new Form($db); print_fiche_titre($langs->trans("Purge"),'','setup'); print '
'; print $langs->trans("PurgeAreaDesc",$dolibarr_main_data_root).'
'; print '
'; if ($message) { print $message.'
'; print "\n"; } print '
'; print ''; print '
'; print ' '.$langs->trans("PurgeDeleteTemporaryFiles").'
'; print ' '.$langs->trans("PurgeDeleteAllFilesInDocumentsDir",$dolibarr_main_data_root).'
'; print '
'; print '
'; print '
'; print '
'; llxFooter('$Date$ - $Revision$'); ?>