From 1f365b29f094912fa8f6e9d7fe0348148eb60ccf Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Fri, 18 Jan 2013 21:24:39 +0100
Subject: Added the possibility to chooze the SASL mechanism (GSSAPI or
 DIGEST-MD5).

---
 lib/Fripost/Panel/Interface.pm | 3 +--
 lib/Fripost/Panel/Login.pm     | 6 +-----
 2 files changed, 2 insertions(+), 7 deletions(-)

(limited to 'lib/Fripost/Panel')

diff --git a/lib/Fripost/Panel/Interface.pm b/lib/Fripost/Panel/Interface.pm
index 18b9a48..fcd4f97 100644
--- a/lib/Fripost/Panel/Interface.pm
+++ b/lib/Fripost/Panel/Interface.pm
@@ -264,8 +264,7 @@ sub EditLocal : Runmode {
                         $fp = Fripost::Schema::->auth(
                                   $u,
                                   $q->param('oldpw'),
-                                  ldap_uri => $CFG{ldap_uri},
-                                  ldap_suffix => $CFG{ldap_suffix},
+                                  %CFG,
                                   -die => "Wrong password (for ‘".$u."’)." );
                     };
                     $error = $@ || $fp->user->passwd(
diff --git a/lib/Fripost/Panel/Login.pm b/lib/Fripost/Panel/Login.pm
index ef8474c..4f00f6b 100644
--- a/lib/Fripost/Panel/Login.pm
+++ b/lib/Fripost/Panel/Login.pm
@@ -65,11 +65,7 @@ sub cgiapp_init {
             }
             Encode::_utf8_on($u);
             $u = email_to_ascii($u);
-            my $fp = Fripost::Schema::->auth($u, $p,
-                                             ldap_uri => $CFG{ldap_uri},
-                                             ldap_suffix => $CFG{ldap_suffix},
-                                             -die => 0
-            );
+            my $fp = Fripost::Schema::->auth($u, $p, %CFG, -die => 0);
             return 0 unless defined $fp;
             $fp->done;
             return $u;
-- 
cgit v1.2.3