Fixing unicode.

1 files changed, 3 insertions, 4 deletions

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 );