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), ''.$langs->trans("About").'');
@@ -47,6 +48,16 @@ if (defined("MAIN_MOTD") && strlen(trim(MAIN_MOTD)))
print '
'.nl2br(MAIN_MOTD).'
';
}
+// Affiche warning répertoire install existe (si utilisateur admin)
+if ($user->admin)
+{
+ if (is_dir(DOL_DOCUMENT_ROOT."/install"))
+ {
+ $langs->load("other");
+ print '
'.$langs->trans("WarningInstallDirExists",DOL_DOCUMENT_ROOT."/install").' ';
+ print $langs->trans("WarningUntilDirRemoved",DOL_DOCUMENT_ROOT."/install").'
';
+ }
+}
print "
\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