From aa3340e58fc5b993bfc88070edf543a2ed82ef94 Mon Sep 17 00:00:00 2001
From: Guilhem Moulin <guilhem.moulin@fripost.org>
Date: Thu, 27 Sep 2012 03:32:46 +0200
Subject: Fixing unicode.

---
 lib/Fripost/Schema.pm | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

(limited to 'lib/Fripost/Schema.pm')

diff --git a/lib/Fripost/Schema.pm b/lib/Fripost/Schema.pm
index a0730f9..bb1f3f5 100644
--- a/lib/Fripost/Schema.pm
+++ b/lib/Fripost/Schema.pm
@@ -19,7 +19,7 @@ use warnings;
 use utf8;
 
 use Net::LDAP;
-use Authen::SASL;
+use Authen::SASL 'Cyrus';
 use Fripost::Schema::Domain;
 use Fripost::Schema::Mailbox;
 use Fripost::Schema::Alias;
@@ -53,10 +53,9 @@ sub SASLauth {
 
     my $sasl = Authen::SASL::->new(
                    mechanism => 'GSSAPI',
-                   callback => { user => 'dn:'.$self->whoami
-                               , authname => $cfg{krb5_principal} }
+                   callback => { user => 'dn:'.$self->whoami }
     );
-    my $conn = $sasl->client_new('ldap', $cfg{krb5_host} );
+    my $conn = $sasl->client_new('ldap', $cfg{krb5_service_instance} );
     die $conn->error if $conn->code;
 
     my $mesg = $self->ldap->bind( '', sasl => $conn );
-- 
cgit v1.2.3