From 722ce15fa6a4bc345c172e0d6cced6a87268557c Mon Sep 17 00:00:00 2001
From: Laurent Destailleur <eldy@users.sourceforge.net>
Date: Mon, 4 Jul 2005 20:10:01 +0000
Subject: [PATCH] =?UTF-8?q?Trad:=20Ajout=20warning=20sur=20pr=E9sence=20re?=
 =?UTF-8?q?p=20install.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 htdocs/index.php              | 11 +++++++++++
 htdocs/langs/en_US/other.lang |  4 +++-
 htdocs/langs/fr_FR/other.lang |  2 ++
 3 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/htdocs/index.php b/htdocs/index.php
index b9dcb835f22..b495ddf02ce 100644
--- a/htdocs/index.php
+++ b/htdocs/index.php
@@ -39,6 +39,7 @@ if (! isset($_GET["mainmenu"])) $_GET["mainmenu"]="home";
 
 llxHeader();
 
+
 $userstring=$user->prenom . ' ' . $user->nom .' ('.$user->login.')';
 print_fiche_titre($langs->trans("WelcomeString",dolibarr_print_date(mktime(),"%A %d %B %Y"),$userstring), '<a href="about.php">'.$langs->trans("About").'</a>');
 
@@ -47,6 +48,16 @@ if (defined("MAIN_MOTD") && strlen(trim(MAIN_MOTD)))
   print '<br>'.nl2br(MAIN_MOTD).'<br>';
 }
 
+// Affiche warning répertoire install existe (si utilisateur admin)
+if ($user->admin)
+{
+    if (is_dir(DOL_DOCUMENT_ROOT."/install")) 
+    {
+        $langs->load("other");
+        print '<div class="warning">'.$langs->trans("WarningInstallDirExists",DOL_DOCUMENT_ROOT."/install").' ';
+        print $langs->trans("WarningUntilDirRemoved",DOL_DOCUMENT_ROOT."/install").'</div>';   
+    }
+}
 print "<br>\n";
 
 
diff --git a/htdocs/langs/en_US/other.lang b/htdocs/langs/en_US/other.lang
index 504c2a188bb..202be16733b 100644
--- a/htdocs/langs/en_US/other.lang
+++ b/htdocs/langs/en_US/other.lang
@@ -18,4 +18,6 @@ NbOfAttachedFiles=Number of attached files/documents
 TotalSizeOfAttachedFiles=Total size of attached files/documents
 AttachANewFile=Attach a new file/document
 LinkedObject=Linked object
-NbOfActiveNotifications=Number of notifications
\ No newline at end of file
+NbOfActiveNotifications=Number of notifications
+WarningInstallDirExists=Warning, install directory (%s) still exists. This is a serious security hole. You should removed it as soon as possible.
+WarningUntilDirRemoved=This warning will keep active while directory is present (Shown only for admin users).
\ No newline at end of file
diff --git a/htdocs/langs/fr_FR/other.lang b/htdocs/langs/fr_FR/other.lang
index 6803024b217..b2d8a4b3a88 100644
--- a/htdocs/langs/fr_FR/other.lang
+++ b/htdocs/langs/fr_FR/other.lang
@@ -19,3 +19,5 @@ TotalSizeOfAttachedFiles=Taille total des fichiers/documents li
 AttachANewFile=Ajouter un nouveau fichier/document
 LinkedObject=Objet lié
 NbOfActiveNotifications=Nombre de notifications
+WarningInstallDirExists=Attention, le répertoire install (%s) existe toujours. Il s'agit d'une faille sérieuse de sécurité. Vous devriez l'effacer dès que possible.
+WarningUntilDirRemoved=Cette alerte restera active tant que le répertoire existera (bien que visible aux utilisateurs admin uniquement).
\ No newline at end of file