diff options
Diffstat (limited to 'lib/Fripost/Schema.pm')
-rw-r--r-- | lib/Fripost/Schema.pm | 7 |
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 ); |