Skip to content
Snippets Groups Projects
Commit 74608799 authored by Laurent Destailleur's avatar Laurent Destailleur
Browse files

New: Ajout page admin pour purger les fichiers de documents

New: Quelques améliorations mineures sur expéditions
Trad: Un peu plus de traduction sur expéditions
parent e2c50daf
Branches
Tags
No related merge requests found
<?php
/* Copyright (C) 2006 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
* 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='<div class="error">'.$_GET["msg"].'</div>';
/*
* 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']."<br>\n";
$count=dol_delete_dir_recursive($filesarray[$key]['fullname']);
}
}
if ($count) $message=$langs->trans("PurgeNDirectoriesDeleted",$count);
else $message=$langs->trans("PurgeNothingToDelete");
$message='<div class="ok">'.$message.'</div>';
}
/*
* Affichage page
*/
llxHeader();
$html=new Form($db);
print_fiche_titre($langs->trans("Purge"),'','setup');
print '<br>';
print $langs->trans("PurgeAreaDesc",$dolibarr_main_data_root).'<br>';
print '<br>';
if ($message)
{
print $message.'<br>';
print "\n";
}
print '<form action="'.$_SERVER["PHP_SELF"].'" method="POST">';
print '<input type="hidden" name="action" value="purge">';
print '<table class="border" width="100%"><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>';
print '</td></tr></table>';
print '<br>';
print '<center><input class="button" type="submit" value="'.$langs->trans("PurgeRunNow").'"></center>';
print '</form>';
llxFooter('$Date$ - $Revision$');
?>
\ No newline at end of file
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment