From 03470f00befc2e0d583e5615eeb5ba69a39b0be6 Mon Sep 17 00:00:00 2001
From: Mercier Pierre-Olivier <nemunaire@acu.epita.fr>
Date: Mon, 16 Sep 2013 19:00:37 +0200
Subject: [PATCH] APL get password from ~mercie_d

---
 ACU/LDAP.pm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/ACU/LDAP.pm b/ACU/LDAP.pm
index f2c2295..bd94e5f 100644
--- a/ACU/LDAP.pm
+++ b/ACU/LDAP.pm
@@ -21,8 +21,11 @@ my $bindsecret = "";
 
 sub ldap_get_password
 {
-    return Password::get_password "/home/2014/mercie_d/.secret_ldap";
-#    return Password::get_password "/home/intradmin/.secret_ldap";
+    if (`hostname` eq "apl") {
+	return Password::get_password "/home/2014/mercie_d/.secret_ldap";
+    } else {
+	return Password::get_password "/home/intradmin/.secret_ldap";
+    }
 }
 
 our $secret_search = \&ldap_get_password;